魔兽世界里的宏怎么写

1. ppt宏怎么写

ppt宏怎么写

1.幻灯片（ppt）里的“宏”是什么

ppt宏是指自己编写的命令。

可以通过编写宏来让office里的软件自动执行一系列操作。至于宏的作用，对于经常使用office的人来说还是比较大的，比如批量处理文章内文字的替换，修改等等。

宏也是一种操作命令，它和菜单操作命令都是一样的，只是它们对数据库施加作用的时间有所不同，作用时的条件也有所不同。

使用方法如下：

1、打开PPT文件。

2、点击文件选项卡之后，我们可以看到下拉列表，然后我们选择图中的选项

3、选择之后，我们可以看到系统弹出的对话框，这里会有一个信任中心的选项，在这个信任中心的选项中我们可以进行相关的设置，这里有很多的安全设置方式。

4、点击信任中心，我们在信任中心对话框中右侧下方的按钮，这里是信任中心设置按钮，点击这个按钮，我们可以进行这个信任中心中的设置。

5、打开信任中心设置之后，我们可以看到相关于宏的设置，我们可以看到有使用宏，启用宏，以及禁用宏，进行哪一种设置就选中哪一个选项，然后点击确定。

2.ppt中如何使用宏

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. 字体首行一般要缩进两个字，做了就做规范一点

大家大家添砖加瓦，谢谢

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

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) <> "\" Then Path = Path & "\" FileName = Dir(Path & Mask) On Error Resume Next Err.Clear Do Until FileName = "" DoEvents Set CurPresentation = Presentations.Open(FileName:=Path & FileName, ReadOnly:=msoFalse, WithWindow:=msoFalse) For Each oSld In CurPresentation.Slides For Each oShp In oSld.Shapes Err.Clear Set oTxtRng = oShp.TextFrame.TextRange If Err.Number = 0 Then Set oTmpRng = oTxtRng.Replace(FindWhat:=FindString, _ Replacewhat:=ReplaceString, MatchCase:=False, _ WholeWords:=True) If oTmpRng Is Nothing Then oTxtRng = Replace(oTxtRng, FindString, ReplaceString, , , vbTextCompare)'解决中文无法替换问题（下同） Do While Not oTmpRng Is Nothing FindCount = FindCount + 1 Set oTxtRng = oTxtRng.Characters(oTmpRng.Start + oTmpRng.Length, _ oTxtRng.Length) Set oTmpRng = oTxtRng.Replace(FindWhat:=FindString, _ Replacewhat:=ReplaceString, MatchCase:=False, _ WholeWords:=True) If oTmpRng Is Nothing Then oTxtRng = Replace(oTxtRng, FindString, ReplaceString, , , vbTextCompare) Loop End If Next oShp Next oSld CurPresentation.Save CurPresentation.Close FileName = Dir Loop MsgBox "替换完毕！" CloseEnd Sub。