図形の移動もVBAで制御出来るのかと試しに記録してみたところ、
ActiveSheet.Shapes.Range(Array("Oval 1")).SelectSelection.ShapeRange.IncrementLeft 31.5
ActiveSheet.Shapes.Range(Array("Oval 1")).Select
Selection.ShapeRange.IncrementLeft 31.5
見事に出来た!
いやっほう!これにif足せば、ファイルを開く度にマウスを動かす必要が無くなるぜ!
あ、でもファイルを立ち上げると自動的にマクロが実行されるようにしないと。
……できるの?
Permalink | 記事への反応(0) | 13:32
ツイートシェア