| 投稿日 | ： 2002/12/14(Sat) 13:35 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: MSChartの折れ線の一部の色を変えたい |
> 何か、簡単なアドバイス（こうすることで、出来そうかも？！）は無いでしょうか？
水平のラインだけ青色で表示すればいいのですネ
（考え方だけ）
Private Sub Command1_Click()
Dim i As Long
Dim PX1 As Long, PX2 As Long
Dim dat(1 To 4) As Long
dat(1) = 2000
dat(2) = 1500
dat(3) = 1500
dat(4) = 1000
For i = 1 To 4
If i = 1 Then
PX1 = 500: PX2 = PX1
Call PrintLine(PX1, dat(i), PX2, dat(i))
PX1 = 0
Else
PX1 = PX1 + 500: PX2 = PX1 + 500
Call PrintLine(PX1, dat(i - 1), PX2, dat(i))
End If
Next i
End Sub
Private Sub PrintLine(X1 As Long, Y1 As Long, X2 As Long, Y2 As Long)
Dim Co As Integer
If Y1 = Y2 Then
Co = 9
Else
Co = 12
End If
Line (X1, Y1)-(X2, Y2), QBColor(Co)
End Sub
こんな方法ではだめですか？