|
▼Kein さん:
>では、こんなコードでどうでしょーか ?
>
>Sub Ch_Plot_Resize()
> Dim Se As Series
> Dim Ary As Variant
> Dim MyR1 As Range, MyR2 As Range
>
> Set Se = ActiveSheet.ChartObjects("グラフ 810") _
> .Chart.SeriesCollection(1)
> Ary = Split(Se.Formula, ",")
> Set MyR1 = Range(Ary(1)).Resize(Range(Ary(1)).Rows.Count + 1)
> Set MyR2 = Range(Ary(2)).Resize(Range(Ary(2)).Rows.Count + 1)
> Se.XValues = MyR1: Se.Values = MyR2
> Set MyR1 = Nothing: Set MyR2 = Nothing: Set Se = Nothing
>End Sub
できました! ありがとうございます。
このコードで、グラフが4列で構成されている場合は、どのようになるのでしょうか?
つまり、一番左の列がX軸で、残りの3列がY軸上に表示されるようなグラフの場合です。
よく解ってなくてすいません。
|
|