VBAでグラフサイズの取得ができない

Question

ある一つのグラフに他のグラフのサイズを合わせるために、グラフサイズの取得をしたいのですが以下のコードでは
「メソッドまたはメンバーが見つかりません」
というエラーが出て取得できません。

Sub Adjust_Graph_Size()
'
' Adjust_Graph_Size Macro
'

'
    Dim Achart As Chart
    Set Achart = ActiveChart
        
    Gwidth = Achart.Width 'エラー箇所
    Gheight = Achart.Height 'エラー箇所
    
    MsgBox "Width:" & Gwidth & "× Height:" & Gheight

        
End Sub

ActiveSheet.Shapes("グラフ 1").Width
とした場合には取れるのですが、この形ですとアクティブなグラフが設定できずに困っています。

ネットを探しても案外解決法がなかったので、解決法をご教授いただけないでしょうか。

Answer 1

解決済みでしたが、後にこの質問を参照された方のために補足させていただきます。

---

Excelのグラフには「埋め込みグラフ」と、「グラフシート」というものがあります。

「埋め込みグラフ」はワークシート上に描画オブジェクトとして貼り付けているものです。
「グラフシート」は１つのグラフを専用のシートにしたものです。

このどちらを対象とするかで取得の方法が異なります。
「埋め込みグラフ」：WorkSheet.ChartObjectsコレクションから取得
「グラフシート」：Application.Chartsコレクションから取得

(ActiveChartで取得する場合はどちらも取得できますが、当然ながら事前に対象のオブジェクトまたはグラフシートをActiveにしておく必要があります。)

今回は複数のグラフの幅や高さを設定したいということですので、「埋め込みグラフ」を対象とされているものと思います。

ちなみに「グラフシート」は名前の通り"シート"の一種ですので、Chart型にWidthというプロパティはありません。
今回の質問で「メソッドまたはメンバーが見つかりません」 と怒られているのはこの点だと思います。

---

以下、グラフ名でプロパティ参照・設定するコード例です。

Sub Adjust_Graph_Size()
'
' Adjust_Graph_Size Macro
'

    ''埋め込みグラフ名の確認
    'Dim i As Integer
    'For i = 1 To ActiveSheet.ChartObjects.Count
    '    MsgBox ActiveSheet.ChartObjects(i).Name
    'Next i
    
    ''グラフシート名の確認
    'For i = 1 To Charts.Count
    '    MsgBox Charts(i).Name
    'Next i
    
    Dim Achart As ChartObject
    Set Achart = ActiveSheet.ChartObjects("Chart 1")
    
    Dim Bchart As ChartObject
    Set Bchart = ActiveSheet.ChartObjects("Chart 2")
    
    Gwidth = Achart.Width 'エラー箇所
    Gheight = Achart.Height 'エラー箇所

    MsgBox "Width:" & Gwidth & "× Height:" & Gheight
    
    Bchart.Width = Gwidth
    Bchart.Height = Gheight

End Sub

参考までに。

Answer 2

以下のように修正してみてください。

Gwidth = Achart.Width 'エラー箇所
Gheight = Achart.Height 'エラー箇所

Gwidth = Achart.Parent.Width
Gheight = Achart.Parent.Height

Chartオブジェクトの上にChartObject オブジェクトというのがあるということらしいです(ややこしい)

参考ページ
ChartObject オブジェクト (Excel)

Comments

[Justmeaning]

親の方だったんですね。子の方から探していて、メンバやメソッドが見つからないのに、オブジェクト生成しない場合には普通にメソッド使えていないので不思議に思っていました。
ありがとうございました。

Answer 3

先にアクティブにしないといけないようですよ。

Chart オブジェクト (Excel)

グラフがアクティブになっているときには、ActiveChart プロパティを使って、そのグラフにアクセスすることができます。グラフ シートがアクティブになるのは、ユーザーがそのシートを選択した場合、あるいは、Chart オブジェクトの Activate メソッドまたは ChartObject オブジェクトの Activate メソッドによってそのシートがアクティブにされた場合です。次の使用例は、グラフ シート 1 をアクティブにし、グラフの種類とタイトルを設定します。

ActiveSheet.Shapes("グラフ 1").Activate

とでもすればいいんじゃないですかね ^^

Comments

[Justmeaning]

すみません、グラフ名の指定の話ではなく、オブジェクトの話です。
質問文を全文読んでいただきたいです。
上記のコードの改修方法を教えてください。

[Mr_Roboto]

怒られちゃったw
もう解決しましたか？
ここだとコードが書きにくいので別で回答書きますね。