In this code if I use link as true
And set shapes height to slideheight and then width it expands even more even though I set lockaspectratio to false.
If I don't use link as true it works fine
Option Explicit

Sub PowerPointLibrary()

Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide

    Set ppApp = New PowerPoint.Application
    
    ppApp.Visible = True
    ppApp.Activate
    
    Set ppPres = ppApp.Presentations.Add
    
    Set ppSlide = ppPres.Slides.Add(1, ppLayoutTitle)
    ppSlide.Select
    
    ppSlide.Shapes(1).TextFrame.TextRange.Text = "HOLLYWOOD"
    ppSlide.Shapes(2).TextFrame.TextRange.Text = "Top Movies Of All Time"
        
    ppSlide.Shapes(1).TextFrame.TextRange.Font.Size = 30
    ppSlide.Shapes(1).TextFrame.TextRange.Font.Color = vbRed
    
    ppSlide.Shapes(2).TextFrame.TextRange.Font.Size = 20
    ppSlide.Shapes(2).TextFrame.TextRange.Font.Color = rgbDarkBlue
        
    Set ppSlide = ppPres.Slides.Add(2, ppLayoutBlank)
    ppSlide.Select
   
    Sheet1.Activate
    
    Range("A1").CurrentRegion.Select
    Range("A1").CurrentRegion.Copy
    ppApp.ActiveWindow.View.PasteSpecial ppPasteOLEObject, , , , , True
    ppSlide.Shapes(1).Select
    ppSlide.Shapes(1).LockAspectRatio = False
    ppSlide.Shapes(1).Width = ppPres.PageSetup.SlideWidth
    ppSlide.Shapes(1).Height = ppPres.PageSetup.SlideHeight
    ppSlide.Shapes(1).Left = 0
    ppSlide.Shapes(1).Top = 0
   
    Set ppSlide = ppPres.Slides.Add(3, ppLayoutBlank)
    ppSlide.Select
    
    Chart4.Select
    Chart4.ChartArea.Copy
    ppSlide.Shapes.PasteSpecial
    ppSlide.Shapes(1).LockAspectRatio = False
    ppSlide.Shapes(1).Width = ppPres.PageSetup.SlideWidth
    ppSlide.Shapes(1).Height = ppPres.PageSetup.SlideHeight
    ppSlide.Shapes(1).Left = 0
    ppSlide.Shapes(1).Top = 0

    
    Set ppPres = Nothing
    Set ppApp = Nothing
End Sub
Please help
Whether pasted link to be referred as oleobject or something. please provide some valid modified code so that lockaspectratio set to false for linked object

For me problem is while pasting linked object(either table range or chart) from excel to PowerPoint 2007. No problem pasting and lockaspectratio in PowerPoint higher version. No problem pasting picture or shape that is not linked. Another thing what I noticed that only problem is setting lockaspectratio from format tab size group dialog, else if I right click linked object and set lockaspectratio by going to format object it actually works. Currently I don't know what is difference between those two methods and I can't set lockaspectratio to false permanently. Once I set it to false it works for very next step that is changing width or height but then it automatically sets to true. Please provide code that actually sets lockaspectratio to linked objects in PowerPoint 2007.