Command Bars - Change Ribbonbar Font

Print Page | Close Window

Change Ribbonbar Font

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=19242
Printed Date: 05 October 2024 at 9:33pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Change Ribbonbar Font

Posted By: faakher
Subject: Change Ribbonbar Font
Date Posted: 29 November 2011 at 8:12am

Hi,

Is there a possibility to change font of ribbon bar's system menu, tab and tab items?

If yes, please tell me soon..

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.1
Platform: Windows XP Professional - SP2
Language: Visual Basic 6.0 SP6

Replies:

Posted By: SuperMario
Date Posted: 29 November 2011 at 8:38am

Here are a few things to try:

RibbonBar.FontHeight = 15

RibbonBar.RibbonPaintManager.CaptionFont.Size = 12

RibbonBar.RibbonPaintManager.WindowCaptionFont.Size = 12

CommandBars.Options.Font.Size = 15

Posted By: faakher
Date Posted: 29 November 2011 at 12:47pm

thanks for your support.

I think it will change only size of font. Basically I want to change the font name.

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.1
Platform: Windows XP Professional - SP2
Language: Visual Basic 6.0 SP6

Posted By: Albert1
Date Posted: 01 December 2011 at 5:43am

I do someting like this:


Dim fnt As StdFont
            Set fnt = Me.Font
            fnt.Name = MyFontName ' Segoe UI, Verdana, Trebuchet MS, ...
            fnt.Size = 8
            
            Set RibbonBar.CommandBars.Options.Font = fnt 
            Set CommandBars.Options.ComboBoxFont = fnt
            Set RibbonBar.TabPaintManager.Font = fnt

-------------
Product: Xtreme SuitePro (ActiveX) version 13.4.1 / 16.3.0

Platform: Windows Vista (32bit) - SP 2

Language: Visual Basic 6.0 (SP6)

Posted By: faakher
Date Posted: 07 December 2011 at 4:20am

Albert1 wrote:

I do someting like this:


Dim fnt As StdFont
            Set fnt = Me.Font
            fnt.Name = MyFontName ' Segoe UI, Verdana, Trebuchet MS, ...
            fnt.Size = 8
            
            Set RibbonBar.CommandBars.Options.Font = fnt 
            Set CommandBars.Options.ComboBoxFont = fnt
            Set RibbonBar.TabPaintManager.Font = fnt

Thanks a lot buddy.

It really works.... Clap

-------------
Product: Xtreme SuitePro (ActiveX) version 15.0.1
Platform: Windows XP Professional - SP2
Language: Visual Basic 6.0 SP6