Excelでチャートの絶対位置を設定するにはどうすればよいですか？

例えば、以下のようにチャートを作成し、ワークシート上にランダムに配置したとします。ここで、このチャートを簡単に正確かつ絶対的な位置に移動するためのVBAを紹介します。

1. 絶対位置を設定するチャートを選択し、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>「モジュール」をクリックし、新しいモジュールウィンドウに以下の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

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

3. F5 キーを押すか、「実行」ボタンをクリックして、このVBAを実行します。

これで、指定したVBAに基づいてチャートが正確な位置に移動されたことが確認できます。スクリーンショットをご覧ください：

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

1移動したいチャートを選択し、次をクリックします： Kutools > グラフ > グラフツール > チャートの絶対位置を設定します.

2表示されるダイアログで、チャートを移動する位置を指定し、「OK」ボタンをクリックします。 OK ボタンを押します。

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