|
あるグラフの情報(系列書式)を、別のグラフにコピー⇒ペーストするマクロを作成しています。
ペーストの際に、シート内の任意に選択したグラフすべてに対して処理を行いたいのですが、複数のグラフに同時に処理する方法が分かりません。
シート内のすべてのグラフ、もしくは1つだけ選択したグラフであればやれるのですが、複数選択したグラフに処理したい場合どうすればよいのでしょうか。
今のところ作ったものは以下のものです。
コマンドボタン1でグラフの情報コピー、コマンドボタン2で別のグラフにペーストするプログラムです。
Private Sub CommandButton1_Click()
Dim i As Integer
MsgBox TypeName(Selection)
If TypeName(Selection) = "ChartObject" Then
series_count = ActiveChart.SeriesCollection.Count
For i = 1 To series_count
line_color(i) = ActiveChart.SeriesCollection(i).Border.ColorIndex
Next i
End If
End Sub
Private Sub CommandButton2_Click()
Dim i As Integer
Dim cnt As Integer
MsgBox TypeName(Selection)
If TypeName(Selection) = "ChartObject" Then
cnt = ActiveChart.SeriesCollection.Count
If cnt > series_count Then
cnt = series_count
End If
For i = 1 To cnt
ActiveChart.SeriesCollection(i).Border.ColorIndex = line_color(i)
Next i
End If
End Sub
|
|