0

我正在 PowerPoint2010 中编写一个 VBA 应用程序,它添加不​​同的形状并自动命名它们。

现在我正在尝试更改具有三个可能值的 Textbox.TextFrame.AutoSize 属性:-2、0 和 1。

如果我尝试将 ppAutoSizeMixed 与 VBA 一起分配,则会出现“超出范围”异常。0 和 1 我可以毫无困难地分配。

Debug.Print ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.AutoSize //-2
ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.AutoSize = ppAutoSizeNone //0
ActiveWindow.Selection.SlideRange.Shapes(1).TextFrame.AutoSize 
= ppAutoSizeMixed//-2: exception

我可以使用 PowerPoint 更改值,但不能使用 VBA。有人知道这个问题并知道如何解决吗?

谢谢!

4

1 回答 1

2

OK, here you go: Assuming a reference to your shape in oSh:

With oSh
   .TextFrame2.AutoSize = 2
End With
于 2013-02-28T16:31:55.963 回答