24小时热门版块排行榜

返回列表

当前主题已经存档。

chzhbin

金虫 (职业作家)

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

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

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

回复此楼

» 猜你喜欢

之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？已经有9人回复
心脉受损已经有6人回复
博士申请都是内定的吗？已经有8人回复
博士读完未来一定会好吗已经有32人回复
读博已经有5人回复
投稿精细化工已经有4人回复
高职单位投计算机相关的北核或SCI四区期刊推荐，求支招！已经有4人回复
导师想让我从独立一作变成了共一第一已经有9人回复
Springer期刊投稿求助已经有4人回复

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 (小学生)
金币: 52078.4
红花: 3
沙发: 1
帖子: 18581
在线: 315.8小时
虫号: 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的回帖