无法更改按钮的外观属性

Question

我有一个按钮，当点击它时，会设置一个宏。我想在发生这种情况时更改Text和BackColor属性，但它似乎无法访问这些属性。我用两行都得到了以下错误。

ActivePresentation.Slides(1).Shapes("excelToPPT").Fill.BackColor.RGB = RGB(255, 255, 0)
ActivePresentation.Slides(1).Shapes("excelToPPT").TextFrame.TextRange.Text = "Working..."

Answer 1

ActiveX按钮与用户窗体上的按钮具有几乎相同的属性。要访问属性，请深入查看相关形状的.OLEFormat.Object。像这样，假设你的按钮在幻灯片1上是＃3形状：

With ActivePresentation.Slides(1).Shapes(3)
    With .OLEFormat.Object
        .BackColor = RGB(255, 0, 0)
        ' This sets the text color:
        .ForeColor = RGB(0, 255, 255)
    End With
End With