mitfolgendem Makro füge ich ein Bild in die Tanelle ein
Sub Bild()
Dim p As Picture
Range("J273").Select
Set p = ActiveSheet.Pictures.Insert(Dateipfad & "UF11.jpg")
p.Name = "Bild_UF11"
p.Left = Range("J273").Left
p.Top = Range("J273").Top
p.Height = 40
p.Width = 60
With ActiveSheet
.Hyperlinks.Add Anchor:=.Shapes("Bild_UF11"), Address:="C:\Archiv\UF1.jpg", ScreenTip:=" _
Userform_OTL"
End With
End Sub
Das Bild wird eingefügt und der Code laüft durch,nur hat das Bild keinen Hyperlink.Füge ich den Hyperlink manuell ein,ist der Hyperlink vorhanden und funktioniert auch.
Leider kommt noch hinzu das der Makrorecorder das manuelle Einfügen nicht aufzeichnet,es ist nur das leere Makro vorhanden.
Gruß Ewald