Невозможно изменить свойства внешнего вида кнопки

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 данной формы. Таким образом, если ваша кнопка является формой № 3 на слайде 1:

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