PC-HELP.CZ

Dobrý den,
v podkladech pro příjem nového pracovníka bych rád přidal fotku a toto macro přesně vyhovuje tomu co jsem potřeboval (odkaz na složku na siti,ktera bude stálá s možnosti výberu fotografie) ,ale potřebuji dodělat možnost "přehraní" načtené fotografie v případě pokud se uzivatel uklikne a priradi jinou fotku než měl. Bylo by to možné ?
zde je VBA

Private Sub Image1_Click()
On Error Resume Next
Dim umisteni As String
umisteni = Application.GetSaveAsFilename("\\Filesrv\zlutysanon_vaclavak\foto\")
If umisteni <> "" Then
Image1.Picture = LoadPicture(umisteni)
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
On Error GoTo 0

End Sub

--- Doplnění předchozího příspěvku (22 Bře 2013 11:31) ---

Ještě mě napadlo pri prijmu zamestnance zadávam jmeno a přijmeni do bylo by možno aby se fotka sama doplnila (samozdřejmě podmínka je ulozit fotku take formatu jmeno a příjmení) tedy asi "je li formular!A12 = nazvu fotky tak se foto nahraje samo . Slo by to ?

Jen tak od boku:

Přepis bez nutnosti potvrzování by mohl spočívat v opakování kódu s uvedením Application.DisplayAlerts = False

Soubor jmeno_prijmeni.jpg nepokrývá situaci, kdy ve firmě dělá otec a syn stejného jména i příjmení (a to není tak nereálná možnost, jak se zdá).

Dobrá poznámka o otci a synovi a rozšířit podmínku jestě na datum narozeni to by bylo již hodně složité že ?

Možná by stačilo jen poupravit makro o otázku.