Question

我是VBA的新手，对于在VBA中的PowerPoint演示文稿中阅读当前幻灯片中的文本框有疑问。我有一些代码，但它不起作用，我不知道如何在演示模式下调试。我很感激你能给我的任何你，因为这非常重要。谢谢！

PS：我在Mac上工作

Sub answer()
    Dim myInput As String
    Dim sld As Slide
    Set sld = Application.ActiveWindow.View.Slide
    myInput = sld.Shapes(4).TextFrame.TextRange.Text
    A = InputBox(prompt:="Your Answer:")
    MsgBox (myInput)
    If A = myInput Then
        MsgBox ("Correct!")
        ActivePresentation.SlideShowWindow _
        .View.GotoSlide Int(Rnd * _
        ActivePresentation.Slides.Count) + 1
    Else
        MsgBox ("Sorry, try again...")
    End If
End Sub

Answer 1

你不能使用

设置sld = Application.ActiveWindow.View.Slide

如果您处于幻灯片放映模式。

使用

设置osld = SlideShowWindows（1）.View.Slide

关于在VBA中读取当前幻灯片上的文本框

1 个答案: