用于 Powerpoint 的 VBA 宏更改笔记颜色

Question

我刚刚开始学习 VBA for PowerPoint 编程（大约 30 分钟前）。谁能帮我解决以下问题？：

我想要一个循环遍历所有幻灯片注释并将文本更改为白色的宏

（我知道有非宏替代品，但第三方软件（Articulate）要求它通过宏来完成......长篇大论）。

这是我目前所拥有的：

Sub changenotestowhite()
   Dim osld As Slide
   Dim oshp As Shape
   Dim strNotes As String
   For Each osld In ActivePresentation.Slides
      For Each oshp In osld.NotesPage.Shapes
         oshp.TextFrame.TextRange.Font.Color = vbWhite
      Next oshp
   Next osld
End Sub

我收到错误消息“运行时错误：指定的值超出范围。”

谢谢！

乔

Answer 1

欢迎来到 MS/VB 的著名红鲱鱼（又名错误消息）的世界。

问题是这样的：有些形状没有文本框（保存文本的形状的属性），即使形状有文本框，其中也可能没有任何文本。尝试更改不存在的文本或不存在的文本框架中的文本将引发错误。

改用这个，它会测试文本框，如果存在，在以任何方式更改文本之前，文本框是否有文本：

Sub changenotestowhite()
   Dim osld As Slide
   Dim oshp As Shape
   Dim strNotes As String
   For Each osld In ActivePresentation.Slides
      For Each oshp In osld.NotesPage.Shapes
        If oshp.HasTextFrame Then
        If oshp.TextFrame.HasText Then
         oshp.TextFrame.TextRange.Font.Color = vbWhite
         End If
         End If
      Next oshp
   Next osld
End Sub