vba【powerpointのテキストボックスの日本語フォントの変更方法】

PowerPoint VBAでフォントの名前を変更しようとした際、ハマったのでメモ。

環境は以下。

MS office 2013 64bit
Win7

Meiryo UIをテキストボックスのフォントにしようとして、

Slide(1).Shape("textbox").TextFrame.TextRange.Font.Name = "Meiryo UI"

としたんだけど、英数字のみMeiryo UIになって、日本語の文字列にフォント名が反映されなかった。

これは、
Excel 2007 のテキスト ボックスで使用するフォントの種類をマクロで変更できない
に記載があるように、

Slide(1).Shape("textbox").TextFrame.TextRange.Font.Name = "Meiryo UI"
Slide(1).Shape("textbox").TextFrame.TextRange.Font.NameFarEast = "Meiryo UI"

と2行にわたって指定しないといけないらしい。