図の移動、位置の指定：ChartObjects.Top/Left

図を移動させたり位置を指定するには、ChartObjectsのTop、Leftプロパティを指定します。それぞれ数字を指定しますが、これは画面の左上からのpixel数になり、(0,0)を指定すれば画面左上の位置にぴったりとハマります。 下の例ではワークシート"sheet1"にある"fig01"という名前の図の位置を指定しています。ChartObjects("fig01")をfigという変数に割り当ててあり、fig.Top、fig.Leftをそれぞれ10に指定していますので、左上からちょっと内側に入った位置に移動します。

Sub test()   Dim ws As Worksheet                      'ワークシート型変数の定義   Dim fig As ChartObject                    'ChartObject型変数の定義   Set ws = Worksheets("sheet1")        'ワークシート名を指定   Set fig = ws.ChartObjects("fig01")     'グラフを指定   fig.Top = 10   fig.Left = 10 End Sub