Grafik bei PasteSpecial nicht kopiert

Computer: Software & Programmierung Visual Basic
#1

Liebe Leute,

eine weitere Frage zu meiner aktuellen Aufgabe mit Excel haette ich noch.

  1. Ich kopiere eine Vorlage von einem Excel-Blatt in ein anderes. Dabei enthaelt die Vorlage eine Grafik, die leider nicht mitkopiert wird. Was mache ich falsch? Hier mein Code:

ActiveWorkbook.Sheets(„PO_template“).Activate
ActiveSheet.UsedRange.Select
Selection.Copy
’ activate the new one
Application.Workbooks(NewWorkbook).Activate

With Selection
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteFormats
.PasteSpecial Paste:=xlPasteColumnWidths
End With

Gruss,

Martin

#2

Hallo Martin,

ich kenne zwar den gesamten Zusammenhang nicht aber es klingt so, als wenn du ein Sheet komplett kopieren möchtest, dazu:

Sheets(thisSheet).Copy after:=Sheets(thisSheet)

wobei thisSheet den Namen des zu kopierenden Sheets enthält.

Sicherheishalber danach nochmal die Inhalte der Zellen kopieren, wie du es ohnehin schon machst, da beim Kopieren eines Sheets nur max 250 Zeichen je Zelle mitkommen.

Ansonsten bleibe noch die Alternative die Objekte auf dem Sheet separat zu kopieren. Falls das alle Shapes sind sollte man das über eine Schleife

for i=1 to Sheets(thisSheet).Shapes.Count
'select, copy
next

erreichen können.

Die erste Methode ist aber, außer dem 250 Zeichen Problem, sicherer, da mE alle Objekte und Eigenschaften des Sheets kopiert werden.

mfg

Dirk.Pegasus

#3

Du untertreibst :smile:

Sicherheishalber danach nochmal die Inhalte der Zellen
kopieren, wie du es ohnehin schon machst, da beim Kopieren
eines Sheets nur max 250 Zeichen je Zelle mitkommen.

Hallo Dirk,
habs grad mit Excel-VBA probiert, da werden 255 Zeichen pro Zelle mitgenommen. Sind beträchtlich mehr als 250 :smile:
Hätte nicht gedacht dass beim Kopieren Daten verloren gehen.
Danke für den Hinweis.
Gruß
Reinhard

#4

Jaja, Excel wird oft unter(über)schätzt owT
.