重置ToggleButtons

Question

我希望将powerpoint中的所有togglebuttons设置为＆＃34; false＆＃34; （未按下）启动程序。有什么想法为什么这种代码工作？

Sub Start()
ActivePresentation.Slides(4).ToggleButton1.Value = 0
ActivePresentation.Slides(4).ToggleButton4.Value = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

谢谢！

Answer 1

语法

ActivePresentation.Slides(4).ToggleButton1.Value = 0

是正确的;我刚刚对它进行了测试，但它确实有效。

你是否真的在任何时候打电话给Sub？简单地命名它Start（）是不够的。

Related question re. running code on startup, could be helpful.

Answer 2

我有一个问题叫这个

ActivePresentation.Slides(4).ToggleButton1.Value = 0

获取我假设的错误Method or data member not found是一个范围问题。 VBA编辑器不会自动完成.ToggleButton1，它支持我得到的错误。 因此，它似乎错误地引用了对象。

为了纠正这个问题，我做了以下工作。

Public Sub ToggleThisButton()
    ' This is code on Slide 1 referencing control on slide 4
    ActivePresentation.Slides(4).Shapes("ToggleButton1").OLEFormat.Object.Value = 1
End Sub

摘自MSDN

  

将OLEFormat属性用于形状，内联形状或字段   返回OLEFormat对象。以下示例显示该类   键入活动文档上的第一个形状。

     

使用对象   返回表示ActiveX控件或OLE的对象的属性   宾语。使用此对象，您可以使用属性和方法   容器应用程序或ActiveX控件。