pptvba文本框怎么写( 二 )


8.在ppt vba中,怎样循环取文本框的高度值,并设成一个值如果您要的效果仅仅是“循环取文本框的高度值,并设成一个值”
那么这样就行咯
Sub 调整对齐文本框()
Dim sld As Slide
Dim sh As Shape
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
sh.Height = 28.375
sh.Width = 107.625
Next
Next
End Sub

pptvba文本框怎么写

文章插图