Hi there,

I am trying to copy a chart from a specifix tab in excel to a specific slide in ppt. Everything works fine however on the ppt slide there are other already existing objects like, header, footer and some shapes. When my code pastes the chart on the slide at the location and the size that I want all other objects on that slide have now the same dimensions as the pasted chart.

Please help me figuring out where my code is wrong.

Thanks in advance.

Seb

Sub test()

'Declatre PPT Variables
Dim DestinationPPT As String
Dim PPTApp As PowerPoint.Application
Dim PPTPres As PowerPoint.Presentation
Dim PPTSlide As PowerPoint.Slide

'Declare Excl Object Variables
Dim Chrt As ChartObject

'new instano PPT
Set PowerPointAPP = CreateObject("PowerPoint.Application")

'Open PPT template
DestinationPPT = "C:\Users\Desktop\Präsentation test.pptx"
Set myPresentation = PowerPointAPP.Presentations.Open(DestinationPPT)

Sheets("Sheet 2").Shapes("Chart 1").Copy
myPresentation.Slides(3).Shapes.Paste.Left = 21.5
myPresentation.Slides(3).Shapes.Range.Top = 108.62
myPresentation.Slides(3).Shapes.Range.Height = 372.12
myPresentation.Slides(3).Shapes.Range.Width = 668.32


End Sub