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!
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen