Question

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

如果在演示文稿视图中添加了选项按钮，则该对象几乎仍然是图像，不可点击。

当我进入演示模式时，如果幻灯片上已存在选项按钮但我不知道如何在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

Answer 1

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

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

以编程方式添加OLEbject（OptionButton）不可点击（PowerPoint VBA）

1 个答案: