Z tabletu, takže iba typ:
Toto nefunguje ?
Me.Image1.Picture = LoadPicture(Worksheets("Hárok1").Cells(2,1).Value)
Kde Image1 je objekt Obrázok na forme.
EIDT: A ešte by som ošetril volaciu procedúru :
Sub Tlačidlo1_Kliknúť()
On Error Resume Next
UserForm1.Show
If Err <> 0 Then
MsgBox ("- chybný formát obrázku," & vbNewLine & "- neexistujúci obrázok," & vbNewLine & "- alebo iná chyba pri jeho načítaní")
Exit Sub
End If
On Error GoTo 0
End Sub
pretože stačí aby bola chyba v názve, či nesprávny formát a havaruje to - samozrejme.
A ešte drobnosť, PictureSizeMode by som dal na fmPictureSizeModeZoom, v prípade ak sa nevie aký pomer strán alebo veľkosť budú mať tie obrázky.citovat
Toto nefunguje ?
Me.Image1.Picture = LoadPicture(Worksheets("Hárok1").Cells(2,1).Value)
Kde Image1 je objekt Obrázok na forme.
EIDT: A ešte by som ošetril volaciu procedúru :
Sub Tlačidlo1_Kliknúť()
On Error Resume Next
UserForm1.Show
If Err <> 0 Then
MsgBox ("- chybný formát obrázku," & vbNewLine & "- neexistujúci obrázok," & vbNewLine & "- alebo iná chyba pri jeho načítaní")
Exit Sub
End If
On Error GoTo 0
End Sub
pretože stačí aby bola chyba v názve, či nesprávny formát a havaruje to - samozrejme.
A ešte drobnosť, PictureSizeMode by som dal na fmPictureSizeModeZoom, v prípade ak sa nevie aký pomer strán alebo veľkosť budú mať tie obrázky.citovat