VBAでグラフのindexを取得したい

質問

EXCEL VBA（Office2010）にて、選択中のグラフ（マウスでクリックの状態。Ctrl＋クリックではない）のWidthとHeightを取得したいです。Ctrl＋クリックならActivechart指定でグラフのindexが取得できるので問題ないのですが、ただの選択状態だとActivateされていないため、それができません。Selection.Application.Activechart.Nameなどでグラフの名前は取得できても、同一の名前のグラフが存在する可能性があるため一意に定められず、この方法もダメでした。要するに、Typename(Selection)が"Chartarea"の状態でそのグラフのindexを取得したい、ということになります。どうかよろしくお願いします。

回答No.2

end-u · ベストアンサー

ぁ、いやいや。
ChartAreaをSelectしていてもActiveChartは在ります。
∴ActiveChart.Parentで良いのでした。

If Not ActiveChart Is Nothing Then
　　With ActiveChart.Parent
　　　　MsgBox .Index & vbLf & .Left & vbLf & .Top _
　　　　　　　　　　　& vbLf & .Width & vbLf & .Height
　　End With
End If

お礼

親要素へさかのぼってアクセスできるとは、まったく知りませんでした・・・。これで2007辺りから面倒になっていた、グラフの処理が自動化できそうです。ありがとうございました！

回答No.1

end-u

Parent プロパティ を使うと良いです。

ChartObject
└Chart
　└ChartArea

なので
.Parent.Parent
つまりChartAreaの親Objectの親ObjectがChartObject。

Dim c As ChartObject
If TypeName(Selection) = "ChartArea" Then
　　Set c = Selection.Parent.Parent
　　MsgBox c.Index & vbLf & c.Left & vbLf & c.Top _
　　　　　　　　　 & vbLf & c.Width & vbLf & c.Height
　　Set c = Nothing
End If

>WidthとHeightを取得したい..
場合、上記例のようにIndexを取得しないでもいいですよ。