Hyperlink auf Bild
07.02.2014 15:34:41
Ewald
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
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
Anzeige