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

不自动调整
自动溢出
根据文本框大小自动调节
用VBA代码分别怎么写？
谢谢。

试验一下：
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

sub change_whitetext_toblack() on error resume next dim i, j as single for i = 2 to activepresentation.slides.count for j = 1 to activepresentation.slides(i).shapes.count with activepresentation.slides(i).shapes(j) if .fill.backcolor = vbwhite and .textframe.textrange.font.color = vbwhite then .textframe.textrange.font.color = vbblack end if end with next next end sub 插入模块，复制代码到其中。