文字数カウント」といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。PowerPointで文字数をカウントする方法を探している方による検索です。Wordの場合、ショートカットキー[Ctrl]+[Shift]+[G]などから文字数のカウントを行うことができます。PowerPointには文字数を数えるような機能は存在していません。[スポンサードリンク]そのためのマクロをご紹介しておいましょう。Sub上記のマクロを実行すると、アクティブなプレゼンテーションファイルに含まれる文字数がメッセージボックスに表示されます。全スライドに対するループ処理の中に、個々のスライドに含まれるシェイプに対してループを回し、その中でLen関数を使って文字数を加算しています。プレゼンテーションファイル全体に対する文字数ではなく、アクティブなスライドの文字数だけカウントしたいということもあるでしょう。Subこちらはループを入れ子にする必要はありません。PowerPointのVBAにはActiveSlide的なプロパティが存在していないので、ActiveWindow.Selection.SlideRangeプロパティでアクティブスライドを取得しています。教本』は、オブジェクトブラウザーの使い方を丁寧に解説した教本でもあります。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。