Font Listing

[Mrs. T]

Hi,

Is there any way that I can download a listing of all the fonts that I have and in each cell they change to that font?

For example:
CELL A1 - would say Arial - in the that font
CELL A2 - would say Arial Narrow - in that font

 

[Rick Rothstein]

Assuming your post means you want to see a list of all the installed fonts on your computer, give this macro a try (note that if you have a lot of fonts, there will be a slight delay before the list appears)...

[table="width: 500"]
[tr]
	[td]Sub FontNames()
  Dim N As Long, FontNames As Variant
  Set FontNames = Application.CommandBars("Formatting").FindControl(ID:=1728)
  Application.ScreenUpdating = False
  For N = 1 To FontNames.ListCount
    Cells(N, "A").Value = FontNames.List(N)
    Cells(N, "A").Font.Name = FontNames.List(N)
  Next
  Application.ScreenUpdating = True
End Sub[/td]
[/tr]
[/table]

 

[James006]

Hi,

You could use a simple UDF

Function GetFontName(rng As Range)
    GetFontName = rng.Font.Name
End Function

Hope this will help

 

[Mrs. T]

Hi,
I'm a novice at macros. Could you give me steps on how to do this?

 

[Mrs. T]

I'm sorry, I'm not familiar with UDF. Can you please explain how to use this? Thanks!

 

[Rick Rothstein]

Hi,
I'm a novice at macros. Could you give me steps on how to do this?

HOW TO INSTALL MACROs
------------------------------------
If you are new to macros, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. To use the macro, go back to the worksheet with your data on it and press ALT+F8, select the macro name (FontNames assuming you want to use my macro) from the list that appears and click the Run button. The macro will execute and perform the action(s) you asked for. If you will need to do this again in this same workbook, and if you are using XL2007 or above, make sure you save your file as an "Excel Macro-Enabled Workbook (*.xlsm) and answer the "do you want to enable macros" question as "Yes" or "OK" (depending on the button label for your version of Excel) the next time you open your workbook.

 

[Mrs. T]

I just did all that and now I'm getting an error : "Object doesn't support this property or method".

I saved the file as (.xlsm)

 

[Rick Rothstein]

I just did all that and now I'm getting an error : "Object doesn't support this property or method".

Are you using a PC or a Mac?

What version of Excel are you using?

What line of code did the error occur on?

 

[Mrs. T]

Mac
Excel version 16.16.1

That's all the error said. It didn't give me where the error occurred.

 

[Rick Rothstein]

Mac
Excel version 16.16.1

I don't have a Mac, so I have no way to write code for it but, so you know, my code works perfectly on my PC. I suspect that the different way fonts are store/implemented on the two systems is at the heart of the problem. Hopefully, one of our Mac volunteers will come along and help you out. By the way, for future question you may ask here (or on any forum for that matter), you should mention that you are using a Mac and also mention the version of Excel you are using as well.