| |
▼美貴 さん：
>>ひとつのグラフシート上に 複数のグラフを
>>配置することもできます。
>
>とのことなのですが、その場合にそれらのグラフを
>コレクションとして扱うにはどんなキーワードに
>なるんでしょうか？
>私のマクロは、ブックの中のグラフシートに他のブックへの
>外部リンクがないかどうかをチェックするものです。
グラフシート上にグラフがひとつのときは、グラフの系列は
Charts(1).SeriesCollection
という単純階層です。(Charts(1) は 1番目のグラフシート)
グラフシート上に複数グラフがおかれているときは、各グラフの系列は
ワークシート上の埋め込みグラフと同様ChartObjectのなかに１つづつ
Chartがある、という格好になります。
たとえば Charts(1) に 4つのChartObjectsがあるばあいは
Charts(1).ChartObjects(1).Chart.SeriesCollection
Charts(1).ChartObjects(2).Chart.SeriesCollection
Charts(1).ChartObjects(3).Chart.SeriesCollection
Charts(1).ChartObjects(4).Chart.SeriesCollection
で各系列にアクセスできます。
'---------------------------------------------------
'●対象グラフシートをアクティブにして実験です
Sub ChartObjects_On_Chart()
Dim objCht As ChartObject
Dim n As Long
n = ActiveChart.ChartObjects.Count
If n = 0 Then
ShowFormula ActiveChart
Else
For Each objCht In ActiveChart.ChartObjects
ShowFormula objCht.Chart
Next
End If
End Sub
Private Sub ShowFormula(Cht As Chart)
Dim Ser As Series
For Each Ser In Cht.SeriesCollection
Debug.Print Ser.Formula
Next
End Sub
|
|
kanabun
- 12/1/3(火) 15:21 -
