実現したいこと
Excel VBAからパワーポイントファイルの日本語文字用のフォントを変更したい
発生している問題・分からないこと
Excel VBAからパワポファイルを新規作成し、
スライドマスターの新しいテーマのフォントを変更したい。
しかし、以下のコードを実行したところ、
英数字用のフォントは指定のフォントに変更されますが、
日本語文字用のフォントが指定のフォントに変更されません。
ExcelとPowerPointはOffice 365を使用しています。
英数字と日本語共に変更できるようにしたいのですが、
どなたか解決方法をご存知の方がいらっしゃいましたらご教示のほどお願いいたします。
該当のソースコード
VBA
1Option Explicit 2 3Sub パワポファイル作成() 4 5Dim ppApp as PowerPoint.Application 6Dim ppPresentation as PowerPoint.Presentation 7 8Set ppApp = CreateObject("PowerPoint.Application") 9Set ppPresentation = ppApp.Presentation.Add 10 11ppPresentaion.SlideMaster.Theme.ThemeFontScheme.MajorFont(msoThemeLatin) = "Meiryo UI" 12ppPresentaion.SlideMaster.Theme.ThemeFontScheme.MinorFont(msoThemeLatin) = "Meiryo UI" 13ppPresentaion.SlideMaster.Theme.ThemeFontScheme.MajorFont(msoThemeEastAsian) = "Meiryo UI" 14ppPresentaion.SlideMaster.Theme.ThemeFontScheme.MinorFont(msoThemeEastAsian) = "Meiryo UI" 15 16End Sub
試したこと・調べたこと
- teratailやGoogle等で検索した
- ソースコードを自分なりに変更した
- 知人に聞いた
- その他
上記の詳細・結果
自分なりにコードについて調べてみましたが、うまく動作させる方法は分かっていません。
補足
特になし
回答1件
あなたの回答
tips
プレビュー