Font list like font menu

milt2010

milt2010

Board Regular
Joined
Dec 18, 2010
Messages
118
I have a list name with fonts in a cell. It is possible, in the list, to see the fonts like in the font menu of every program in windows with its caracteristics?

Here is a sample workbook

Thanks
 

Excel Facts

Shade all formula cells
To shade all formula cells: Home, Find & Select, Formulas to select all formulas. Then apply a light fill color.
Sort by date Sort by votes
A bit of Googling has revealed that you can invoke the system font menu with:-
Code: 
Application.Dialogs(xlDialogFont).Show
 
Last edited:
Upvote 0
Thank you for answer, Ruddles.

I have no idea what I have to do with this
Code: 
Application.Dialogs(xlDialogFont).Show
Can you explain a bit more please?
 
Upvote 0
I've never used it - as I said, I just tried Googling the subject and came up with that. I don't know how to use it but presumably the menu returns a value of some kind unless you hit Cancel.

Give me a moment...
 
Upvote 0
Ah, it looks like xlDialogFormatFont is the one you need. Code it like this:-
Code: 
Application.Dialogs(xlDialogFormatFont).Show

It returns a value of False if you hit Cancel, so if that's a concern, either test the value directly or store it in a variable and test it:-
Code: 
  If Application.Dialogs(xlDialogFormatFont).Show Then
    MsgBox "Done!"
  Else
    MsgBox "Cancelled!"
  End If
or:-
Code: 
  Dim returnValue As Boolean
  returnValue = Application.Dialogs(xlDialogFormatFont).Show
  If returnValue = True Then
    MsgBox "Done!"
  Else
    MsgBox "Cancelled!"
  End If
 
Upvote 0
Do you want to create your own list similar to the built-in font dropdown?

If you do then I'm pretty sure it's possible.

I've also got the same questions as Romperstomper on ExcelForum, why?

It just doesn't sound practical to me.:)
 
Upvote 0
Norie said:
(...) I've also got the same questions as Romperstomper on ExcelForum, why?
It just doesn't sound practical to me.:)
Click to expand...

Ok Thank you :).
I'm right now explaing to Romperstomper why. I will post here too, my answer.
 
Upvote 0
Oops, I actually meant not possible.
 
Upvote 0
You must log in or register to reply here.

Similar threads

Z
  • Solved
Excel VBA: Using OR with <>
Replies
3
Views
144
rlv01
R
B
  • Solved
Auto-sort when new data added when table is not at top?
Replies
4
Views
114
Anthony47
A
N
  • Solved
Formula to change font color in part of cell only
Replies
2
Views
383
Nathan Asius
N
J
  • Solved
Program Doesn't Allow Conditional Change of Font Color Without Affecting Fill
Replies
1
Views
270
jdpro
J
O
  • Solved
Save PDF's from a dropdown menu using VBA
2
Replies
12
Views
453
ob1tech77
O

Forum statistics

Threads
1,215,695
Messages
6,126,263
Members
449,307
Latest member
Andile

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top