Thread: [Solved] Paste shape from Excel
View Single Post
 
Old 03-06-2020, 09:02 AM
JohnWilson JohnWilson is offline Windows 10 Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

Maybe I'm misunderstanding but maybe use

Code:
 With PPSlide
        .Shapes.Paste.Select
       
        With .Shapes(.Shapes.Count)
            .LockAspectRatio = msoFalse
            .Left = 0
            .Top = 0
            .Width = PPApp.PageSetup.SlideWidth
            .Height = PPApp.PageSetup.SlideHeight
        End With
    End With
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote