Question

我正在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更改值。有人知道这个问题并知道如何解决它吗？

谢谢！

Answer 1

好的，你走了：假设在oSh中引用你的形状：

With oSh
   .TextFrame2.AutoSize = 2
End With

VBA：无法将ppAutoSizeMixed分配给TextBox.TextFrame.AutoSize

1 个答案: