Sheet内のオブジェクトの数を数える

エクセルで絵を書いていて、ふと、一体どれくらいの数のオブジェクトで出来上がっているのか

　　数えてみたくなったのだが、実際に数えるとなると大変だ。

　　　　そこで、簡単に数えられる方法はないかと調べてみると、

　　　　　　　ありました！非常に簡単なマクロです。

　　　　　　　　　　　　　　　　（マクロとは、エクセルやアクセス内でで動くプログラムのことです）

　　　　　　　　　　　　　　　　　　　　　　　

---

　マクロとは？とかVBA（Visual Basic Editorの略）とは、等の講釈は省きます。
　　　マクロを知りたいと思う方は、「EXCEL VBA 入門口座へようこそ！！」がお薦めです。


まず、マクロを書き込む画面を表示させます。

EXCEL2003では	EXCEL2007では

すると下記の画面が出てきます。This Workbook →　挿入　→　標準モジュール　で　Module1 が表示されます。

下図は、EXCEL200７のものですが、２００３もほぼ同じです。	Module1にマクロを書き込みます

書き込むマクロは、これだけです　　　　　（下の構文をコピペしてもOKです）



　　　　　End Sub

このマクロについて簡単に説明しておきます。

１行目
　Sub 図形Count（）はマクロの名前です。図形Countの所は好きな言葉でOKです、アルファベット、ひらがな、カタカナ、漢字が使えます。（＄や数字で始まるものは使えません）
Sub　好きな名前　ここまで入力して　Enter　を押すと　この後の　（）と最後の　End　Sub　が自動的に入力されます。
マクロの基本形がこれです、頭にマクロ名と最後に、プログラムの終了を意味する　End　Subが絶対必要です。

　　　　　　　　　　　　　　　　　　　Sub　マクロ名（）
　　　　　　　　　　　　　　　　　　　　　構文
　　　　　　　　　　　　　　　　　　End　Sub

visual BasicＥditor　を表示させたまま実行する場合、 下図の三角形の部分をクリックします。	Visual BasicＥditor　を閉じたあとから実行する場合 開発　→　マクロ　→	EXCEL2003の場合
	マクロ名選択　→　実行	←左のマクロ実行画面と同じものがが出てきます、 　　後は同じです

グループ化された図形は、１つとカウントされます。正確に数を数える場合は、

すべてのグレープ化を解除しておく必要があります。