Posted to microsoft.public.excel.programming

Wild Bill[_2_] Wild Bill[_2_] is offline

external usenet poster

Posts: 90

Cycle through all the available Fonts

I am Y.A. in awe - the crowd chants "Chip! Chip!"

On Fri, 8 Aug 2003 14:09:40 -0500, "Chip Pearson"
wrote:

Dim CBX As Office.CommandBarComboBox
Dim Ndx As Long
Set CBX = Application.CommandBars.FindControl(ID:=1728)
For Ndx = 1 To CBX.ListCount
Cells(Ndx, 1).Value = CBX.List(Ndx)
Cells(Ndx, 2).Value = CBX.List(Ndx)
Cells(Ndx, 2).Font.Name = CBX.List(Ndx)
Next Ndx

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I make a graph with 2-cycle X 3-cycle log-log graph paper?	Charles A. Wilson	Charts and Charting in Excel	1	December 17th 09 03:03 AM
Cycle Times	PAL	Excel Worksheet Functions	4	June 25th 09 09:31 PM
2 cycle logarithmic?	Amanda	Charts and Charting in Excel	1	January 29th 07 08:38 AM
How do I keep result from 1 iteration cycle to use in next cycle?	sgl8akm	Excel Discussion (Misc queries)	0	July 27th 06 08:28 PM
How can I lengthen the drop down Fonts list to show more fonts at	Moser D	Excel Discussion (Misc queries)	1	February 5th 06 03:24 PM

All times are GMT +1. The time now is 07:56 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us