Excel to PowerPoint

[psrs0810]

I have information linked from an Excel doc to a PowerPoint. How do I keep the information from expanding beyond the PowerPoint slide when ever I update the links?

Thanks!

 

[Worf]

• How many linked objects do you have?
• Would you like the method below triggered by a Power Point event?

' 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