《ppt控件》由会员分享,可在线阅读,更多相关《ppt控件(47页珍藏版)》请在金锄头文库上搜索。
1、可以在幻灯片中添加控件,从而提供一种完善的方法在幻灯片放映时与用户交 换信息。例如,在为展台所设计的幻灯片中可以使用控件,使观众能选择选项, 然后基于观众的选项运行自定义放映。有关添加和使用控件的一般信息,请参阅在文档中使用 ActiveX 控件和创建自 定义对话框。在幻灯片中使用控件时,请记住以下几点: 除了在幻灯片放映运行时,幻灯片中的控件都处于设计模式。 如果希望控件显示在演示文稿的所有幻灯片中,可以将其添加到幻灯片 母版中。 幻灯片中控件事件过程的 Me 关键字指向幻灯片,而非控件。为幻灯片的控件编写事件代码与为窗体的控件编写事件代码非常类似。单击幻 灯片按钮“cmdChangeCol
2、or”时,以下过程设置该按钮所在的幻灯片的背景为 激活状态。Private Sub cmdChangeColor_Click()With Me.FollowMasterBackground = Not .FollowMasterBackground.Background.Fill.PresetGradient _msoGradientHorizontal, 1, msoGradientBrassEnd With End Sub您可能需要使用控件为幻灯片提供比 Microsoft PowerPoint 内置工具更复杂 的漫游工具。例如,如果在幻灯片母版中添加两个名为“cmdBack”和 “cmd
3、Forward”的按钮,并为其编写下面的代码,所有基于该母版(并设为显 示幻灯片母版背景图形)的幻灯片在放映幻灯片时,将激活这些看起来非常专 业化的导航按钮。Private Sub cmdBack_Click()Me.Parent.SlideShowWindow.View.Previous End Sub Private Sub cmdForward_Click()Me.Parent.SlideShowWindow.View.Next End Sub若要在不影响幻灯片中其他形状的情况下操作所有 ActiveX 控件,可以创建一 个只包含控件的 ShapeRange 集合。然后可以对整个集合应用
4、属性和方法,或对 集合进行重复操作以单独使用每个控件。以下示例将当前演示文稿中第一张幻 灯片的所有控件对齐并垂直排列。With ActivePresentation.Slides(1).ShapesnumShapes = .CountIf numShapes 1 ThennumControls = 0ReDim ctrlArray(1 To numShapes)For i = 1 To numShapesIf .Item(i).Type = msoOLEControlObject ThennumControls = numControls + 1ctrlArray(numControls) =
5、 .Item(i).NameEnd IfNextIf numControls 1 ThenReDim Preserve ctrlArray(1 To numControls)Set ctrlRange = .Range(ctrlArray)ctrlRange.Distribute msoDistributeVertically, TruectrlRange.Align msoAlignLefts, TrueEnd IfEnd If End With 多个对象ActionSettings (ActionSetting)HyperlinkSoundEffect包含指定形状或文本范围在幻灯片放映中对
6、鼠标动作的反应的信息。 ActionSetting 对象是 ActionSettings 集合的成员。ActionSettings 集合包含 一个 ActionSetting 对象(该对象代表幻灯片放映中用户单击指定对象时的反应)和一个 ActionSetting 对象(该对象代表幻灯片放映中用户将鼠标移过指 定对象时的反应)。使用使用 ActionSettingActionSetting 对象对象使用 ActionSettings(index) 返回单个 ActionSetting 对象,其中 index 是 ppMouseClick 或 ppMouseOver。以下示例设定单击当前演示文稿
7、第一张幻灯片 第三个形状中的文本时,连接到 Internet 上。With ActivePresentation.Slides(1).Shapes(3) _.TextFrame.TextRange.ActionSettings(ppMouseClick).Action = ppActionHyperlink.Hyperlink.Address = “http:/“ End With说明说明如果设置了 ActionSetting 对象的属性但没有效果,请确认将 Action 属性设 为相应的值。使用使用 ActionSettingsActionSettings 集合集合使用 ActionSett
8、ings 属性返回 ActionSettings 集合。使用 ActionSettings(index) 返回单个 ActionSetting 对象,其中 index 是 ppMouseClick 或 ppMouseOver。以下示例指定幻灯片放映中鼠标移过某形状时 执行宏“CalculateTotal”。With ActivePresentation.Slides(1).Shapes(3) _.ActionSettings(ppMouseOver).Action = ppActionRunMacro.Run = “CalculateTotal“.AnimateAction = True En
9、d With加载或未加载的对象都代表单个加载宏。AddIn 对象是 AddIns 集合的成员之一。 无论是否加载 PowerPoint 指定的加载宏,AddIns 集合都包含所有可用的加载 宏。该集合不包含组件对象模型 (COM) 加载宏。使用使用 AddInAddIn 对象对象使用 AddIns(index) 返回单个 AddIn 对象,其中 index 是加载宏的标题或索 引编号。以下示例加载 My Ppt Tools 加载宏。AddIns(“my ppt tools“).Loaded = True不要将显示在上方的加载宏标题与加载宏名称相混淆,该名称是加载宏的文件 名。在 Add-Ins
10、 对话框中键入该标题时必须正确拼写,但是不一定要大写匹配。索引编号代表了加载宏在 Add-Ins 对话框的可用 Add-Ins 列表中的位置。以下示例显示了当前 PowerPoint 中加载的所有加载 宏的名称。For i = 1 To AddIns.CountIf AddIns(i).Loaded Then MsgBox AddIns(i).Name Next说明说明可以使用 Add 方法向可用加载宏列表中添加与 PowerPoint 相关的加载宏。注 意,使用该方法并不会加载加载宏。如果要加载加载宏,请在使用 Add 方法后 将加载宏的 Loaded 属性设为 True。可以单步执行这些动
11、作,如以下示例所示 (注意,Add 方法使用加载宏名称而不使用标题)。AddIns.Add(“generic.ppa“).Loaded = True使用 AddIns(index) 可返回一个对已加载的加载宏的引用,其中 index 表示 加载宏的标题。以下示例将变量 presAddin 设置成标题为“my ppt tools”的 加载宏,并将变量 myName 设置成该加载宏的名称。Set presAddin = AddIns(“my ppt tools“) With presAddinmyName = .Name End With它包含指定的自选图形、艺术字对象或连接符的调整值的集合。每个
12、调整值代 表了调整句柄可以调整的方向。因为某些调整句柄有两个调整方向(例如,某 些调整句柄可以在水平和垂直两个方向调整),所以形状的调整指数量可以大 于调整句柄的数量。一个形状最多可有八种调整。使用使用 AdjustmentsAdjustments 对象对象使用 Adjustments 属性返回 Adjustments 对象。使用 Adjustments(index) 返 回单个调整值,其中 index 是调整值的索引编号。不同的形状有不同数量的调整值,不同的调整值以不同的方式改变形状的几何 外形,且不同的调整值有不同的有效值范围。例如,以下示例显示右箭头标注 的四个调整值分别如何影响该标注几
13、何外形的定义。注意 由于每个形状有不同的调整值集,校验指定形状的调整行为的最好方法 是手动创建一个图例,在打开宏记录器的情况下作调整,然后检查记录的代码。下表总结了不同类型调整值的有效范围。大多数情况下,如果指定了超出有效 范围的值,调整值将被分配一个最接近所设值的有效值。调整类型调整类型有效值有效值线性(水平或垂直)通常 0.0 值代表形状的左边界或上边界,而 1.0 值代 表形状的右边界或下边界。有效值对应于有效的手动调 整。例如,如果只能将调整控点手动拖动形状的一半宽 度,则相应的调整值最大为 0.5。对于象连接符和标注 这样的形状,0.0 和 1.0 值代表由它们的起始和终止 点定义的
14、矩形界限,此时负值和大于 1.0 的值是有效 的。径向调整值 1.0 对应于形状宽度。最大值为 0.5,或形状宽 度的一半。角度调整值用度表示。如果指定的值超出了 - 180 到 180 这个范围,就将它在该范围内标准化。以下示例向 myDocument 中添加右箭头标注,并且设置该标注的调整值。请注 意,尽管形状只有三个调整句柄,但是它有四个调整值。第三和第四个调整值 都和箭头头部和颈部间的调整句柄相对应。Set myDocument = ActivePresentation.Slides(1) Set rac = myDocument.Shapes _.AddShape(msoShapeR
15、ightArrowCallout, 10, 10, 250, 190) With rac.Adjustments.Item(1) = 0.5 adjusts width of text box.Item(2) = 0.15 adjusts width of arrow head.Item(3) = 0.8 adjusts length of arrow head.Item(4) = 0.4 adjusts width of arrow neck End WithAnimationBehaviorsAnimationBehavior多个对象代表动画效果的动作、主动画序列或交互式动画序列。Anim
16、ationBehavior 对 象是 AnimationBehaviors 集合中的成员。使用使用 AnimationBehaviorAnimationBehavior 对象对象使用 Behaviors(index) 返回单个 AnimationBehavior 对象,其中 index 是动 作序列中动作的编号。以下示例设置旋转的起点和终点的位置。本示例假设主 动画序列的第一个动作是一个 RotationEffect 对象。Sub Change()With ActivePresentation.Slides(1).TimeLine.MainSequence(1) _.Behaviors(1).RotationEffect.From = 1.To = 180End With End SubEffectAnimationBehaviorsAnimationBehavior代表 AnimationBehavior 对象的集合。使用使用 AnimationBehaviorsAnimationB