|
▼Kein さん:
>系列が複数あるなら、それらをループ処理していけば良いのです。
>
>Sub Ch_Plot_Resize2()
> Dim Se As Series
> Dim Ary As Variant
> Dim MyR1 As Range, MyR2 As Range
>
> For Each Se In ActiveSheet.ChartObjects("グラフ 810") _
> .Chart.SeriesCollection
> 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
> Next
>End Sub
>
>というように。
できました! 親切に教えて頂き感謝しております。
これを機に、VBAの勉強をしていきたいと考えています。
本当に、ありがとうございました。
|
|