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

thanks in advance

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

--
Regards,
Tom Ogilvy

Young-Hwan Choi wrote in message
...
how to write a code to type a Greek character (alpha, beta, etc.) in a
chartitle?

thanks in advance

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


"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta, etc.) in a
chartitle?

thanks in advance

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




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance

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

Rob


"Young-Hwan Choi" wrote in message
...
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?


"Chip Pearson" wrote in message
...
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




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance

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



"Young-Hwan Choi" wrote in message
...
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.


"Rob van Gelder" wrote in message
...
The ??????? part is ChrW(&H3C6)

Rob


"Young-Hwan Choi" wrote in message
...
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?


"Chip Pearson" wrote in message
...
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




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance

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?


"Chip Pearson" wrote in message
...
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




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance

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.


"Rob van Gelder" wrote in message
...
The ??????? part is ChrW(&H3C6)

Rob


"Young-Hwan Choi" wrote in message
...
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?


"Chip Pearson" wrote in message
...
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




"Young-Hwan Choi" wrote in message
...
how to write a code to type a Greek character (alpha, beta,
etc.) in a
chartitle?

thanks in advance