【PowerPoint】文章の中の「特定の漢字」だけを一括でサイズ変更するマクロ

プレゼン資料作成中に、特定の漢字だけを強調したい、あるいは統一感を持たせたいと考えることはありませんか。

手作業で一つずつ文字サイズを変更するのは、非常に手間がかかり、ミスも発生しやすくなります。

この記事では、PowerPointのVBAマクロを使って、文章中の特定の漢字だけを一括でサイズ変更する具体的な方法を解説します。

この手順を実行すれば、資料作成の効率が大幅に向上し、見た目もプロフェッショナルな印象に仕上げることができます。

特定の漢字のサイズ変更マクロの概要と前提

PowerPointのVBAマクロは、繰り返し行う定型作業を自動化する強力な機能です。このマクロを使用すると、プレゼンテーション内の全スライド、または指定したスライドに存在する特定の漢字のみを抽出し、一括でフォントサイズを変更できます。これにより、手作業による時間と労力を大幅に削減し、ヒューマンエラーのリスクを低減します。

マクロを利用するには、PowerPointに「開発」タブが表示されている必要があります。また、セキュリティ設定によってはマクロが実行できない場合がありますので、事前に確認が必要です。

マクロで実現できること

このマクロは、プレゼンテーション内のテキストボックスに含まれる文字を一つずつ確認します。そして、ユーザーが指定した特定の漢字と一致した場合にのみ、その漢字のフォントサイズを変更します。これにより、文書全体にわたって特定の漢字の視覚的な統一性を保つことが容易になります。例えば、専門用語や重要なキーワードの漢字だけを大きくして目立たせる、といった用途に活用できます。

特定の漢字のサイズを一括変更するVBAマクロの作成と実行手順

特定の漢字のフォントサイズを一括で変更するためのVBAマクロの作成と実行手順を解説します。この手順通りに進めることで、効率的に作業を進められます。

1. 開発タブの表示設定
   PowerPointを開き、「ファイル」タブをクリックします。左側のメニューから「オプション」を選択します。PowerPointのオプションダイアログボックスで、「リボンのユーザー設定」をクリックします。右側の「リボンのユーザー設定」リストから「開発」チェックボックスをオンにし、「OK」をクリックします。Mac版PowerPointの場合は、「PowerPoint」メニューから「環境設定」を選択し、「リボンとツールバー」をクリックします。「リボンのユーザー設定」タブで「開発」にチェックを入れ、「保存」をクリックします。
2. VBAエディターの起動
   PowerPointのリボンに表示された「開発」タブをクリックします。「コード」グループにある「Visual Basic」をクリックしてVBAエディターを起動します。
3. 標準モジュールの挿入
   VBAエディターの左側にある「プロジェクトエクスプローラー」ウィンドウで、現在のプレゼンテーションファイルを選択します。「挿入」メニューから「標準モジュール」を選択します。
4. マクロコードの貼り付けと設定
   新しく開いたモジュールウィンドウに、以下のVBAコードをコピーして貼り付けます。TargetKanji に変更したい漢字を、NewFontSize に新しいフォントサイズを数値で入力します。

   Sub ChangeKanjiFontSize()
       Dim TargetKanji As String
       Dim NewFontSize As Single
       Dim oSlide As Slide
       Dim oShape As Shape
       Dim oTextRange As TextRange
       Dim i As Long
   
       ' ★★★ 変更したい漢字と新しいフォントサイズを設定してください ★★★
       TargetKanji = "漢字" ' 例: "漢字" または "会社"
       NewFontSize = 24    ' 例: 24 (ポイント)
   
       ' 全スライドを対象にする
       For Each oSlide In ActivePresentation.Slides
           ' 各スライドのすべての図形を対象にする
           For Each oShape In oSlide.Shapes
               ' テキストフレームを持つ図形のみを処理する
               If oShape.HasTextFrame Then
                   If oShape.TextFrame.HasText Then
                       Set oTextRange = oShape.TextFrame.TextRange
                       ' テキスト範囲内の各文字をチェックする
                       For i = 1 To oTextRange.Length
                           If Mid(oTextRange.Characters(i, 1).Text, 1, 1) = TargetKanji Then
                               ' 対象の漢字が見つかったらフォントサイズを変更する
                               oTextRange.Characters(i, 1).Font.Size = NewFontSize
                           End If
                       Next i
                   End If
               End If
           Next oShape
       Next oSlide
   
       MsgBox "'" & TargetKanji & "' の文字サイズを " & NewFontSize & " ポイントに変更しました。", vbInformation
   End Sub

5. マクロの実行
   VBAエディターのツールバーにある「実行」ボタン(緑色の再生アイコン)をクリックするか、「実行」メニューから「Sub/ユーザーフォームの実行」を選択します。「ChangeKanjiFontSize」を選択して「実行」ボタンをクリックします。マクロの実行が完了すると、変更された漢字の数と新しいフォントサイズを示すメッセージボックスが表示されます。

マクロ実行時の注意点と失敗例

マクロは強力なツールですが、使用にはいくつかの注意点があります。予期せぬ結果を避けるためにも、以下の点を事前に確認してください。

マクロが実行できない場合の対処法

PowerPointのセキュリティ設定で、マクロが無効になっている可能性があります。「ファイル」タブから「オプション」→「セキュリティセンター」→「セキュリティセンターの設定」→「マクロの設定」を開きます。「すべてのマクロを有効にする」または「VBAマクロを有効にして、PowerPointのファイルを開く」を選択し、「OK」をクリックします。ただし、セキュリティリスクを理解した上で設定してください。Mac版PowerPointの場合は、「PowerPoint」メニューから「環境設定」を選択し、「セキュリティとプライバシー」をクリックします。「マクロのセキュリティ」で「VBAマクロを有効にする」を選択します。

変更前にバックアップを取る

マクロによる変更は元に戻す操作ができません。必ずプレゼンテーションファイルを別名で保存するか、コピーを作成してからマクロを実行してください。これにより、万が一意図しない変更が加えられた場合でも、元の状態に戻すことができます。

特定の漢字以外も変更されてしまう可能性

コードの TargetKanji に設定した文字列が、英数字やひらがなの一部として含まれている場合、意図しない文字も変更される可能性があります。例えば、「会社」を対象にした場合、「会社員」の「会社」も変更されます。より厳密な指定が必要な場合は、コードの変更が必要です。

対象範囲を限定したい場合

上記のコードは全スライドを対象とします。特定のスライドのみを対象にしたい場合は、For Each oSlide In ActivePresentation.Slides の部分を For Each oSlide In ActiveWindow.Selection.SlideRange などと変更し、事前にスライドを選択しておく必要があります。これにより、必要なスライドのみにマクロを適用できます。

PowerPointでの文字サイズ調整機能の比較

PowerPointで文字サイズを調整する方法は複数あります。それぞれの特徴を理解し、状況に応じて適切な方法を選択しましょう。

まとめ

PowerPointのVBAマクロを利用すれば、文章中の特定の漢字だけを一括で効率的にサイズ変更できます。

開発タブの表示からVBAエディターでのコード挿入、そしてマクロの実行まで、手順通りに進めれば誰でも利用可能です。

この自動化によって、手作業での時間と労力を削減し、プレゼンテーション資料の品質向上に繋がります。

ぜひこのマクロを活用し、他の繰り返し作業の自動化にも挑戦してみてください。