ExcelやPowerPoint、どちらであれオブジェクトの数をカウントしようにも、VBAを使わざるを得ないようです。 簡単なまとめとして。
ExcelでVBA
1. オプションから、リボンに開発タブを表示しておきます。
2. 開発タブ → マクロ を選択
3. 適当な名前でマクロを作成して作成
4. SubとEnd Subの間に以下のコードを入力
MsgBox ActiveSheet.Shapes.Count
5. ファイルから、終了してMicrosoft Excelに戻る
6. 開発タブ → マクロから、作成したマクロを実行
PowerPointでVBA
1~3はExcelと同様です。 4. SubとEnd Subの間に以下のコードを入力 Item(36)の数字36にはカウントしたいスライド番号を入力します。
MsgBox ActivePresentation.Slides.Item(36).Shapes.Count
5~6もExcelと同様です。
利用例
パワポ絵がキチガイの一歩手前で踏みとどまっていることをアッピールするのに使えます。 1000オブジェクトにはほど遠いので、ふつう です。