ppt宏怎么写( 二 ) _ppt

新建→然后在右边的模板里选择，会出现一个先拉的选项似的东西，你选择应用于选定模板就可以了
12，自己把文本框删除了，又要打字该怎么办？
别忘了，PPT下面有很多工具，有花直线的，箭头的，文本框的，无填充色的，===，你直接点那个文本框再到幻灯片里画一个框就可以了
13.如何把PPT作为网页一样阅读？
标题栏里→另存为→然后选择存的格式是网页，则你的PPT就是一个网页了
14，如何把别人PPT里的模板作为自己的图片？
可以直接用他的PPT或者在视图→母版→把它的图片拷贝下来，就可以了，图片还可以用firework处理就是你的图片了
二，PPT的一些要求
1. 要求字体尽量大一点，不能太小，毕竟不是给一个人在电脑里看的，而是要呈现给别人看的
2. 不能太花俏，尽量简洁，色彩不用太浓，如果是教学里常规用的，直接黑白的就够了
3. 字体首行一般要缩进两个字，做了就做规范一点
大家大家添砖加瓦，谢谢
3.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. = 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即可。
4.幻灯片演示文稿（PPT）里的“宏”是干什么用的宏就是一个偷懒的命令编好一个宏以后可以1步解决很多繁琐的设置宏可以在所有PPT中使用前提要保存好给你一个简单的宏Sub 批量替换（）Dim ChangedCount As IntegerDim FileName As String, Mask As StringDim FindCount As LongDim CurPresentation As PresentationDim Path As String, FindString As String, ReplaceString As StringDim oSld As SlideDim oShp As ShapeDim oTxtRng As TextRangeDim oTmpRng As TextRange Path = InputBox（"请输入路径名称："， "参数输入（1/3）") FindString = InputBox（"请输入查找文本："， "参数输入（2/3）") ReplaceString = InputBox（"请输入替换文本："， "参数输入（3/3）") If Path = "" Or FindString = "" Or ReplaceString = "" Then MsgBox "每个参数均不能为空！"， vbCritical， "出错" Exit Sub End If ChangedCount = 0 FindCount = 0 Mask = "*.ppt" If Right(Path, 1)