ppt中如何使用宏.docVIP

ppt中如何使用宏 我有一些ppt，我想把里面的字体全部设置成黑体，白色，如何用宏做到？给段编码也成，附上简短教程。谢谢了 利用宏批量改变字体 在视图中选择宏（早期版本可能要在插入中找），输入任意的宏名，点击创建。 ?在新代码窗口中，删除原来的内容，并复制以下内容，然后运行宏（若不能运行，请看下面）。此时工作已经全部完成了。 Sub myfont() Dim oShape As ShapeDim oSlide As SlideDim oTxtRange As TextRangeOn Error Resume Next 之后的代码就算出错也会继续执行 For Each oSlide In ActivePresentation.SlidesoSlide.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 WithoShape.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.CountFor j = 1 To oShape.Table.Columns.CountoShape.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 WithNext jNext i NextNext 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中？选择你要