暇な時間にちょこまかちょこまかとエクセルで絵を描いて、最後に全てをグループ化して完成、完成した時の充実感がいい。
昔プラモデルを作っていた時と同じだ、完成したプラモは、しばらく飾っておくが、次のプラモを買うと前のプラモは爆竹で破壊したりして遊んでいた。
プラモも多くの部品から構成されている。さらにそれらに色を塗ってリアル感を出す。
エクセルの絵も同じだ。
では、一体いくつのオブジェクトで構成されたのか、数えてみたい衝動に駆られた。
しかし、いざ数えるとなると大変だ、簡単に数える方法はないかと、検索したところ、
簡単なマクロで数えることができるとわかった。
そのマクロがこれ、
Sub ObjectCount ()
MsgBox ActiveSheet.Shapes.Count
End Sub
これをモジュールに書き込んで実行してみた。
結果、メッセージボックスに「１」と出た、はぁ？
「ひとつ」 なぜだろうと考えた、答えがわかった、グループ化しているからとわかった。
グループ化を解除し始めたが、これがまた厄介だった。
小グループ、中グループ、大グループと作成していく段階でグループ化していたからだ。
どなたか、一括で全てのグループを解除できる方法ご存知の方いませんかねぇ。
レトロバスの絵を全て解除、マクロ実行。
結果、「５３７」と出た、ようやるわ、このおっさん 暇か
そのあたりのマクロについて、初めての方にもわかる様に、ホームページにアップしておきました、よければ参考にしてください。→
こちらからPR
[0回]
