How to set font for the caption group ?

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   example :
Set GroupFont = TabWrite.Groups.AddGroup("&Write", ID_GROUP_FONT)
GroupFont.ControlsGrouping = True

GroupFont.RibbonBar.CommandBars.Options.Font.Name = "My font"

or
     TabWrite.Groups.RibbonTab.RibbonBar.CommandBars.Options.Font .Name = "My font"
or
GroupFont.RibbonBar.TabPaintManager.Font.Name = "My font"
It's not change !
Can someone help me this problem ?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Soft4U Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 28 March 2006 Location: United Kingdom Status: Offline Points: 9	Post Options Post Reply Quote Soft4U Report Post Thanks(0) Quote Reply Topic: How to set font for the caption group ? Posted: 04 June 2006 at 8:02am
	example : Set GroupFont = TabWrite.Groups.AddGroup("&Write", ID_GROUP_FONT) GroupFont.ControlsGrouping = True GroupFont.RibbonBar.CommandBars.Options.Font.Name = "My font" or TabWrite.Groups.RibbonTab.RibbonBar.CommandBars.Options.Font .Name = "My font" or GroupFont.RibbonBar.TabPaintManager.Font.Name = "My font" It's not change ! Can someone help me this problem ?