たとえば、下のスクリーンショットに示すように、グラフを作成してワークシートにランダムに配置したとします。 次に、チャートを正確で絶対的な位置に簡単にすばやく移動するためのVBAを紹介します。

1。 赦免位置を設定するチャートを選択し、を押します 他の + F11 キーを押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2に設定します。 OK をクリックします。 インセット > モジュール、VBAの下を新しいモジュールウィンドウに貼り付けます。

VBA：Excelでチャートの絶対位置を設定します

Sub Test()
Dim xRg As Range
Dim xChart As ChartObject
Set xRg = Range("D1:J13")
Set xChart = ActiveSheet.ChartObjects(1)
With xChart
.Top = xRg(1).Top
.Left = xRg(1).Left
.Width = xRg.Width
.Height = xRg.Height
End With
End Sub

Note：上記のコードでは、 xRg = Range("D1:J13") を設定します。 チャートを範囲 D1:J13 に移動して配置することを意味します。 必要に応じて範囲を変更できます。

3。 押す F5 キーを押すか、 ラン このVBAを実行するためのボタン。

これで、VBA で指定したとおりにグラフが正確な位置に移動されたことがわかります。 スクリーンショットを参照してください:

Kutools for Excelがインストールされている場合は、その素晴らしいグラフツールを適用できます – チャートの絶対位置を設定する Excel でグラフを指定した範囲に移動し、サイズ変更します。

1。 絶対位置を設定するチャートを選択し、 をクリックします。 クツール > チャート > チャートツール > チャートの絶対位置を設定する.

2。 ポップアップダイアログで、チャートの移動先の位置を指定し、 Ok

これで、選択したチャートが指定された位置に移動され、同時に指定された範囲にサイズ変更されます。 スクリーンショットを参照してください: