たくさんのオートシェイプを指定座標まで動かす

昨日は一つのオートシェイプを、水中のミジンコみたいに動かしてみた。 infoment.hatenablog.com今日は複数のオートシェイプを、同じように動かしてみる。 といっても、やっていることは昨日と同じ。今回は、オートシェイプの数だけ配列を準備してみた。 Sub MoveTest() Dim i As Long For i = 1 To 100 Call RandomMove N…