Format the items in a combobox
Hi and Many Thanks! Sub Country() Dim Drpdwn As DropDown 'DropDown Set Drpdwn = ActiveSheet.DropDowns("CBox1") With Drpdwn .RemoveAllItems 'Para Borrar entradas previas .AddItem "FRANCE" .AddItem "ITALY" .AddItem "SPAIN" .ListIndex = 1 End With 'IS IT POSIBLE TO CHANGE THE FORMATTING 'THE SAME WAY WE DO FOR 'ActiveCell.Font.Size = 25 'ActiveCell.Font.Bold = True 'BUT FOR THE ITEMS IN THIS COMBOBOX?????????? End Sub PS: by the way, MANY THANKS, Tom Ogilvy!!!!!!!!!!!! -- 0000_AAAA_000 ----------------------------------------------------------------------- 0000_AAAA_0000's Profile: http://www.excelforum.com/member.php...fo&userid=1248 View this thread: http://www.excelforum.com/showthread.php?threadid=27408 |
Format the items in a combobox
Not a dropdown from the Forms toolbar, but you can change the font (for all the
options) if you used a combobox from the control toolbox toolbar. 0000_AAAA_0000 wrote: Hi and Many Thanks! Sub Country() Dim Drpdwn As DropDown 'DropDown Set Drpdwn = ActiveSheet.DropDowns("CBox1") With Drpdwn RemoveAllItems 'Para Borrar entradas previas AddItem "FRANCE" AddItem "ITALY" AddItem "SPAIN" ListIndex = 1 End With 'IS IT POSIBLE TO CHANGE THE FORMATTING 'THE SAME WAY WE DO FOR 'ActiveCell.Font.Size = 25 'ActiveCell.Font.Bold = True 'BUT FOR THE ITEMS IN THIS COMBOBOX?????????? End Sub PS: by the way, MANY THANKS, Tom Ogilvy!!!!!!!!!!!!! -- 0000_AAAA_0000 ------------------------------------------------------------------------ 0000_AAAA_0000's Profile: http://www.excelforum.com/member.php...o&userid=12480 View this thread: http://www.excelforum.com/showthread...hreadid=274081 -- Dave Peterson |
All times are GMT +1. The time now is 06:40 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com