以编程方式添加的 OLEbject (OptionButton) 不可点击 (PowerPoint VBA)答案

【问题标题】：Programmatically Added OLEbject (OptionButton) not clickable (PowerPoint VBA)以编程方式添加的 OLEbject (OptionButton) 不可点击 (PowerPoint VBA)
【发布时间】：2018-01-10 05:40:04
【问题描述】：

我正在使用 VBA 添加选项按钮和复选框来构建幻灯片，但是在演示模式下添加时这些不是“可点击的”。如果选项按钮以普通视图存在于幻灯片上，然后我在该幻灯片上进入演示视图，则选项按钮可在几分之一秒后单击。看起来好像选项按钮最初是作为图片加载的，然后几乎立即变为可操作的对象（分辨率也提高了）。

如果在演示视图中添加选项按钮，则对象几乎保持为图像并且不可点击。

如果幻灯片上已经存在选项按钮，但我不知道如何在 VBA 中复制它，我可以看到当我进入演示模式时发生了一些事情，就像我需要刷新幻灯片或激活选项按钮一样作为对象。

我正在添加这样的选项按钮：

Set newCtrl = ActivePresentation.Slides(2).Shapes.AddOLEObject(ClassName:="Forms.OptionButton.1")

        With newCtrl.OLEFormat.Object
            .Height = 30
            .Top = 150
            .Left = 150
            .Width = ActivePresentation.PageSetup.SlideWidth - 80 - .Left
            .Caption = "Some Caption"
            .BackStyle = 0
        End With

【问题讨论】：

此外，我注意到将演示文稿设置为白/黑屏然后恢复正常也允许单击选项按钮。

标签： vba powerpoint

【解决方案1】：

我认为这不是一个真正的答案，更多的是一种解决方法，但根据我上面的评论，以下允许在添加选项按钮后单击它们。

SlideShowWindows(1).View.State = ppSlideShowBlackScreen
SlideShowWindows(1).View.State = ppSlideShowRunning

【讨论】：