Oh MAN,,, I hate when this happens!
You're movin along, creating that killer VB app, and then all of a sudden, SNAG!
"WTF!"
"Why aint that working?!"
You check and you check, reread, reread, debug, debug, then YES, you eventually succumb and hafta to click on the dreaded Mr. PaperClip Help Icon.
"He is such a dork!"
Because of the male ego, you look over your shoulder to make sure the coast is clear for fear if someone catches you using it.
You quickly click it, only to hear one of your female colleague's break the secretive silence with
"Aww, isn't that Clip cute?"
"And he is so helpful too"
"Dontcha think?"
Groan
You traipse through the help files,, grumbling over a bruised ego, mumbling to yourself "I know where you can stick that pencil and pad Clip"
"Yeah I'm talking to you,,,you scrawny bugged eyed thing you!"
"Don't think you're nappin on my time either buddy!"
Yeah,,,empowerment,,,I'm starting to get my ego back.
"Hey lookie here!"
"I did not know that"
"That don't help me a dang right now,,,but that might help me in future projects"
"What the heck was I looking for,,,oh yeah"
"And why was I looking for it?"
"Oh man,,,I lost my train of thought on my Killer App!"
Groan!
24 hours later, I finally found the frickin answer!
I use Excel2000 and apparently this is referred to as a "Hidden" Property.
Supposedly tucked away in the Object Browser section.
On my system, it's so hidden, I didn't see it there either.
The solution to the problem is
.Font.Charset = 2
[vba]
Sub SymbolFontsWorkNow()
Dim i As Integer, lbl As Object
Lblz = Array("lblSymbl2", "lblLtr2") 'Label Control Names
zLft = Array(12, 42) 'Left Positions on UserForm
zFnts = Array("Symbol", "Arial")
'Intially designed to be User Input
zCaps = Array("Y", "Y")
tSymbl = "W"
With UserForm1
.lblSymbl1.Caption = tSymbl
.lblLtr1.Caption = tSymbl
For i = 0 To 1
Set lbl = UserForm1.Controls.Add("Forms.Label.1", Lblz(i), True)
With lbl
.Height = 27.75
.Left = zLft(i)
.Top = 48
.Width = 23.25
.Font.Name = zFnts(i)
.Font.Charset = 2 'Important for the Symbol Font to work
.Caption = zCaps(i)
.Font.Size = 24
.Font.Bold = True
End With
Set lbl = Nothing
Next i
.Show
' ...
End With
End Sub
[/vba]
.Font.Charset = 2
Where it comes from & why it works,,, I have no idea!
It's not in my Help File or Object Browser.
If someone would care to shed some light on this, I'd appreciate it.
I would also like to know,,,, is there a source of Hidden Properties?
A place where they have a list of these things?