lover1212 发表于 2009-4-14 14:41:34

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

hedyjing 发表于 2009-4-14 14:45:23

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

ningking 发表于 2009-4-14 15:06:06

除非在母版里重新设定。

fzseeker 发表于 2009-4-14 15:14:51

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

yhjdjdh60 发表于 2009-4-14 15:15:14

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

user_riurm 发表于 2009-4-14 15:33:53

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

sailor0763 发表于 2009-4-14 15:35:57

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

user_sjouc 发表于 2009-4-14 16:20:13

根据需要修改字体、字号、字体颜色，同时加粗、倾斜、阴影等都可自行设定，执行宏后即可。
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

页: 1 [2]
查看完整版本: 急求：如何一次性修改所有文本框的字体和颜色