テキストボックス内の文字数

質問

具体的にはパワーポイント内の総文字数を知りたいのですが、現在、各テキストボックスからワードにコピペして（D&D)、ワードの文字カウント機能を使って文字数を出しています。
もっと効率の良い方法をご存じでしたら是非教えてください！
PPTには、アウトラインはなく、テキストボックスとグラフのみで、送信→ワードも使えません。
原始的な作業がこの暑さにはつらいです！
よろしくお願いします！！！

回答No.1

BLUEPIXY · ベストアンサー

マクロで数えるのがいいかと思います。
標準モジュールを挿入して以下を
コピペして使ってみてください。
'------------------------------------------
Public Sub 文字数カウント()
Dim c, i, p As Slide, s As Shape
c = 0
For Each p In ActivePresentation.Slides
For i = 1 To p.Shapes.Count
Set s = p.Shapes.Item(i)
If s.HasTextFrame Then
c = c + Len(s.TextFrame.TextRange.Text)
End If
Next
Next
MsgBox c

End Sub

お礼

ありがとうございました。
無事カウントできました。

久しぶりにVBA起動してどきどきしてしまいましたが、問題なく実行できました。