Pfad zum Bildeinfügen setzten

Sub addImage()
Dim objShp As Shape
Dim strFile As String
Set objShp = ActiveSheet.Shapes(Application.Caller)
With objShp
strFile = Application.GetOpenFilename("Grafik Dateien (*.gif; *.png; *.jpg; *.jpeg),*.gif; *. _
png; *.jpg; *.jpeg")
ActiveSheet.Unprotect
If strFile  CStr(False) Then
.Fill.UserPicture strFile
.TextFrame.Characters.Text = ""
Else
.Fill.Solid
.Fill.ForeColor.RGB = RGB(240, 240, 240)
.TextFrame.Characters.Font.Color = RGB(155, 155, 155)
.TextFrame.Characters.Text = "Hier Klicken um Grafik einzufügen"
End If
ActiveSheet.Protect
End With
Set objShp = Nothing
End Sub