Powerpoint中的切换按钮

Question

我试图将切换按钮插入到PowerPoint的几页中。 我有按我想要的方式运行的按钮，但是现在我看不到要做两件事：

A.运行程序！！！ 除了我的第一个代码（见下文）外，我已删除所有内容并从头开始，并且没有其他内容。 我需要修复什么。 当我单击连接到YourName（）的形状时，没有任何反应。

B.我想在一开始将按钮的值设置为0。 一旦运行，您认为我的代码会做到吗？

谢谢

Sub YourName()
Dim userName As String
Dim ToggleButton1 As ToggleButton
Dim ToggleButton2 As ToggleButton
Dim ToggleButton3 As ToggleButton
Dim ToggleButton4 As ToggleButton
Dim done As Boolean

done = False
While Not done
userName = InputBox(Prompt:="My name is", Title:="Input Name")
   If userName = "" Then
    done = False
Else
    done = True
End If
Wend

FeedbackAnswered = False

ActivePresentation.Slides(2).ToggleButton("ToggleButton1").Value = 0
ActivePresentation.Slides(2).ToggleButton("ToggleButton2").Value = 0
ActivePresentation.Slides(2).ToggleButton("ToggleButton3").Value = 0
ActivePresentation.Slides(2).ToggleButton("ToggleButton4").Value = 0


ActivePresentation.SlideShowWindow.View.Next

End Sub

Answer 1

您的代码将无法编译（打开IDE，打开代码所在的模块，选择“调试” |“编译”）。 当您尝试在幻灯片放映中运行损坏的代码时（看起来好像您在这样做），PPT不会发出任何错误消息，而根本不会尝试运行该代码。

这至少可以编译； 我没有时间来创建具有正确形状的演示文稿，但是，嘿，不得不给您一些乐趣：

Option Explicit

Sub YourName()
Dim userName As String

' Dim these as Object; there's no such thing as ToggleButton
Dim ToggleButton1 As Object
Dim ToggleButton2 As Object
Dim ToggleButton3 As Object
Dim ToggleButton4 As Object
Dim done As Boolean
' You forgot one:
Dim FeedbackAnswered As Boolean

done = False
While Not done
userName = InputBox(Prompt:="My name is", Title:="Input Name")
   If userName = "" Then
    done = False

'您可能要在此处添加一个退出子，否则可怜的'用户将无路可走

Else
    done = True
End If
Wend

FeedbackAnswered = False

' Fixed these too:
ActivePresentation.Slides(2).Shapes("ToggleButton1").OLEFormat.Object.Value = 0
ActivePresentation.Slides(2).Shapes("ToggleButton2").OLEFormat.Object.Value = 0
ActivePresentation.Slides(2).Shapes("ToggleButton3").OLEFormat.Object.Value = 0
ActivePresentation.Slides(2).Shapes("ToggleButton4").OLEFormat.Object.Value = 0


ActivePresentation.SlideShowWindow.View.Next

End Sub