中如何使用宏.doc

ppt中如何使用宏
我有一些ppt，我想把里面的字体全部设置成黑体，白色，如何用宏做到？给段编码也成，附上简短教程。谢谢了
利用宏批量改变字体
在视图中选择宏（早期版本可能要在插入中找），输入任意的宏名，点击创建。

在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。此时工作已经全部完成了。
Sub myfont()
Dim oShape As Shape
Dim oSlide As Slide
Dim oTxtRange As TextRange
On Error Resume Next ' 之后的代码就算出错也会继续执行
For Each oSlide In ActivePresentation.Slides
oSlide.FollowMasterBackground = msoFalse  ' 使用幻灯片母版背景
For Each oShape In oSlide.Shapes
' 文本框字体设置
With oShape.TextFrame.TextRange.Font
' .Name = "宋体"
' .Size = 20
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
' .Bold = msoFalse '粗
.Italic = msoFalse  ' 斜
.Underline = msoFalse  ' 下划线
End With
oShape.Fill.Background ' 文本框背景色用幻灯背景填充
oShape.TextFrame.TextRange.IndentLevel = 0
' 表格字体设置
oShape.Table.Background.Fill.BackColor.RGB = RGB(Red:=255, Green:=255, Blue:=255)             ' 底色
For i = 1 To oShape.Table.Rows.Count
For j = 1 To oShape.Table.Columns.Count
oShape.Table.Cell(i, j).Shape.Fill.BackColor.RGB = RGB(Red:=255, Green:=255, Blue:=255)
With oShape.Table.Cell(i, j).Shape.TextFrame.TextRange.Font
' .Name = "宋体"
' .Size = 20
.Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)
' .Bold = msoFalse '粗
'.Italic = msoFalse  ' 斜
'.Underline = msoFalse  ' 下划线
End With
Next j
Next i
Next
Next
End Sub

注意： 1.以上代码相应部分可以根据需要自行修改 2.运行后可能仍有部分是彩色。如：表格的内嵌，项目符号编号，图片等。前两项仍然需要手动修改颜色。

不能运行宏的解决办法
点击左上角菜单，选择PPT选项

 信任中心->宏设置，选中启用所有和信任对VBA的访问，确定。然后重启PPT即可。

评论(0) 0 0

发表评论

其他回答(1)

热心问友 2012-01-08
PPT是一款既简单又实用的软件，用好了可以做出很好的课件，怕自己忘记了，特在这里做点小结
1． 如果要制作简单的PPT文稿，则直接新建→然后在右边那里选择本机上的模板，那里很多很好的模板，做简单的文稿足够了

2.页面里的特效在标题栏的幻灯片放映→自定义动画里，你可以选择路径，出现时候的特效，退出时候的效果，有路径，则可以制作高级点的交互性文档，比如：连线
3.如何把自己从网上找的图片做为PPT模板？
在标题栏的视图→母版里把原来的母板里的图片删除了粘贴自己的图片，然后把位置大小调好，就可以了
4.如何把自己找的图片都应用到PPT里去，但是又不是作为母板？
在正文里右键→背景，在背景里有个下选框，选择填充效果你会看到图片，选择图片标签然后预览里上传你自己的图片
5.如何做链接？
打了一段文字后，选择文字，然后右键→超链接，然后你把它链接到你要链到的页面
同理，你打退出然后链到最后一页，则是一个按钮了
6.如何在PPT里插视频文件，（主要是SWF格式的）？
在标题栏里选择视图→工具箱→控件工具箱→在出现的图表里选择其他控件→SHOCK FLASH OBJECT 出现一个“ ”，你拖出一个视频窗口，然后双击它，在里面的MOVIE里粘上完整的路径：EG：F：/精武门.SWF 在embedmovie里把false改成ture，其他的不改
7.如何把百度里的视频变成可用的SWF文件插入到PPT中？
选择你要的影片或者视频，让它缓冲完后，在INTERNET的工具栏→internet选项→设置→找到文件把文件全删了，刷新后找到一个容量最大的文件，复制到你的电脑里就可以用了
8.文字的动画效果？
可以借助傻瓜软件FLAX制作，插入到PPT里去，或者用插入艺术字也可以，不过没那么美观
9.利用PPT的触发器来制作做练习题？
比如：奥运会在哪举行？A：北京 B：上海 C：天津你把ABC三个用不同的文本框打好字（不能用同一个文本框，不然没用）你把每个选项都添加一个效果：自定义动画→添加效果→飞入（自己选），然后出现一个下选框，你选择记时→然后设置为触发器就可以了，
这样，你点A的时候就触发了“你的答案是正确的”的动作
10.在幻灯片里加小图片如何设置为透明？
在标题栏的视图→工具箱→图片，然后里面有只笔一样的东西，你用那只笔点击图片就可以了
11.如何在一个PPT里用多种模板？
新建→然后在右边的模板里选择，会出现一个先拉的选项似的东西，你选择应用于选定模板就可以了
12，自己把文本框删除了，又要打字该怎么办？
别忘了，PPT下面有很多工具，有花直线的，箭头的，文本框的，无填充色的，===，你直接点那个文本框再到幻灯片里画一个框就可以了
13.如何把PPT作为网页一样阅读？
标题栏里→另存为→然后选择存的格式是网页，则你的PPT就是一个网页了
14，如何把别人PPT里的模板作为自己的图片？
可以直接用他的PPT或者在视图→母版→把它的图片拷贝下来，就可以了，图片还可以用firework处理就是你的图片了
二，PPT的一些要求
1. 要求字体尽量大一点，不能太小，毕竟不是给一个人在电脑里看的，而是要呈现给别人看的
2. 不能太花俏，尽量简洁，色彩不用太浓，如果是教学里常规用的，直接黑白的就够了
3. 字体首行一般要缩进两个字，做了就做规范一点
大家大家添砖加瓦，谢谢