Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでグラフの位置を取得する

VBAでグラフの位置を取得する

対象：Excel 2010, Excel 2013, Windows版Excel 2016

「excel グラフ 棒グラフ 位置 vba」
「マクロ 選択 要素 グラフ 位置 取得」
という検索でのアクセスがありました。

判断に迷う検索キーワードですが、ワークシート上の埋め込みグラフが、どのセル範囲に存在するかを取得するExcelマクロをご紹介しておきます。

グラフの位置を取得するサンプルマクロ

ワークシート上の埋め込みグラフを選択しておいて以下のSubプロシージャを実行すると、左上のセルアドレスと、右下のセルアドレスがメッセージボックスに表示されます。

Sub 埋め込みグラフのセル範囲を取得する()
On Error GoTo ErrHndl

　With ActiveChart.Parent ' ChartObjectオブジェクト
　　MsgBox _
　　　"左上セル：" & _
　　　.TopLeftCell.Address(False, False) & vbCrLf & _
　　　"右下セル：" & _
　　　.BottomRightCell.Address(False, False)
　End With ' ActiveChart.Parent

Exit Sub
ErrHndl:
　Select Case Err.Number
　　Case 91
　　　MsgBox "ワークシート上のグラフを選択してから実行してください。"
　　Case 438
　　　MsgBox "グラフシートではなく埋め込みグラフを選択してから実行してください。"
　　Case Else
　　　MsgBox Err.Description & vbCrLf & Err.Number
　End Select
　Err.Clear

End Sub

サンプルマクロで利用しているオブジェクトを取得するコードについて

ChartObjectオブジェクトの
TopLeftCellプロパティで左上のセルを表すRangeオブジェクトを、

ChartObject.TopLeftCell

BottomRightCellプロパティで右下のセルを表すRangeオブジェクトを、

ChartObject.BottomRightCell

それぞれ取得できます。

上記のSubプロシージャでは、アクティブなグラフの位置を取得するために、ActiveChartプロパティを利用しているので、

ActiveChartプロパティ

ChartObjectオブジェクトを取得するために、ChartオブジェクトのParentプロパティを利用しています。

Chart.Parent

理解するExcel VBA／グラフ操作の基本
伊藤潔人 2022-06-10
Amazon


最終更新日時：2022-10-01 16:20

［スポンサードリンク］

Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » VBAでグラフの位置を取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓ Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ 日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓


「グラフ・Chart」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.