使用CommandButton VBA将PowerPoint幻灯片添加到文本框

Question

我在PowerPoint演示文稿的幻灯片母版中有一个命令按钮和一个文本框。我正在尝试检索PowerPoint的属性，如SlideID，SlideIndex和相应文件的名称，并在单击命令按钮时将它们发布到文本框中。

目前我有这个代码，但它给了我一个错误：

Sub CommandButton1_Click()
   Dim Index As Long
   Dim SlideId as Long
   Dim FileName as String 

   TextBox1.Text = "SlideIndex:" & Index & "Slide ID:" & SlideId 

End Sub

我想要将power point的第1页读作slideIndex 1 SlideID 1和文件名。对于幻灯片2，我希望它能说出所有两个等等......

提前致谢！

Answer 1

如果您愿意，可以使用命令按钮;或者您可以使用任何要绘制的PowerPoint形状，为其指定“运行宏”的“动作设置”，并选择要在单击时运行的宏。

无论哪种方式，这应该有效：

getWindow().setSoftInputMode(WindowManager.LayoutParams.SOFT_INPUT_STATE_ALWAYS_HIDDEN);