I have some Korean text in Powerpoint 2000.
I want to change the font of the text from "Gulim" to "HYSinMyeongJo-Medium"
using Vba code.
I have changed the office settings to include Korean language
Have you tried recording a macro while you change the font manually?
That should get you the code you need to change the the font characteristics.
From there, it's a matter of getting a reference to the shape's properties:
I don't have either of those fonts on this computer, but I'm guessing that
something like this will work:
Sub ChangeFont()
Dim oSh as Shape
' For test purposes, use currently selected shape
Set oSh = ActiveWindow.Selection.ShapeRange(1)
With oSh.TextFrame.TextRange.Font
.NameAscii = "HYSinMyeongJo-Medium"
.NameOther = "HYSinMyeongJo-Medium"
.NameFarEast = "HYSinMyeongJo-Medium"
End With
End Sub
