0
我刚刚开始学习VBA for PowerPoint(大约30分钟前)的编程。谁能帮我?:以下VBA宏用于更改注释颜色
我想宏通过所有幻灯片注释循环和更改文本为白色
(我知道有非宏替代这一点,但第三第三方软件(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
我收到错误消息“运行时错误:指定的值超出范围”
谢谢!
乔
史蒂夫。 你是一个怪胎的传奇人物。我建议你访问你的社交媒体渠道并宣布这一事实。人们需要知道。 现在我拥有这样的知识,我将继续并改变文本的大小和音符的对齐方式。 非常感谢你;我永远感激, 乔 –
乔 - ;-)一个温和的传说,也许。很高兴帮助。 –
Font.Color属性是只读的。您需要使用Font.Color.RGB = RGB(255,255,255),而不是每个MSDN https://msdn.microsoft.com/en-us/library/office/ff744240.aspx?f=255&MSPPError=- 2147217396。 – OfficeAddinDev