type greek character

Y

Young-Hwan Choi

how to write a code to type a Greek character (alpha, beta, etc.) in a
chartitle?

thanks in advance
 
T

Tom Ogilvy

The appearance of fonts is defined by the font name. You can make the font
name Symbol to get greek characters.
 
R

Rob van Gelder

Young-Hwan,

Start | Run | Charmap
Ensure font is Arial.
Scroll down the list until you find Greek Small Leter Alpha, Beta, Gamma,
etc.
Copy these characters to clipboard then paste them into your Chart Title.

Rob
 
C

Chip Pearson

Use the Characters property of the ChartTitle object to access
individual characters within the text of the title, and change
the font of the desired characters to "Symbol".

Dim ChtTtl As ChartTitle
Set ChtTtl = ActiveSheet.ChartObjects(1).Chart.ChartTitle
ChtTtl.Characters(Start:=4, Length:=1).Font.Name = "Symbol"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
R

Rob van Gelder

The ??????? part is ChrW(&H3C6)

Rob


Young-Hwan Choi said:
Thanks for the response.

I think my question was not clear...
What I'm doing is to generate a chart in each worksheet as a chartobject.
I have about 40 sheets in a workbook, and I have more than one hundered
workbooks.
So I was planning to generate the charts with VBA. Everything was done
except the chart title.
The title should look like
M-phi (Greek)-P (T-1) for sheet(1),
M-phi (Greek)-P (T-2) for sheet(2), and so on.
The cell "A1" in each sheet has information on the part (T-1), (T-2), and so
on.

I thought my code would be something like
...charttitle.characters.text = "M-" & ??????? & "-P " &
Right(activesheet.Range("A1"),5)

I thought that there was a code to write ???????? part.
if not, I have to give the title as "M-f-P" &
Right(activesheet.Range("A1"),5)
and then apply your code just changing 4 for Start augment to 3.
Am I right?
Click to expand...
 
R

Rob van Gelder

I'm running Windows XP, so CharMap shows me in the Status Bar (Start | Run |
Charmap)
In Advanced View you can search for the word Greek and it will limit the
results.

Otherwise, this code will display the first 1000 characters (of which, your
phi character is 966)

Sub testit()
Dim i As Long

With Sheet1
For i = 1 To 1000:
.Cells(i, 1).Value = ChrW(i)
Next
End With
End Sub

Rob
 
Y

Young-Hwan Choi

Thanks for the response.

I think my question was not clear...
What I'm doing is to generate a chart in each worksheet as a chartobject.
I have about 40 sheets in a workbook, and I have more than one hundered
workbooks.
So I was planning to generate the charts with VBA. Everything was done
except the chart title.
The title should look like
M-phi (Greek)-P (T-1) for sheet(1),
M-phi (Greek)-P (T-2) for sheet(2), and so on.
The cell "A1" in each sheet has information on the part (T-1), (T-2), and so
on.

I thought my code would be something like
....charttitle.characters.text = "M-" & ??????? & "-P " &
Right(activesheet.Range("A1"),5)

I thought that there was a code to write ???????? part.
if not, I have to give the title as "M-f-P" &
Right(activesheet.Range("A1"),5)
and then apply your code just changing 4 for Start augment to 3.
Am I right?
 
Y

Young-Hwan Choi

Rob,
It's just what I want.

I have a last question, though. ^^
How can I find the (&H3C6) part for a different symbol?
Could you explain also?
I really appreciate it.
 
Top