我的方法比较粗暴,不妨试试。sub 批量设置文本对齐()for i = 1 to application.activepresentation.slides.count for j = 1 to application.activepresentation.slides(i).shapes.count application.activepresentation.slides(i).shapes(j).textframe2.textrange.paragraphformat.alignment = msoalignleft nextnextend sub--------------------------说明:左对齐是msoalignleft右对齐是msoalignright居中对齐是msoaligncenter两端对齐是msoalignjustify分散对齐是msoaligndistribute
我的方法比较粗暴,不妨试试。Sub 批量设置文本对齐()For i = 1 To Application.ActivePresentation.slides.Count For j = 1 To Application.ActivePresentation.slides(i).Shapes.Count Application.ActivePresentation.slides(i).Shapes(j).TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignLeft NextNextEnd Sub--------------------------说明:左对齐是msoAlignLeft右对齐是msoAlignRight居中对齐是msoAlignCenter两端对齐是msoAlignJustify分散对齐是msoAlignDistribute