Command Buttons are not Shapes and in this case you need to change the backcolor
Sub changeme()
Dim octrl As Object
'change slide number and name to suit
Set octrl = ActivePresentation.Slides(1).Shapes("CommandButton 1").OLEFormat.Object
octrl.BackColor = &HFF
End Sub
If you explain exactly what you are trying achieve there may be a better method
|