【無料】自在に動く！調整ハンドルツール配布中 👉

【パワポVBA】同じフォントや文字サイズのテキストを全選択するマクロ

2023.02.11

PowerPoint VBAを使い、選択中のテキストボックスと同じフォントやフォントサイズのテキストボックスを全選択するマクロをご紹介します。

特定のテキストボックスのフォントやフォントサイズ、書式などを一括で変更したいときに有効です。

コードは神AI「ChatGPT」で開発しました。ChatGPTについては、次の記事で解説しています。

神AI「ChatGPT」でパワポVBAを開発【始め方から解説】
ChatGPTとは、質問を投げると人工知能が回答してくれるチャットサービスです。Excelでの数式や…
ppdtp.com
2024.09.01
スポンサーリンク
スポンサーリンク

選択中のテキストボックスと同じフォントを全選択するマクロ

コード

Sub SelectTextBoxesWithSameFont()

  'スライド内の全てのシェイプを取得
  Dim shp As shape
  For Each shp In ActiveWindow.Selection.SlideRange.Shapes
    'シェイプがテキストボックスかつフォントが同じかどうかを判定
    If shp.HasTextFrame And shp.TextFrame.HasText And _
       shp.TextFrame.TextRange.Font.Name = ActiveWindow.Selection.TextRange.Font.Name Then
      '選択状態にする
      shp.Select msoFalse
    End If
  Next shp
  
End Sub

Shape.Selectメソッドの引数に「msoFalse」を指定することで、選択中のテキストボックスに追加して該当するテキストボックスが選択されます。「Shift」キーを押しながら順番に選択する動作と同じです。

  • 最初に選択するテキストボックスに複数のフォントが使われている場合は機能しません。

マクロの使い方は、次の記事で解説しています。

PowerPointマクロ入門 | コピペで始める楽々コース
PowerPointでマクロを始めたいけど、難しそうでよく分からないという方向けの入門編です。PPD…
ppdtp.com
2024.02.24

実行結果

全選択したいフォントが設定されたテキストボックスを選択します。ここでは「MS ゴシック」が設定されたテキストボックスを選択しました。

マクロを実行すると、スライド内の「MS ゴシック」で設定されたテキストボックスが全て選択された状態になります。

選択中のテキストボックスと同じフォントサイズを全選択するマクロ

コード

Sub SelectTextBoxesWithSameFontSize()

  'スライド内の全てのシェイプを取得
  Dim shp As shape
  For Each shp In ActiveWindow.Selection.SlideRange.Shapes
    'シェイプがテキストボックスかつフォントサイズが同じかどうかを判定
    If shp.HasTextFrame And shp.TextFrame.HasText And _
       shp.TextFrame.TextRange.Font.Size = ActiveWindow.Selection.TextRange.Font.Size Then
      '選択状態にする
      shp.Select msoFalse
    End If
  Next shp
  
End Sub

実行結果

全選択したいフォントサイズが設定されたテキストボックスを選択します。ここでは「MS ゴシック」の「32pt」が設定されたテキストボックスを選択しました。

マクロを実行すると、スライド内の「32pt」で設定されたテキストボックスが全て選択された状態になります。

人気記事

PowerPointで文字をアーチ状・波形・円に沿って入力する方法
PowerPointで文字をアーチ状や波形に曲げたり、円に沿って入力する方法をご紹介します。「文字の効果」の「変形」を使うと、文字を湾曲したリボンの形状に合わせたり、円形オブジェクトに沿わせることが可能です。
PowerPointで図形をロックしたり固定を解除する方法
PowerPointで図形、画像、テキストボックス、背景、ガイドをロック（固定）するテクニックをご紹介します。PowerPointはオブジェクトが増えてくると選択がしづらくなるので工夫して操作する必要があります。この記事では、その他ロックに関する内容をまとめています。
PowerPoint「画像の透過」透明度を下げる2つの方法
PowerPoint 2019以降は画像を直接透過できますが、PowerPoint 2016以前では直接透過できない為、画像を図形の中に挿入してから透明度を下げる必要があります。それでは、バージョン別の2つの透過方法を見ていきましょう！
PowerPoint「囲み文字」で文字を四角や丸で囲む方法
PowerPointで文字を四角「□」や丸「○」で囲んだ「囲み文字（囲い文字）」を作る方法をご紹介します。文字と図形を組み合わせてデザイン性に優れた囲み文字が作れます。合わせて「囲み文字アニメーション」「囲み文字マクロ」も解説します。
PowerPointでサイズがバラバラな図形や画像を一括で揃える方法
PowerPointで複数のサイズがバラバラな図形、グラフ、画像、テキストボックスの大きさを一括で揃える方法をご紹介します。オブジェクトのサイズを揃えると整ったレイアウトを組むことができるので、ぜひマスターしましょう！
PowerPointで図として保存の解像度を高画質に保つ方法
PowerPointで画像を「図として保存」するとき、できるだけ解像度を落とさず高画質を保った状態にする方法をご紹介します。通常の「図として保存」では画質が劣化してしまうので、挿入時の元の画像を保存しましょう。
PowerPointでルビ（ふりがな）を振る3つの方法
「PowerPointでルビを振る方法は？」「ルビが表示されない…」の疑問にお答えします。パワポでルビを振るには「2行にする」「括弧書きにする」「Wordオブジェクトを挿入する」の3つの方法があります。同じ要領で文字の上に点（圏点）をつける方法も解説します。
パワポで使える！かわいいフォント19選（手書き風・マジックペン）
PowerPointで使える「かわいいフォント」をまとめました。手書き風、マジックペン風、POP体、ドットフォントなどの商用利用可能なフリーフォントになります。かわいいデザインに大活躍！パワポでかわいいを作ろう！
PowerPointの画像が保存やPDFで劣化しない設定方法
PowerPointの画像が保存やPDF変換時に解像度が落ちて画質が劣化してしまう時の対処法です。PowerPointには、解像度を勝手に落とす設定があるので、意図せず画像が圧縮されないように「高解像度で保存する設定」に変更しましょう。
PowerPointで使える飾り枠（フレーム）素材集A4用21選
PowerPointで使えるA4サイズ用の飾り枠（フレーム）の素材集です。図形の組み合わせが織りなすフレームアイデア21選をお楽しみください。作成ファイルのダウンロードもできますので、ご活用いただけましたら幸いです。
PowerPointで図形を整列・等間隔・間隔指定で並べる方法
PowerPointで複数の図形を整列で揃えたり、等間隔や指定値を空けて並べる方法をご紹介します。整列コマンドはクイックアクセスツールバーに登録しておくと効率的です。整列やスマートガイドを使ってきれいなレイアウト作りを心がけましょう！
PowerPointで挿入後の四角形や画像を角丸に変更する方法
PowerPointで正方形や長方形を簡単に「角丸四角形」に変更する方法、画像を角丸に変更する方法をご紹介します。四角形で作ったけど「角丸に変更したい」「作り変えるのが手間」といったときに修正が楽になる時短テクニックです。
PowerPointで外枠をA4スライドの周囲に一瞬で作る方法
PowerPointで図形のフレームを使い、A4サイズのスライドに外枠を作る方法をご紹介します。合わせて、「枠の幅を指定するマクロ」「枠を利用して線にパターンを設定したように見せる方法」「印刷時にスライドに枠線を付ける方法」も解説します。
PowerPointで美し過ぎる「半円」を作るテクニック
PowerPointで「半円」の作り方に困ったことはないでしょうか？図形の「部分円」で作れそうですが、調整が難しく正確にできません。そこで「図形で作った半円は美しくない？」を検証し、美し過ぎる半円を作るテクニックをご紹介します。
PowerPointでA4印刷用のスライドサイズに設定する方法
PowerPointでスライドを印刷用のA4サイズにする方法、A4からA3に変更する方法をご紹介します。「スライドのサイズ指定」一覧で選択する「A4 210 x 297mm」は、印刷用のA4サイズではありません。サイズ別ダウンロードファイル付き。
PowerPointで目次のページ番号をリーダー線でつなげ揃える方法
PowerPointで目次の項目とページ番号を「リーダー線」でつなげ、ページ番号を綺麗に揃える方法をご紹介します。タブと下線を組み合わせて調整しやすいリーダー線を作りましょう。三点リーダー「…」を使わないのがポイントです。
PowerPointで黒猫画像の色を反転して白猫にする方法
PowerPointで画像を黒色から白色に反転させたいという時ありませんか？画像編集ソフトを使わずにPowerPointのみで画像の色を反転させることができます。合わせて、オブジェクトの色を黒色から白色に反転させるアニメーションの作り方もご紹介します。
PowerPointで縦・斜めストライプを作り太さ調整する方法
PowerPointで太さ調整ができる縦・斜めストライプパターン（縞模様）の作り方をご紹介します。「塗りつぶし（パターン）」で設定するストライプは太さ調整ができません。図形をテクスチャとして並べて自由度が高いストライプを作りましょう。
PowerPointでカギ線コネクタをコの字・曲線・直線にする方法
PowerPointでカギ線コネクタをコの字・曲線・直線にする方法をご紹介します。うまく作れない人もコツが分かれば簡単に操作できるようになります。カギ線コネクタ以外にも「フリーフォーム：図形」と「矢印：Uターン」でコの字の矢印を作る方法も解説します。
PowerPointで金色グラデーションをテーマの色で簡単に作る方法
PowerPointで金色単色と金色グラデーションを「テーマの色」を使って簡単に作る方法をご紹介します。さらに、金色グラデーションの文字に「3-D書式」効果を適用して質感と重厚感を加えてみましょう。