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