Excel VBAでブロック崩しを作ろう！（初めてのVBAプログラム）第５回

前回は、図形「Ball」を動かしました。下の壁に当たっても跳ね返るので、少し奇妙なブロック崩しでしたが、ボールとラケットの速度を調整するのには、便利だったと思います。
今回は、いよいよ、ブロックを作ります。Excelのブックは、前回の続きで作成していきます。

まず、適当な大きさの長方形をブロックとして、図形で挿入します。そして、名前を「Block」に変更しておいてください。

ワークシート「disp」

それでは、この図形「Block」を操作していきましょう。
まず、この図形を操作するためのサブルーチン「InitBlock」を作ります。場所は、何処でもいいのですが、前回のサブルーチン「Init」の後に作ります。
下記のプログラムを挿入して、マウスカーソルが、このサブルーチンの内部に来るように、一度クリックしてから、「▶」を押して、このサブルーチンを実行します。当然ですが、プログラムを実行する前に、「名前を付けて保存」で、「Block-04.xlsm」のように、保存してください。

Sub InitBlock()
  Dim Block As Shape
  Set Block = Worksheets("disp").Shapes("Block")
  Debug.Print Block.Name
End Sub