| 查看: 494 | 回复: 9 | |||
| 当前主题已经存档。 | |||
chzhbin金虫 (职业作家)
|
[交流]
【求助】急,急,ppt高手帮忙!
|
||
| 怎样将ppt中的彩色文字全部加粗,或者说全部变成大一号的字体,只要打印出来醒目就可以的! |
» 猜你喜欢
281求调剂(0805)
已经有15人回复
085600材料与化工调剂 324分
已经有8人回复
能源材料化学课题组招收硕士研究生8-10名
已经有10人回复
267一志愿南京工业大学0817化工求调剂
已经有8人回复
274求调剂
已经有4人回复
328求调剂,英语六级551,有科研经历
已经有10人回复
328求调剂,英语六级551,有科研经历
已经有7人回复
材料专业求调剂
已经有5人回复
一志愿天津大学化学工艺专业(081702)315分求调剂
已经有10人回复
344求调剂
已经有7人回复
fuhuo
木虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1663.6
- 散金: 7
- 帖子: 162
- 在线: 18.8小时
- 虫号: 708853
- 注册: 2009-02-25
- 性别: GG
- 专业: 高分子合成化学
2楼2009-10-19 08:59:58
bdud
至尊木虫 (文坛精英)
- 应助: 14 (小学生)
- 金币: 52691.4
- 红花: 3
- 沙发: 1
- 帖子: 18672
- 在线: 316.4小时
- 虫号: 605728
- 注册: 2008-09-18
- 专业: 区域经济管理
3楼2009-10-19 09:47:52
这样修改ppt中所有字的字体
★ ★
chzhbin(金币+2,VIP+0): 12-20 22:06
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 |
4楼2009-10-25 20:11:41
fykxy_206
木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 2005.8
- 散金: 73
- 红花: 4
- 帖子: 565
- 在线: 101.7小时
- 虫号: 608969
- 注册: 2008-09-21
- 专业: 微生物生理与生物化学
5楼2009-11-01 11:46:48
hjj180057
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 628.3
- 帖子: 83
- 在线: 6小时
- 虫号: 450787
- 注册: 2007-11-04
- 性别: GG
- 专业: 生物化工与食品化工
6楼2009-11-01 15:04:13
shantiqiang
木虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 1579.3
- 散金: 14
- 红花: 1
- 帖子: 344
- 在线: 60.5小时
- 虫号: 871975
- 注册: 2009-10-14
- 性别: GG
- 专业: 中药学

7楼2009-11-06 00:09:31
|
本帖内容被屏蔽 |
8楼2009-11-07 16:00:17
9楼2009-11-13 00:07:42
10楼2009-11-13 05:13:35













回复此楼
