Active x change colour

[niall91]

Hi

i want to loop through all active x objects and change colour
any ideas?
Thanks

Sub controlBtnsColour(nme As String)
Dim objX As OLEObject
With Design
    For Each objX In .OLEObjects
        If Not TypeName(objX.Object) = nme Then
            objX.BackColor = 16777215'light grey
        End If
    Next
End With
End Sub

 

[GWteB]

This goes in the module of the worksheet containing the ActiveX controls to be affected:

Sub ChangeColorOfAllControls()
    Dim objX As OLEObject
    For Each objX In Me.OLEObjects
        objX.Object.BackColor = 16777215   'light grey
    Next
End Sub

 

[DanteAmor]

Try:

Sub controlBtnsColour()
  Dim objX As OLEObject
  For Each objX In ActiveSheet.OLEObjects
    objX.Object.BackColor = &HE0E0E0  'light grey
  Next
End Sub