Makro 1 kopiert Tabelle im neue Arbeitmappe inklusiv Formatierung soweit ok,
aber Bilder werden nicht mit kopiert.
Makro 2, Kopiert alle Bilder und Zeichen Objekten inklusiv Position, aber nicht Format von Tabelle
1.) Wie kann man von Makro 2 dass das Teil was Bilder mit kopiert mit Position, im Makro 1 integrieren
2.) Bilder in Tabelle habe ein klick Ereignis bild vergrößern, bei Kopieren im neue Arbeitsmappe sollte diese klick Ereignis euch entfernt werden.
Makro 1
Sub Makro1() 'https://www.herber.de/forum/archiv/1032to1036/t1034766.htm (Tino)
Dim myTab As Worksheet
Dim strName As String
strName = ActiveSheet.Name
ActiveSheet.Cells.Copy
Set myTab = Sheets.Add
myTab.Cells.PasteSpecial (xlPasteValues)
myTab.Cells.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
myTab.Move
ActiveSheet.Name = strName
'hier kannst Du diese Datei irgendwo speichern oder sonstwas damit machen
End Sub
Makro 2Sub CopyShapesAndPlaceIt() 'https://www.herber.de/forum/archiv/648to652/t648841.htm (Sep)
Dim shp As Shape
Dim ws1 As Worksheet, ws2 As Worksheet
Dim x As Double, y As Double
Set ws1 = Workbooks("73743_26 (2).xls").Worksheets("Tabelle1")
Set ws2 = Workbooks("Mappe1.xls").Worksheets("Tabelle1")
For Each shp In ws1.Shapes
If shp.Type = 13 Or shp.Type = 17 Then
With shp
x = .Left
y = .Top
.Copy
End With
ws2.Paste
With ws2.Shapes(ws2.Shapes.Count)
.Left = x
.Top = y
End With
End If
Next
End Sub
Grüße
Karel