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ěď.
Vložení obrázku
-
- Pohlaví:
Re: Vložení obrázku
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?
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 0
- 1153
-
od Zabral68
Zobrazit poslední příspěvek
28 čer 2023 19:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 9 hostů