Example
'Callback for CustomButton4 onAction
Sub bdoteal(control As IRibbonControl)
On Error Resume Next '(in case no text selected)
With ActiveWindow.Selection.TextRange.Font
.Color.RGB = RGB(46, 176, 164)
'any other change here
End With
' MsgBox "BDO TEAL - R46, G176, B164"
End Sub
|