VBAでPowerPointスライドタイトルのフォントサイズを、途中の文字から変える方法を教えてください

Question

###前提・実現したいこと
ExcelVBAで、PowerPointスライド上のタイトルを編集しています。

###発生している問題・エラーメッセージ
「x文字目以降のフォントサイズをyポイントにする」
という作業のやり方がどうしてもわかりません。
（xとyは決め打ちです。
例えば、20文字目以降を18ポイントにする、などです。）

###試したこと
Web検索して、途中の文字から太字にする方法は見つけました。
https://msdn.microsoft.com/ja-jp/library/office/ff744064.aspx

フォントは、全体を変える方法しかわかりませんでした。
https://msdn.microsoft.com/ja-jp/library/office/ff744240.aspx

どうぞよろしくお願いいたします。

Answer 1

MS公式の方法でボールドができているのなら、同様に色やサイズも変更できると思います。
（Bold設定もSize設定も同じFontクラスのプロパティです。）

'MS公式のBold設定
Set myT = Application.ActivePresentation.Slides(1).Shapes.Title
myT.TextFrame.TextRange.Characters(1, 5).Font.Bold = msoTrue

'同様に色やサイズを設定
'色
myT.TextFrame.TextRange.Characters(1, 2).Font.Color = vbRed
myT.TextFrame.TextRange.Characters(3, 3).Font.Color = RGB(0,255,0)
'サイズ
myT.TextFrame.TextRange.Characters(1, 5).Font.Size = 20

⇒参考サイト

Comments

[miyu21]

ご紹介いただいた方法で、文字のサイズを変更することができました。
どうもありがとうございました。