Hi,

Is there possibility to use in a Label caption the greek letter? And
more generally in captions of the ActiveX controls?

Regards

Dan

PropertiesFont , enter: Symbol

HTH
--
AP

a écrit dans le message de news:
...
Hi,

Is there possibility to use in a Label caption the greek letter? And
more generally in captions of the ActiveX controls?

Regards

Dan

You can only assign one font to the controls. So if you only want greek
symbols, assign the Symbol font. If you want mixed english and greek, then
.. If you have Windows XP/2000/NT4, and have a unicode font on your machine,
Such as Arial Unicode MS, you can assign that font to the label or control
and then use the initalize event of the userform

Private Sub Userform_Initialize()
Label1.Caption = chrw(65) & chrw(928)
End Sub

for example which puts in a Capital A and the greek sympol uppercase PI.

--
Regards,
Tom Ogilvy

wrote in message
oups.com...
Hi,

Is there possibility to use in a Label caption the greek letter? And
more generally in captions of the ActiveX controls?

Regards

Dan

Thanks

Dan

Thanks. And what about Text+Symbol in the same Label caption. Is there
such possibility

Dan

Thanks Tom,

For Label on Sheet correctly is

---------------------------
Private Sub Worksheet_Activate()

Label1.Caption = "Zmiennosc" & ChrW(928)

End Sub
--------------------------- ?


Regards

Dan

Thanks Tom,

For Label on Sheet correctly is

---------------------------
Private Sub Worksheet_Activate()

Label1.Caption = "Text" & ChrW(928)

End Sub
--------------------------- ?


Regards

Dan

And how to identify chrW number for needed symbol?

Daniel,
Use the Character map, charmap.exe.
Depending how your system is set up, it may be on the Start menu, under
AccessoriesSystem Tools.
Set the font you are using, locate the required symbol, then look at the
bottom right hand corner for something like "U+03A0: Greek Capital Letter
Pi". That the number in Hex that you need for ChrW().

NickHK

wrote in message
oups.com...
And how to identify chrW number for needed symbol?

Unfortunately,
----------------------------------------------------------
Private Sub UserForm_Activate()
Label1.Caption = "Text " & ChrW(U+03A0)
End Sub
----------------------------------------------------------
does't work in my system.

Dan

Daniel,
That's because you need to take the number 03A0, which is in hex and added
"&H" in place of "U+".
(Or convert the hex to decimal.)

NickHK

wrote in message
oups.com...
Unfortunately,
----------------------------------------------------------
Private Sub UserForm_Activate()
Label1.Caption = "Text " & ChrW(U+03A0)
End Sub
----------------------------------------------------------
does't work in my system.

Dan

Not sure where this went yesterday, but another way to display the characters
and their Integer index number is:

Sub showCharacters()
Dim v(0 to 65535, 0 to 1) as Variant
Dim i as Long
Columns(1).Font.Name = "Arial Unicode MS"
for i = 0 to 65535
v(i,0) = chrW(i)
v(i,1) = i
Next
Range("A1:B65536")=v
End Sub

Change the Font Name to any Unicode Font.

The Greek Symbols will be around Row 929

--
Regards,
Tom Ogilvy


" wrote:

Unfortunately,
----------------------------------------------------------
Private Sub UserForm_Activate()
Label1.Caption = "Text " & ChrW(U+03A0)
End Sub
----------------------------------------------------------
does't work in my system.

Dan