怎么用VBA的知识把ppt中所有页的文本框的属性都改为不自动调整

试验一下：

Sub Test()
On Error Resume Next
Dim i As Single
For i = 1 To ActivePresentation.Slides.Count
For j = 1 To ActivePresentation.Slides(i).Shapes.Count
With ActivePresentation.Slides(i).Shapes(j).TextFrame
        .WordWrap = msoFalse
        .AutoSize = ppAutoSizeNone
End With
Next
Next
End Sub

追问

谢谢，非常成功
pptVBA好学吗？希望您能指点一下

追答

用的不多，使用频率远低于在excel中的。不过ppt各种动画效果利用VBA是独特的东西。

本回答被网友采纳