Ik krijg via vba de kleur van een command button niet goed. Wijzig ik de voorgrondkleur en achtergrondkleur via opmaak, lukt me dit prima. Maar doe ik dit via vba verandert alleen de voorgrondkleur, wat ik ook doe. Het voorbeeld hierbij moet voorgrondkleur wit en achtergrondkleur blauw geven, maar doet dit niet. In een andere applicatie lukt me dat zonder problemen. Hier verander ik enkel de voorgrond- en de achtergrondkleur. Weet niet wat ik fout doe.
Code:
Private Sub cmbKleuren_Click()
Me.cmbKleuren.BackColor = 12349952
Me.cmbKleuren.ForeColor = 1677215
Me.cmbKleuren.Gradient = 0
Me.cmbKleuren.BackStyle = 1
Me.cmbKleuren.BackShade = 100
Me.cmbKleuren.BackThemeColorIndex = -1
Me.cmbKleuren.ForeThemeColorIndex = -1
Me.cmbKleuren.BackTint = 100
Me.cmbKleuren.ForeTint = 100
MsgBox "achtergrondkleur : " & Me.cmbKleuren.BackColor & vbCrLf & _
"voorgrondkleur : " & Me.cmbKleuren.ForeColor & vbCrLf & _
"gradiënt : " & Me.cmbKleuren.Gradient & vbCrLf & _
"bacstyle : " & Me.cmbKleuren.BackStyle & vbCrLf & _
"backshade : " & Me.cmbKleuren.BackShade & vbCrLf & _
"backthemecolorindex : " & Me.cmbKleuren.BackThemeColorIndex & vbCrLf & _
"forethemecolorindex : " & Me.cmbKleuren.ForeThemeColorIndex & vbCrLf & _
"backtint : " & Me.cmbKleuren.BackTint & vbCrLf & _
"foretint : " & Me.cmbKleuren.ForeTint
End Sub