Question

我正在使用VBA在PowerPoint中编写程序。我想要特定的代码与OnSlideShowPageChange（）事件一起运行。我确信事件本身是有效的，因为这段代码运行良好：

MsgBox(Var1 & Var2 & Var3)

我想在幻灯片1 上运行定义全局变量的代码，并使用以下代码：

@PreAuthorize

第二个例子是我遇到麻烦的地方。代码只在幻灯片1上运行，但是当我放置一个像这样的MsgBox时：BASE <http://example/XYZ/> MsgBox将不会出现。我认为声明有问题，但我不确定它是什么。有人可以帮我这个吗？感谢。

Answer 1

公共/全局变量需要在任何过程之外声明 - 通常在模块的顶部。

您无法在子资料中声明它们，但您可以设置它们的值。

Public Var1 As Integer
Public Var2 As Integer
Public Var3 As String

Sub OnSlideShowPageChange()

    Dim CurSlide As Integer
    CurSlide = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If CurSlide = 1 Then
        Var1 = 0
        Var2 = 0
        Var3 = "MyString"
    End If

End Sub

为什么我的变量声明无效？

1 个答案: