VBA to paste range cells into a ppt (all set) and fit to exact width of page (need help)

I have a vba script created to change pulldown selections in an xls sheet, that drive data in a range of cells.  I need to cycle thru around 100 options and copy paste the results of the range of cells onto a new ppt page, for a report out.

I have the vb. script working great, just need help in one area, I need the range of cells being copied to paste into the ppt and stretch/shrink to match the exact width of the ppt page.  The size of the paste is very close to the width (just a little larger) so I'm not too concerned about maintaining aspect ratio (that's a nice to have) but definitely need to shrink each to fit.   I've attached portion of  my code below so you can see how it is working

 'Set osl = PowerPointApp.ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutTitleOnly
            'Add a slide to the Presentation
            Set mySlide = myPresentation.Slides.Add(1, ppLayoutTitleOnly)
            mySlide.Shapes.Title.TextFrame.TextRange.Text = ppt_pg_ttl
            'Copy Excel Range

            'Paste to PowerPoint and position
            mySlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
            Set myShapeRange = mySlide.Shapes(mySlide.Shapes.Count)
                'Set position:
                myShapeRange.Left = 0
                myShapeRange.Top = 100
               '***.....I WOULD LIKE TO MAKE IT A PERFECT FIT INSTEAD OF A GUESSTIMATE                
Who is Participating?
Jamie GarrochPowerPoint Consultant & DeveloperCommented:
Try this:

myShapeRange.Width= myPresentation.PageSetup.SlideWidth

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.