更改文本框的 .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，我的代码不会像以前那样停止。