ich bitte um Eure Hilfe.
Ich möchte einem Shape mit einem Text z.B. "Test" einen Hyperlink z.B. C:\Users\Meier\xyz.xlsm per VBA zuordnen.
Wie musste der Code dazu aussehen?
Vielen Dank für Eure Hilfe im voraus.
LG, Peter
Sub LinkZuweisen()
Dim shaShape As Shape
For Each shaShape In ActiveSheet.Shapes
If shaShape.OLEFormat.Object.Caption = "Test" Then
ActiveSheet.Hyperlinks.Add Anchor:=shaShape, Address:= _
"C:\Users\Meier\xyz.xlsm"
End If
Next shaShape
End Sub