Ich würde gerne das folgende addimage auf zwei Sheets anzeigen lassen. D.h. auf dem ersten Sheet soll es laufen und auf dem zweiten dann auch angezeigt werden. Leider bekomme ich es nicht hin.
Danke schon mal
Thomas
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),*.gif; *.png; *. _
_
_
_
_
jpg")
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
End With
Set objShp = Nothing
End Sub