| 查看: 510 | 回复: 9 | |||
| 当前主题已经存档。 | |||
chzhbin超级版主
|
[交流]
【求助】急,急,ppt高手帮忙!
|
||
| 怎样将ppt中的彩色文字全部加粗,或者说全部变成大一号的字体,只要打印出来醒目就可以的! |
» 猜你喜欢
342求调剂
已经有9人回复
材料与化工调剂一志愿大连海事085600,349
已经有7人回复
一志愿武理材料工程302调剂环化或化工
已经有16人回复
311求调剂一志愿合肥工业大学
已经有12人回复
环境工程调剂
已经有3人回复
288求调剂 一志愿哈工大 材料与化工
已经有22人回复
085600,321分求调剂
已经有9人回复
282求调剂
已经有11人回复
一志愿 南京航空航天大学 ,080500材料科学与工程学硕
已经有11人回复
土木304求调剂
已经有3人回复
2楼2009-10-19 08:59:58
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
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
li8338283
超级版主
|
本帖内容被屏蔽 |
8楼2009-11-07 16:00:17
9楼2009-11-13 00:07:42
10楼2009-11-13 05:13:35














回复此楼
