Home » パワーポイントマクロ・PowerPoint VBAの使い方 » TextFrame・TextRange » PowerPointのAddTextboxでフォントサイズを変更したい

PowerPointのAddTextboxでフォントサイズを変更したい

動作検証バージョン：64bit Windows 10 Pro + 32bit PowerPoint（バージョン2108 ビルド14326.20348 Microsoft Store）

「vba addtextbox 文字サイズ パワーポイント」
といった検索キーワードで時折アクセスがあります。

PowerPoint VBAのShapes.AddTextboxメソッドでテキストボックスを挿入して、

そのテキストボックスの文字サイズ・フォントサイズを変更するにはどうすればいいのかを探していらしたのでしょう。

Shapes.AddTextboxでフォントサイズは指定できない

拙著『いちばんやさしいPowerPoint VBAの教本』の、「Lesson 39 Shapesが持つAdd〇〇メソッドでShapeを挿入できます」でもご紹介しているとおり、ShapesコレクションのAddTextboxメソッドの引数には、文字列の方向（Orientation）と位置（Left, Top）と大きさ（Width, Height）しか指定できません。

テキストボックスのフォントサイズを変更したい場合は、Shapes.AddTextboxメソッドで返されるShapeオブジェクトから階層を辿ってフォントを表すFontオブジェクトを取得する必要があります。

AddTextboxしてフォントサイズを変更するサンプル

1枚目のスライドをアクティブな状態にして、以下のSubプロシージャをステップ実行してみてください。

Sub AddTextboxして文字サイズを変更する()
　Dim sld As Slide
　Set sld = ActivePresentation.Slides(1)

　Dim shp As Shape
　Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 300, 100)
　shp.Fill.ForeColor.RGB = RGB(0, 255, 255)

　shp.TextFrame.TextRange.Text = "サンプル文字列"
　shp.TextFrame.TextRange.Font.Size = 36
End Sub

先頭スライドの左上にテキストボックスが挿入されてから、そのテキストボックスが水色で塗りつぶされ、「サンプル文字列」と入力後に、36ポイントに設定されます。

サンプルで行っている処理について

行っている処理のほとんどは、ご紹介済みのAddTextboxでテキストボックスのサイズを設定するSubプロシージャと同じです。

違うのは最後の行

　shp.TextFrame.TextRange.Font.Size = 36

です。ここでフォントサイズを変更しています。

フォントサイズを変更するために、拙著の「Chapter 6 文字列の操作を学ぼう」までで解説している以下のような階層を辿っています。

Presentation
└ Slide
　　└ Shape
　　　　└ TextFrame
　　　　　　└ TextRange
　　　　　　　　└ Font
いちばんやさしいPowerPoint VBAの教本 人気講師が教える資料作りに役立つパワポマクロの基本 (「いちばんやさしい教本」シリーズ)
伊藤潔人 インプレス 2020-01-24
Amazon




最終更新日時：2021-10-05 16:20

［スポンサードリンク］

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » TextFrame・TextRange » PowerPointのAddTextboxでフォントサイズを変更したい

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「TextFrame・TextRange」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.