mit folgendem Code kopiere ich ein Diagramm ("RingAll") aus einem Excelsheet ("Figures") in eine PowerPoint ("EditP") auf Folie 2.
Sub EditPowerPoint()
Dim PPApp As PowerPoint.Application
' Create instance of PowerPoint
Set PPApp = CreateObject("Powerpoint.Application")
With PPApp
.Visible = True
.Presentations.Open Filename:= _
"C:\users\Mole\Desktop\EditP.pptx"
'Select slide
.ActivePresentation.Slides(2).Select
'From Sheet Figures copy of chart RingAll
Sheets("Figures").ChartObjects("RingAll").Copy
End With
'paste of chart RingAll and shape
With PPApp.ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 11.1423
.Selection.ShapeRange.Top = 125.708
End With
' Save and quit PowerPoint
PPApp.ActivePresentation.Save
PPApp.Quit
' Clean up
Set PPApp = Nothing
End Sub
Nun möchte ich, dass die eingefügte Chart nicht mehr mit der Excel verbunden ist, da ich in der Excel weiterarbeite und nicht möchte, dass die Powerpointchart aktualisiert wird. Ich würde gerne vermeiden, es zu einem Bild umzuwandeln. Kann mir einer helfen? Vielleicht etwas mit SpecialPaste?
Vielen Dank und viele Grüße
Mole
Offtopic: Wie kann man auf seine älteren Beiträge antworten? Über "Deine Beiträge" finde ich diese zwar, finde aber keine Option zum Antworten.