03.07.2019, 19:03
Hallo,
vielleicht solltest du dir erst mal überlegen, was du jetzt genau willst.
In deinem ersten Post schreibst du
Jetzt möchtest du, dass sich das 'Picture' nicht anpasst, bei Änderungen im Original.
Das wäre dann ...
Activesheet.ChartObjects("Diagramm 1").CopyPicture xlScreen, XlBitmap
und ein einfaches
ppt.Shapes.Paste
Aber das hattest du ja im Prinzip schon.
Sabina
vielleicht solltest du dir erst mal überlegen, was du jetzt genau willst.
In deinem ersten Post schreibst du
Zitat:ich möchte "Ursprüngliche Formatierung beibehalten und Arbeitsmappe einbetten"Genau das macht der Code, den ich dir geschrieben habe.
Jetzt möchtest du, dass sich das 'Picture' nicht anpasst, bei Änderungen im Original.
Das wäre dann ...
Activesheet.ChartObjects("Diagramm 1").CopyPicture xlScreen, XlBitmap
und ein einfaches
ppt.Shapes.Paste
Aber das hattest du ja im Prinzip schon.
Sabina