急求：如何一次性修改所有文本框的字体和颜色

lover1212

试一下可不可以重新定义一个母版,在母版里只定义格式(字体),其它元素不变再应用看可不可以

hedyjing

看来不知道目前的新方法了

ningking

除非在母版里重新设定。

fzseeker

你放上来看看，说不定可以通过作新的母版 定义版式来解决

yhjdjdh60

如果你朋友的PPT本身沒有用母片﹐不是在占位符K入的文字﹐估計沒有辦法一次性更改了﹐想其他辦法吧。

user_riurm

更改软件中常规的格式行不？

sailor0763

感觉 好像还有更好的办法，但在没有找到再好的办法之前，用双击格式刷是最好的

user_sjouc

根据需要修改字体、字号、字体颜色，同时加粗、倾斜、阴影等都可自行设定，执行宏后即可。
Sub Allchange()
    Dim osld As Slide, oshp As Shape
    For Each osld In ActivePresentation.Slides
        For Each oshp In osld.Shapes
           With oshp.TextFrame.TextRange.Font
                .Name = 楷体_GB2312
                .Size = 24
                .Color.RGB = RGB(255, 0, 0)
                .Bold = msoFalse
                .Italic = msoFalse
                .Shadow = False
            End With
        Next oshp
    Next osld
End Sub