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

jianyus 发表于: 2009-4-14 11:23 来源: 扑奔PPT网

别人给我一个100页的PPT  我用是OFFICE07
可是那个PPT全是插入-用文本框做的 没有使用母板
可是我复制进我的幻灯片 格式（字体）还是不变的 重设幻灯片也不管用
急死了~~~~~~~~~~~~~
100多页
只能一页一页改吗？

[ 本帖最后由 jianyus 于 2009-4-14 11:44 编辑 ]

yingcaixiaobai 发表于 2009-4-14 11:37:17

只能这个样子了

jianyus 发表于 2009-4-14 11:42:54

熬成兔子眼也做不完呢

Jython 发表于 2009-4-14 14:30:08

你应用一个别的母板试试

Sommer.T 发表于 2009-4-14 15:00:45

在你朋友的那个PPT里加入你的模板不就行了?

lbluckylb 发表于 2009-4-14 18:55:21

全选(ctrl+a)，然后选择字体和颜色不行么？

jianyus 发表于 2009-4-15 13:27:45

谢谢楼上的几位 但是真的不行啊
他的模板里就是一个背景 没有占位符
然后他用插入文本框做的一切 改不了啊 55555555555555555

kikeki 发表于 2009-4-15 15:26:14

占位符的优势在这里啊！不过我也是从不用它

jenson258 发表于 2009-4-15 15:32:55

从来没遇到这种情况，搭车同问吧！求高手

钮挺 发表于 2009-5-01 09:06:08

双击格式刷，然后一页一页全选估计会快点

minsky313 发表于 2009-5-09 23:53:14

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

蓝色回忆 发表于 2009-5-10 02:26:53

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

蓝色回忆 发表于 2009-5-10 02:29:22

除非在母版里重新设定。

smarteat 发表于 2009-5-13 15:30:55

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

yangguangcanlan 发表于 2009-5-14 17:06:20

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

xzghero 发表于 2009-5-20 07:02:16

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

liniu8577 发表于 2009-5-20 09:41:48

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

laose 发表于 2009-5-20 11:21:54

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

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