Shapes kopieren - Fehler 1004
Pepi
Kann mir jemand sagen, warum dieser Code nach einigen kopierten Shapes den Laufzeitfehler 1004 erzeugt? Die Shapes sollen von einer Mappen in eine Andere kopiert und positioniert werden. Offenbar macht der oShp.copy-Befehl Schwierigkeiten - soweit bin ich schon mal. - Wer weiss Rat?
liebe Grüsse Pepi
Sub SU_Shapes_Copy()
Dim oWB As Workbook, oTB As Workbook, oTab As Worksheet, oShp As Shape
Set oWB = Workbooks("_Offkalk Kaba exos-28.01.11.xlsm")
Set oTB = ThisWorkbook
oTB.Activate
For Each oTab In oWB.Worksheets
oWB.Worksheets(oTab.Name).Unprotect
oTB.Worksheets(oTab.Name).Activate
For Each oShp In oWB.Worksheets(oTab.Name).Shapes
oShp.copy
oTB.Worksheets(oTab.Name).Paste
With Selection
.Top = oShp.Top
.Left = oShp.Left
End With
Next oShp
Next oTab
End
Sub