' PowerPoint module
Sub Linx()
Dim sh As Shape, nw&, nh&, pr As Presentation
Set pr = ActivePresentation
Set sh = pr.Slides(2).Shapes("Object 1")
sh.LockAspectRatio = msoTrue
nw = pr.PageSetup.SlideWidth * 0.95
nh = pr.PageSetup.SlideHeight * 0.9
If sh.Width > nw Then sh.Width = nw - 50
If sh.Height > nh Then sh.Height = nh - 50
sh.Top = 30
sh.Left = 40
End Sub