ich habe weiter unten eine Anfrage zum Thema "Bild in Zelle / Bild aus der Zelle?"
Ist da keine Hilfe möglich? Muss sonst die Ganze Datei neu aufbauen :-(((
28 MB ist einfach zu groß.
Gruß / Sonnenpeter
Sub kopiereBild()
Dim shp As Shape
Dim wks As Worksheet
Set shp = Sheets("Menue").Shapes("Picture 1") 'Name anpassen
shp.Copy
For Each wks In ThisWorkbook.Worksheets
If wks.Name Like "Baumaßnahme*" Then
wks.Paste
With wks.Shapes(wks.Shapes.Count)
.Top = Range("A1").Top
.Left = Range("A1").Left
.OnAction = "dummy"
End With
End If
Next
End Sub
Private Sub dummy()
End Sub
P.S.: Rückmeldung nicht vergessen!