Use the drawing toolbar to create the color squares you need and lace them on a worksheet. Give them decent names, then use the PasteFace method instead of FaceId
In your commandbar code:
See the attached gif.Sheet1.Shapes("YourPictureName").Copy MenuItem.PasteFace