24小时热门版块排行榜

返回列表

当前主题已经存档。

chzhbin

金虫 (职业作家)

应助: 20 (小学生)
贵宾: 1.356
金币: 1023.7
散金: 3832
红花: 40
沙发: 2
帖子: 3301
在线: 1673.9小时
虫号: 573652
注册: 2008-06-14
性别: GG
专业: 天然药物化学

[交流] 【求助】急，急，ppt高手帮忙！

怎样将ppt中的彩色文字全部加粗，或者说全部变成大一号的字体，只要打印出来醒目就可以的！

回复此楼

» 猜你喜欢

1楼 2009-10-18 23:11:23

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

fuhuo

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1663.6
散金: 7
帖子: 162
在线: 18.8小时
虫号: 708853
注册: 2009-02-25
性别: GG
专业: 高分子合成化学

★ ★
chzhbin(金币+2,VIP+0): 12-20 22:06

字最好在模板里输入，这样可以一起设置字号。或者是文本框里输入的字，每一个文本框进行设置。打印可以选择纸上打印PPT的个数，PPT个数不一样，字大小也不一样

赞一下(1人)

回复此楼

2楼2009-10-19 08:59:58

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

bdud

至尊木虫 (文坛精英)

应助: 14 (小学生)
金币: 52262.4
红花: 3
沙发: 1
帖子: 18609
在线: 316.1小时
虫号: 605728
注册: 2008-09-18
专业: 区域经济管理

★
chzhbin(金币+1,VIP+0): 12-20 22:06

赞一下

回复此楼

3楼2009-10-19 09:47:52

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

dongdf12

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 2343.1
帖子: 88
在线: 30.3小时
虫号: 875059
注册: 2009-10-17
性别: GG
专业: 药物化学

这样修改ppt中所有字的字体

★ ★
chzhbin(金币+2,VIP+0): 12-20 22:06

用office中的宏来操作
点【工具】——【宏】——【Visual Basic 编辑器】——【插入】——【模块】——【输入代码】——【点保存】——再关闭小窗口和编辑器窗口——再点【工具】——【宏】——【宏】——点击运行即可。

其实很简单，很方便，应该会了吧。代码如下

Sub OED01()  '批量修改字体格式、大小和颜色
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next
For Each oSlide In ActivePresentation.Slides
For Each oShape In oSlide.Shapes
      Set oTxtRange = oShape.TextFrame.TextRange
      If Not IsNull(oTxtRange) Then
      With oTxtRange.Font
         .Name = "楷体_GB2312"    '改成你需要的字体
         .Size = 20    '改成你需要的文字大小
         .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色
      End With
      End If
Next
Next
End Sub

赞一下(1人)

回复此楼

4楼2009-10-25 20:11:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖