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ボタンをクリックします。

これにより、選択したグラフが指定位置に移動されると同時に、制限された範囲内にサイズ変更されます。スクリーンショットをご覧ください：