ppt控件

可以在幻灯片中添加控件，从而提供一种完善的方法在幻灯片放映时与用户交换信息。例如，在为展台所设计的幻灯片中可以使用控件，使观众能选择选项，然后基于观众的选项运行自定义放映。

有关添加和使用控件的一般信息，请参阅在文档中使用 ActiveX 控件和创建自定义对话框。

在幻灯片中使用控件时，请记住以下几点：

除了在幻灯片放映运行时，幻灯片中的控件都处于设计模式。 ? 如果希望控件显示在演示文稿的所有幻灯片中，可以将其添加到幻灯片母

版中。

? 幻灯片中控件事件过程的 Me 关键字指向幻灯片，而非控件。

?

为幻灯片的控件编写事件代码与为窗体的控件编写事件代码非常类似。单击幻灯片按钮“cmdChangeColor”时，以下过程设置该按钮所在的幻灯片的背景为激活状态。

Private Sub cmdChangeColor_Click() With Me

.FollowMasterBackground = Not .FollowMasterBackground .Background.Fill.PresetGradient _

msoGradientHorizontal, 1, msoGradientBrass End With End Sub

您可能需要使用控件为幻灯片提供比 Microsoft PowerPoint 内置工具更复杂的漫游工具。例如，如果在幻灯片母版中添加两个名为“cmdBack”和

“cmdForward”的按钮，并为其编写下面的代码，所有基于该母版（并设为显示幻灯片母版背景图形）的幻灯片在放映幻灯片时，将激活这些看起来非常专业化的导航按钮。

Private Sub cmdBack_Click()

Me.Parent.SlideShowWindow.View.Previous End Sub

Private Sub cmdForward_Click()

Me.Parent.SlideShowWindow.View.Next End Sub

若要在不影响幻灯片中其他形状的情况下操作所有 ActiveX 控件，可以创建一个只包含控件的ShapeRange集合。然后可以对整个集合应用属性和方法，或对集合进行重复操作以单独使用每个控件。以下示例将当前演示文稿中第一张幻灯片的所有控件对齐并垂直排列。

With ActivePresentation.Slides(1).Shapes numShapes = .Count If numShapes > 1 Then numControls = 0

ReDim ctrlArray(1 To numShapes) For i = 1 To numShapes

If .Item(i).Type = msoOLEControlObject Then numControls = numControls + 1

ctrlArray(numControls) = .Item(i).Name End If Next

If numControls > 1 Then

ReDim Preserve ctrlArray(1 To numControls) Set ctrlRange = .Range(ctrlArray)

ctrlRange.Distribute msoDistributeVertically, True ctrlRange.Align msoAlignLefts, True End If End If End With 多个对象

ActionSettings (ActionSetting)

Hyperlink

SoundEffect

包含指定形状或文本范围在幻灯片放映中对鼠标动作的反应的信息。

ActionSetting对象是ActionSettings集合的成员。ActionSettings集合包含一个 ActionSetting对象（该对象代表幻灯片放映中用户单击指定对象时的反

应）和一个 ActionSetting对象（该对象代表幻灯片放映中用户将鼠标移过指定对象时的反应）。

使用 ActionSetting对象

使用 ActionSettings(index) 返回单个 ActionSetting对象，其中 index 是 ppMouseClick 或 ppMouseOver。以下示例设定单击当前演示文稿第一张幻灯片第三个形状中的文本时，连接到 Internet 上。

With ActivePresentation.Slides(1).Shapes(3) _

.TextFrame.TextRange.ActionSettings(ppMouseClick) .Action = ppActionHyperlink

.Hyperlink.Address = \End With

说明

如果设置了 ActionSetting对象的属性但没有效果，请确认将Action属性设为相应的值。

使用 ActionSettings集合

使用ActionSettings属性返回 ActionSettings集合。使用

ActionSettings(index) 返回单个 ActionSetting对象，其中 index 是

ppMouseClick 或 ppMouseOver。以下示例指定幻灯片放映中鼠标移过某形状时执行宏“CalculateTotal”。

With ActivePresentation.Slides(1).Shapes(3) _ .ActionSettings(ppMouseOver) .Action = ppActionRunMacro .Run = \

.AnimateAction = True End With

加载或未加载的对象都代表单个加载宏。AddIn对象是AddIns集合的成员之一。无论是否加载 PowerPoint 指定的加载宏，AddIns集合都包含所有可用的加载宏。该集合不包含组件对象模型 (COM) 加载宏。

使用 AddIn对象

使用 AddIns(index) 返回单个 AddIn对象，其中 index 是加载宏的标题或索引编号。以下示例加载 My Ppt Tools 加载宏。

AddIns(\

不要将显示在上方的加载宏标题与加载宏名称相混淆，该名称是加载宏的文件名。在 Add-Ins对话框中键入该标题时必须正确拼写，但是不一定要大写匹配。

索引编号代表了加载宏在 Add-Ins对话框的可用 Add-Ins 列表中的位置。以下示例显示了当前 PowerPoint 中加载的所有加载宏的名称。

For i = 1 To AddIns.Count

If AddIns(i).Loaded Then MsgBox AddIns(i).Name Next

说明

可以使用Add方法向可用加载宏列表中添加与 PowerPoint 相关的加载宏。注意，使用该方法并不会加载加载宏。如果要加载加载宏，请在使用 Add方法后将加载宏的Loaded属性设为 True。可以单步执行这些动作，如以下示例所示（注意，Add方法使用加载宏名称而不使用标题）。