resizing the image in PPT using VBA

I am trying to move few charts from Excel to a PowerPoint slide as an image and resize them. I have got the code which copies the chart (as picture) from excel and pastes it in PowerPoint. Now I want to resize them as follows:

Height of the chart– 4.5
Width of the chart – 9.18
Horizontal – 01.6
Vertical – 0.7

Can you please help me with the VBA code in changing the dimension of the image?

Sub ExcelToExistingPowerPoint()
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
' Reference existing instance of PowerPoint
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
' Some PowerPoint actions work best in normal slide view
PPApp.ActiveWindow.ViewType = ppViewSlide

' Add first slide to presentation
Set PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)

' Copy chart as a picture
Selection.CopyPicture _
Appearance:=xlScreen, Format:=xlPicture
' Paste chart
PPSlide.Shapes.Paste.Select
Set myChart = ActiveSheet.ChartObjects.Add(Left:=Offset, Width:=9.18, Top:=OffsetY, Height:=4.5)
'format pic
' Align pasted chart
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

' Reference active slide
Set PPSlide = PPPres.Slides _
(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
' Save the presentation
PPPres.Save
' Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End Sub

Can someone please help?

Hi, this maximises all images in the presentation.

Please Login or Register  to view this content.

How did you define SlideMaster as in the above code?