Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
frmPicture.Show vbModeless
frmPicture.Picture = _
LoadPicture("c:\temp\200000135974.jpg")
frmPicture.Caption = "200000135974"
End Sub
Dieses möchte ich nun anpassen, dass ich das Bild nicht von c:\... hole, sondern aus der Excel-Datei, in der Bild bereits vorhanden ist
Das nüsste doch m.E. irgendwie in der Art gehen:
Festlegen, welches Bild man nutzen möchte und dann zuordnen.
Dim bild As object
Set bild = Worksheets("tabelle4").Pictures(2)
frmPicture.Picture = bild Vielen Dank schon mal im Voraus