投稿日 | : 2005/03/04(Fri) 16:25 |
投稿者 | : paku |
Eメール | : |
URL | : |
タイトル | : MSChartのラベルに改行文字を入れることが可能でしょうか |
VB6.0のMSChartコントロールで
タイトルにちゃんと改行文字が表示されていますが、
ラベルに改行文字を入れることが不可能でしょうか。
知っている方がいらしゃいましたら、是非教えてください。
---------------------------------------------------
Private Sub Command1_Click()
Dim arrData(3, 1 To 3)
arrData(1, 1) = "00:00:01" '+ vbCrLf + "2005/01/01" ' Set the label
s in the first
series.
arrData(2, 1) = "00:00:02" '+ vbCrLf + "2005/01/01"
arrData(3, 1) = "00:00:03" '+ vbCrLf + "2005/01/01"
arrData(1, 2) = 8
arrData(2, 2) = 4
arrData(3, 2) = 0.3
arrData(1, 3) = 0.2
arrData(2, 3) = 3
arrData(3, 3) = 6.3
MSChart1.ChartData = arrData
MSChart1.chartType = VtChChartType2dLine
MSChart1.ChartData = arrData
With MSChart1.Title
'タイトル文字の設定
.Text = "First Line" + vbCrLf + "Second Line"
'テキストは折り返されます
.TextLayout.WordWrap = True
End With
Dim lIndex As Integer
With MSChart1.Plot.Axis(VtChAxisIdX).Labels
For lIndex = 1 To .Count
'ラベル文字は折り返されます
.Item(lIndex).TextLayout.WordWrap = True
Next
End With
End Sub
以上、よろしくお願い致します。