Help with formatting right-click menu caption.

[Delmar D'Percy]

Hi all,

I'm not even sure this is possible, but if it is then I'm hoping
someone can give me the answer.

I've created a spreadsheet which has a dynamic right-click menu which
changes to show the breakdown of overall figures in specific cells in
my workbook.

A highly simplified example of the code used to add the caption is:


Code:
--------------------
Public Sub BuildMenu()

Dim objCmdBarCtrl As CommandBarControl
Dim objCmdButton As CommandBarButton

Set objCmdBarCtrl = Application.CommandBars("Cell").Controls.Add _
(Type:=msoControlPopup, Before:=1)
objCmdBarCtrl.Caption = "Figures for December 2005"
objCmdBarCtrl.Tag = "Scorecard"

Set objCmdButton = objCmdBarCtrl.Controls.Add
objCmdButton.Caption = "Specialism - 18 / Target - 15"

End Sub
--------------------



What I'd like to be able to do is show the figures (18 and 15) in bold
on the menu and possibly have the 18 figure in red if it's under the
target and green if it's over target.

Forgot to add in my original post that I'm using Excel 2002.

Any help would be greatly appreciated & many thanks in advance.

I've also posted this question on the MrExcel message board & will let
both forums know if I get an answer ('cos I'm a good bunny like that):
http://www.mrexcel.com/board2/viewtopic.php?t=200454

Delmar

 

[Jim Cone]

Delmar,
You can make the text upper/lower case and you can add/change the FaceID of the button.
You cannot make the text bold or specify the color of the button text.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Delmar D'Percy"
wrote in message...
Hi all,
I'm not even sure this is possible, but if it is then I'm hoping
someone can give me the answer.
I've created a spreadsheet which has a dynamic right-click menu which
changes to show the breakdown of overall figures in specific cells in
my workbook.
A highly simplified example of the code used to add the caption is:
Code:
--------------------
Public Sub BuildMenu()

Dim objCmdBarCtrl As CommandBarControl
Dim objCmdButton As CommandBarButton

Set objCmdBarCtrl = Application.CommandBars("Cell").Controls.Add _
(Type:=msoControlPopup, Before:=1)
objCmdBarCtrl.Caption = "Figures for December 2005"
objCmdBarCtrl.Tag = "Scorecard"

Set objCmdButton = objCmdBarCtrl.Controls.Add
objCmdButton.Caption = "Specialism - 18 / Target - 15"

End Sub
--------------------

What I'd like to be able to do is show the figures (18 and 15) in bold
on the menu and possibly have the 18 figure in red if it's under the
target and green if it's over target.
Forgot to add in my original post that I'm using Excel 2002.
Any help would be greatly appreciated & many thanks in advance.
I've also posted this question on the MrExcel message board & will let
both forums know if I get an answer ('cos I'm a good bunny like that):
http://www.mrexcel.com/board2/viewtopic.php?t=200454
Delmar
Delmar D'Percy

 

[Delmar D'Percy]

Thanks for the confirmation Jim.

I was hoping that something could be done as the colours are changed
when an option is disabled (i.e. greyed out).

Maybe if I learn how to use the API I might find an answer or a
workaround. If I do, I'll be shouting it from the rooftops!