更改文本框的.Text属性时，Powerpoint 2013 VBA停止运行

Question

我一直在尝试使用以下VBA代码行更改文本框的.text属性：

Application.ActivePresentation.Slides（1）.Shapes（1）.TextFrame.TextRange.Text =“文件副本已完成。”

文本框是幻灯片上的唯一形状。

我在这行代码之前和之后放置了一个msgbox（）调用，发现调用此行时代码似乎停止了。

如果在运行代码之前手动将其更改为其他内容，文本框将正确更新，但它只会更新一次。

如果有人可以提供建议我会很感激。

谢谢。

Answer 1

我找到了这个帖子中提到的解决方案： Apply Font Formatting to PowerPoint Text Programatically

我声明了一个TextRange对象并将其设置为我正在更改的TextRange。通过直接使用对象而不是TextRange，我的代码不会像之前那样停止。