Hi, i do have a presentation with 10 commandbuttons (ActiveX control)
i can change vi VBA the forecolor of each button but i'm wondering if there is a more efficient way to change the forecolor (or any other properties) of a commandbutton (not the shapes) via a VBA code
a sort of lop that find all the buttons in the whole presentation

thanks

hi all after a nigth spent i've found the solution

here the code

Private Sub change_font()
Dim pulsante As Shape
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each pulsante In sld.Shapes
If pulsante.Name Like "CMD_*" Then
pulsante.OLEFormat.Object.ForeColor = &H400040
pulsante.OLEFormat.Object.BackColor = &HFFC0C0
End If
' pulsante.ForeColor = &H400040
Next pulsante
Next sld
End Sub

I would use this to check for a command button as name like"CMD_* can fail


Sub ChangeCOMM()
Dim oshp As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoOLEControlObject Then
If oshp.OLEFormat.ProgID = "Forms.CommandButton.1" Then
oshp.OLEFormat.Object.BackColor = RGB(255, 0, 0) ' or whatever
End If
End If
Next oshp
Next osld
End Sub

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