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

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials