Run 方法

运行指定演示文稿的幻灯片放映。返回一个 SlideShowWindow 对象。

expression.Run

expression 必选。该表达式返回上述对象之一。

说明

若要运行自定义幻灯片放映，请将 RangeType 属性设为 ppShowNamedSlideShow，并将 SlideShowName 属性设为要运行的自定义放映的名称。

运行 Visual Basic 过程。

expression.Run(MacroName, safeArrayOfParams)

expression 必选。该表达式返回上述对象之一。

MacroName 必选。String 类型。要运行的过程名称。该字符串可包含下列内容：后跟感叹号（!）的加载演示文稿或加载宏文件名、后跟句号的有效模块名称以及过程名称。例如，字符串“MyPres.ppt!Module1.Test”是一个有效 MacroName 值。

safeArrayOfParams 必选。Variant 类型。传递给该过程的参数。不能为此参数指定对象，也不能使用该方法的命名参数。参数必须通过地址传递。

示例

本示例开始播放当前演示文稿的一个全屏幻灯片放映，并禁用快捷键。

With ActivePresentation.SlideShowSettings
    .ShowType = ppShowSpeaker
    .Run.View.AcceleratorsEnabled = False
End With

本示例运行名为“Quick Show”的幻灯片放映。

With ActivePresentation.SlideShowSettings
    .RangeType = ppShowNamedSlideShow
    .SlideShowName = "Quick Show"
    .Run
End With

在本示例中，Main 过程定义一个数组，然后执行宏 TestPass，将该数组作为参数传递。

Sub Main()
    Dim x(1 To 2)
    x(1) = "hi"
    x(2) = 7
    Application.Run "TestPass", x
End Sub

Sub TestPass(x)
    MsgBox x(1)
    MsgBox x(2)
End Sub