Problemas con ribbbon personalizado access

Estoy haciendo un ribbon personalizado para mi aplicación y tengo algún problema para que funcione todo.

El código en si no me parece que esta el problema porque carga correctamente pero quiero añadirle el tipo de fuente para poder elegirla y el tamaño de la misma y no doy con ello, como se ve en la foto el del color carga pero el del tipo de fuente no.

Luego al programar los botones solo consigo que funcione la negrita, itálica y subrayado, las otras opciones que quiero añadir no se cual es el procedimiento, el código para dicho botones que tengo es este:

Sub rbNegrita(control As IRibbonControl)
    Screen.ActiveControl.FontBold = True
End Sub
Sub rbItalica(control As IRibbonControl)
    Screen.ActiveControl.FontItalic = True
End Sub
Sub rbSubrayada(control As IRibbonControl)
    Screen.ActiveControl.FontUnderline = True
End Sub
Sub rbColor(control As IRibbonControl)
    Screen.ActiveControl.FontColor = True
End Sub

Si me pudieran ayudar para hacer funcionar el color de la fuente, elegirla y el tamaño muchas gracias por adelantado.