Vložení obrázku

[Snekment]

Dobrý den, mám prosbu. V Exelu z roku 2007 mám toto makro :

Private Sub foto_osobni_01_Click()
If (MsgBox("Chcete načíst novou fotku?", vbYesNo + vbDefaultButton2)) = vbNo Then Exit Sub
On Error Resume Next
Dim umisteni As String
umisteni = Application.GetSaveAsFilename("\\Filesrv\zlutysanon_vaclavak\foto\")
If umisteni <> "" Then
foto_osobni_01.Picture = LoadPicture(umisteni)
foto_osobni_01.PictureSizeMode = fmPictureSizeModeStretch
Sheets("Zakladaci karta").Foto_osobni_karta.Picture = LoadPicture(umisteni)
Sheets("Zakladaci karta").Foto_osobni_karta.PictureSizeMode = fmPictureSizeModeStretch
End If
End Sub

Ted byl na jeden náš počítač v síti nainstalován Exel 2016 a toto makro (logicky) v tomto Exelu nefunguje. Je možné nějak změnit toto makro aby fungovalo z obou verzí těchto sytémů.

Děkuji moc za odpověď.

[Reklama]

[guest]

Co na tom logicky nefunguje? Tedy kromě toho, že používáte divně dialog pro ukládání, formulář by měl být nemodální a nenačtete třeba PNG?