**
 
如何在PPT中设置选择题？
 

 
 
 
 
 
 
 
 代码如下：
 Private Sub CommandButton1_Click()
 If OptionButton1.Value = True The
 // OptionButton1是设置的第一个选项名称，即点击属性的第一行，可以更改
 MsgBox “选择正确”
 Else
 MsgBox “选择错误”
 End If
 End Sub
 Private Sub CommandButton2_Click()
 OptionButton1.Value = False
 OptionButton2.Value = False
 OptionButton3.Value = False
 OptionButton4.Value = False
 End Sub
 Private Sub OptionButton1_Click()
 End Sub
 Private Sub OptionButton2_Click()
 End Sub
 Private Sub OptionButton3_Click()
 End Sub
 Private Sub OptionButton4_Click()
 End Sub
 
运行效果图：
 
 备注： 若要修改正确选项，则要修改代码第二行，即名称改为要修改的选项名称；此外，还要修改属性里的value一行，将要修改为正确选项的改为True;之前的选项value改为False
 
附加：如何打开ppt2010里的开发工具
 1.打开PPT2010，单击左上角的“文件”按钮，在弹出的列表中点击“选项”按钮
 2.在弹出的选项对话框中，单击“自定义功能区”
 3.在右侧找到“开发工具”并勾选
 点击“确定”按钮，我们需要的开发工具就显示出来了
 
删除线格式
 
新的改变
 
我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客：
 
全新的界面设计 ，将会带来全新的写作体验；
在创作中心设置你喜爱的代码高亮样式，Markdown 将代码片显示选择的高亮样式 进行展示；
增加了 图片拖拽 功能，你可以将本地的图片直接拖拽到编辑区域直接展示；
全新的 KaTeX数学公式 语法；
增加了支持甘特图的mermaid语法 功能；
增加了 多屏幕编辑 Markdown文章功能；
增加了 焦点写作模式、预览模式、简洁写作模式、左右区域同步滚轮设置 等功能，功能按钮位于编辑区域与预览区域中间；
增加了 检查列表 功能。
 
功能快捷键
 
撤销：Ctrl/Command + Z
 重做：Ctrl/Command + Y
 加粗：Ctrl/Command + B
 斜体：Ctrl/Command + I
 标题：Ctrl/Command + Shift + H
 无序列表：Ctrl/Command + Shift + U
 有序列表：Ctrl/Command + Shift + O
 检查列表：Ctrl/Command + Shift + C
 插入代码：Ctrl/Command + Shift + K
 插入链接：Ctrl/Command + Shift + L
 插入图片：Ctrl/Command + Shift + G
 查找：Ctrl/Command + F
 替换：Ctrl/Command + G
 
合理的创建标题，有助于目录的生成
 
直接输入1次#，并按下space后，将生成1级标题。
 输入2次#，并按下space后，将生成2级标题。
 以此类推，我们支持6级标题。有助于使用TOC语法后生成一个完美的目录。
 
如何改变文本的样式
 
强调文本 强调文本
 
加粗文本 加粗文本
 
标记文本
 
删除文本
 
 
 
引用文本
 
 
H2O is是液体。
 
210 运算结果是 1024.
 
插入链接与图片
 
链接: link.
 
图片: 
 
带尺寸的图片: 
 
居中的图片: 
 
居中并且带尺寸的图片: 
 
当然，我们为了让用户更加便捷，我们增加了图片拖拽功能。
 
如何插入一段漂亮的代码片
 
去博客设置页面，选择一款你喜欢的代码片高亮样式，下面展示同样高亮的 代码片.
 
// An highlighted block
var foo = 'bar';
 
生成一个适合你的列表
 
项目 
  
项目 
    
项目
 
 
 
项目1
项目2
项目3
 
 计划任务
 完成任务
 
创建一个表格
 
一个简单的表格是这么创建的：
 
项目
Value
电脑
$1600
手机
$12
导管
$1
设定内容居中、居左、居右
 
使用:---------:居中
 使用:----------居左
 使用----------:居右
 
第一列
第二列
第三列
第一列文本居中
第二列文本居右
第三列文本居左
SmartyPants
 
SmartyPants将ASCII标点字符转换为“智能”印刷标点HTML实体。例如：
 
TYPE
ASCII
HTML
Single backticks
'Isn't this fun?'
‘Isn’t this fun?’
Quotes
"Isn't this fun?"
“Isn’t this fun?”
Dashes
-- is en-dash, --- is em-dash
– is en-dash, — is em-dash
创建一个自定义列表
 
 
 
  Markdown
  
 

  Text-to-
  HTML conversion tool
 
 
 
  Authors
  
 

  John
 
 
 

  Luke
 
 
 
如何创建一个注脚
 
一个具有注脚的文本。
 
注释也是必不可少的
 
Markdown将文本转换为 HTML。
 
KaTeX数学公式
 
您可以使用渲染LaTeX数学表达式 KaTeX:
 
Gamma公式展示 $\Gamma (n)=(n-1)!\forall n\in \mathbb{N}$ 是通过欧拉积分
 
$$\Gamma (z)={\int }_0^{\infty }{t}^{z-1}{e}^{-t}dt.$$
 
 
 
你可以找到更多关于的信息 LaTeX 数学表达式here.
 
 
新的甘特图功能，丰富你的文章
 

 
 
关于 甘特图 语法，参考 这儿,
 
UML 图表
 
可以使用UML图表进行渲染。 Mermaid. 例如下面产生的一个序列图：
 

 
 
这将产生一个流程图。:
 

 
 
关于 Mermaid 语法，参考 这儿,
 
FLowchart流程图
 
我们依旧会支持flowchart的流程图：
 

 
 
关于 Flowchart流程图 语法，参考 这儿.
 
导出与导入
 
导出
 
如果你想尝试使用此编辑器, 你可以在此篇文章任意编辑。当你完成了一篇文章的写作, 在上方工具栏找到 文章导出 ，生成一个.md文件或者.html文件进行本地保存。
 
导入
 
如果你想加载一篇你写过的.md文件，在上方工具栏可以选择导入功能进行对应扩展名的文件导入，
 继续你的创作。
 
 
 
 
mermaid语法说明 ↩︎
 
注脚的解释 ↩︎
 
 

 相信很多朋友在演讲或培训的时候，都有时间控制不好的烦恼。我参加了一次培训，看到在ppt的左下角会显示时间，这是一个比较好的办法。回来后我到网络上搜寻了一下，如法炮制，用时间控件实现了这个功能。那究竟是如何实现呢，follow me。
 
 
    1. 找寻时间控件，网上有很多类似的控件，直接点击“时钟 
 flash
 ”之类的就可以找到了。下载下来。后缀格式是
 swf
 。把它拷贝到我们的
 ppt
 文件同一个目录下。如果你没有，可以联系我，发一个给你也行啊。
 
 
 
    2. 打开PPT（或新建一个），打开母版，直接在母版上建立，不需要在每个ppt上都加了。  
 
 
 
 
 
     3.  打开控件工具箱。
 
 
 
 
 
     4. 点击其它控件，选中：“shockwave flash object”然后把这个框按照你需要的大小摆放到一个合适的角落里。具体根据实际情况和爱好来定。我就不好说了。
 
 
 
 
 
     5. 双击控件的空框，会显示属性。在自定义栏中点击会弹出一个窗口，输入你用的flash时钟控件名字就可以了。
 
 
 
 
 
     如不显示属性窗口，那就按照下面的指示在菜单中打开就是了。
 
 
     6. 插入好后保存一下。最好关闭后重新打开一下，然后选择播放模式，看是否正常。至此就大功告成了。是不是很简单？
 
 
 
 

 
 
作者:原创
 
 
为了更好的通过OLE控制PPT的播放,我们需要清楚的知道每页PPT中各个动画效果的播放次序及相关时间特性.
 
 
相关PPT对象及属性：
 
 
ActivePresentation：返回一个 Presentation 对象，该对象代表在活动窗口中打开的演示文稿。
Slides.Item(i)：代表一个幻灯片。Slides 集合包含演示文稿中的所有Slide 对象。
TimeLine：返回 TimeLine 对象，该对象代表幻灯片的动画日程表。
MainSequence.Item(j)：返回幻灯片的主动画序列中的一个 Effect 对象,代表有关幻灯片动画的计时信息。
Timing：返回 Timing 对象，该对象代表动画序列的计时属性。
Speed：返回或设置 Single 类型值，该值代表指定动画的速度（以秒为单位）。可读写。
TriggerDelayTime：设置或返回 Single 类型值，该值代表启用动画触发器后产生的延时（以秒为单位）。可读写。
Duration：返回或设置 Single 数值，该值代表以秒为单位的动画长度。可读写。
RepeatCount：设置或返回 Long 类型值，该值代表重复动画所需的次数。可读写。
RepeatDuration：设置或返回 Single 类型值，该值代表重复动画应持续的时间（以秒为单位）。可读写。
 
 
暂时用到这么多对象及属性，更多详细信息请查阅：PowerPoint Visual Basic参考
 
 
VBA代码：
 
 
Sub Macro1()
 '
 ' 宏由 mq 记录，日期: 2008-10-9
 '
 Dim i As Integer
 Dim j As Integer
 Dim k As Integer
 
 
Dim tmpSpeed As Single
 Dim tmpDelay As Single
 Dim tmpTypa As Integer
 Dim tmpStr, tmpstr2 As String
 Dim tmpBehavior As AnimationBehavior
 Dim Paragraph As Long
 Dim Duration As Single
 Dim RepeatCount As Single
 Dim RepeatDuration As Single
 
 

     ActiveWindow.Selection.Unselect
     ActivePresentation.Save
     tmpstr2 = "页" + Chr(9) + "效果" + Chr(9) + "触发条件" + Chr(9) + "速度" + Chr(9) + "延时" + Chr(9) + "时长" + Chr(9) + "重复" + Chr(9) + "循环延时"
     For i = 6 To ActivePresentation.Slides.Count
         For j = 1 To ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Count
                 
                 tmpType = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.TriggerType
                 Select Case tmpType
                 Case msoAnimTriggerAfterPrevious
                     tmpStr = "继前一个后"
                 Case msoAnimTriggerMixed
                     tmpStr = "混合"
                 Case msoAnimTriggerNone
                     tmpStr = "无"
                 Case msoAnimTriggerOnPageClick '默认值?
                     tmpStr = "单击页面"
                 Case msoAnimTriggerOnShapeClick
                     tmpStr = "单击形状"
                 Case msoAnimTriggerWithPrevious
                     tmpStr = "与上一个同时"
                 End Select
                
                 tmpSpeed = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.Speed
                 tmpDelay = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.TriggerDelayTime
                 Duration = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.Duration
                 RepeatCount = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.RepeatCount
                 RepeatDuration = ActivePresentation.Slides.Item(i).TimeLine.MainSequence.Item(j).Timing.RepeatDuration
                 
                 tmpstr2 = tmpstr2 + Chr(13) + Chr(10) + CStr(i) + Chr(9) + CStr(j) + Chr(9) + tmpStr + Chr(9) _
                  + CStr(tmpSpeed) + Chr(9) + CStr(tmpDelay) + Chr(9) + CStr(Duration) + Chr(9) + CStr(RepeatCount) + Chr(9) + CStr(RepeatDuration)
                 
         Next
         Exit For
     Next
     Response = MsgBox(tmpstr2, vbOKOnly, "", "", 0)
 End Sub
 
 
 
执行效果：
 
 
 
 
 
 
 
 Delphi的应用方法与VBA基本相同，取相应的属性就可以了。
 
 
本文为作者原创，可自由转载，但需注明出处，及本博客地址。
 

ppt视频音画不同步怎么解决？ppt音画同步设置方法
 ppt在演示时经常有很多问题。比如当播放音乐时，当播放音乐时，自定义动画会停止，直到音乐结束后，音乐自定义动画会继续。或者发现声音跟不上，或者动画太慢，声音太快，ppt视频音画不同步。我们最常用的方法是使用ppt动画窗的持续时间，不断调整文字出现的时间和声音，需要反复仔细调整，浪费时间和精力，相当麻烦。为了避免这种情况，我们可以设置PPT音频同步。接下来，让我们来看看ppt怎么和音频同步。
 
1、打开PPT，输入需要显示动画效果的文字；
 
ppt怎么和音频同步
 
2、文字输入完成后，单击上面的动画；
 
ppt怎么和音频同步
 
3、然后找到右边的动画窗格；
 
ppt怎么和音频同步
 
4、在右侧会出现【动画窗格】，点击第一个设置动画效果；
 
ppt怎么和音频同步
 
5、单击声音，选择其他声音；
 
ppt怎么和音频同步
 
6、最后选择对应文字的声音文件即可。
 
ppt怎么和音频同步
 
以上是ppt音画同步的设置方法，希望本教程的内容能对大家有所帮助！