18/09/05 00:08:23.39 hA39yyTc.net
>>679のプログラム
Sub Macro1()
ActiveSheet.ChartObjects("グラフ 1").Activate
With ActiveChart
For k = 1 To 2
With .FullSeriesCollection(k)
For p = 1 To 10
.Points(p).Format.Fill.ForeColor.RGB = Cells(p + 1, k).Interior.Color
Next
End With
Next
End With
End Sub