Powerpoint的VBA代码，更改所有幻灯片的所有MS对象（来自Excel）

Question

我在Powerpoint中有很多幻灯片。全部都有到Excel表的MS对象连接。我正在寻找代码，以更改所有这些对象的大小和位置。我已经有一些代码了。但是问题在于它也改变了文本的大小和位置。有人知道如何更改吗？

Sub ResizeAll()
For Each tSlide In ActiveWindow.Presentation.Slides
tSlide.Select
With tSlide.Shapes.Item(1)
'assume a blank slide with one image added only
   .Select
   .Height = 72 * 1000.39
   .Width = 72 * 10.67
'algin middle (Horizontal Center)
   .Left = 100
   .Top = ActivePresentation.PageSetup.SlideHeight / 5
End With
Next
End Sub

Answer 1

我会远离使用Selection对象。此代码检查该形状是OLE对象，然后仅调整该形状的大小。如果这样不能回答您的问题，请说明“还更改了文本的大小和位置”。

debug <2>