问题描述
我正在尝试编写一个 PowerPoint 宏,无论用户选择的是 PowerPoint 表格还是“经典”形状(文本框等),它的行为都会有所不同。
有没有办法用 VBA 中的条件来检查这个?
我已经找到了使用错误处理的解决方法,但我想有一种正确的方法可以做到这一点。
任何帮助表示赞赏 谢谢!
解决方法
像这样:
Sub TableOrShape()
If ActiveWindow.Selection.ShapeRange(1).HasTable Then
MsgBox "It's a table!"
ElseIf ActiveWindow.Selection.ShapeRange(1).HasTextFrame Then
MsgBox "It's a text box!"
End If
End Sub