投稿日 | : 2005/03/04(Fri) 22:44 |
投稿者 | : paku |
Eメール | : |
URL | : |
タイトル | : Re^2: MSChartのラベルに改行文字を入れることが可能でしょうか |
> > 知っている方がいらしゃいましたら、是非教えてください。
>
> 多分、出来ないと思うので解る方もいないかと、従ってだれからもレスがつかないかも。
早速回答いだだき、どうもありがどうございました。
やりたいことは、X軸のラベルを2行に表示すること。
ラベルに改行を入れることがだめみたいなんで、
二つのラベルを付く方法をやってみて、できましたが、
2行目のラベルの2行目のラベルのスキップする区分数の設定はうまくいけない。
解決方法がありますでしょうか。
Private Sub Command1_Click()
Dim arrData(6, 1 To 4)
arrData(1, 1) = "00:00:01" 'Set the labels in the first series.
arrData(2, 1) = "00:00:02"
arrData(3, 1) = "00:00:03"
arrData(4, 1) = "00:00:04"
arrData(5, 1) = "00:00:05"
arrData(6, 1) = "00:00:06"
arrData(1, 2) = "2005/01/01" 'Set the labels in the second series.
arrData(2, 2) = "2005/01/01"
arrData(3, 2) = "2005/01/01"
arrData(4, 2) = "2005/01/01"
arrData(5, 2) = "2005/01/01"
arrData(6, 2) = "2005/01/01"
arrData(1, 3) = 8
arrData(2, 3) = 4
arrData(3, 3) = 8
arrData(4, 3) = 4
arrData(5, 3) = 0.3
arrData(6, 3) = 0.3
arrData(1, 4) = 0.2
arrData(2, 4) = 3
arrData(3, 4) = 6.3
arrData(4, 4) = 0.2
arrData(5, 4) = 3
arrData(6, 4) = 6.3
chtMileage.ChartData = arrData
chtMileage.chartType = VtChChartType2dLine
chtMileage.ChartData = arrData
With chtMileage.Title
'タイトル文字の設定
.Text = "First Line" + vbCrLf + "Second Line"
'テキストは折り返されます
.TextLayout.WordWrap = True
End With
'【質問】:
' 2行目のラベルのスキップする区分数の設定はうまくいけないです。
' Axis オブジェクトの2番目のパラメーターの意味は何でしょう。
'
Dim index As Integer
index = -1
With chtMileage.Plot.Axis(VtChAxisIdX, index).CategoryScale
'軸に自動的にスケールを付けるフラグ。
.Auto = False
'ラベル間でスキップする区分数。
.DivisionsPerLabel = 2
'大きい目盛りマーク間でスキップする区分数
.DivisionsPerTick = 1
End With
End Sub
ソースが長くなってしまいますが、すいませんでした。
以上、よろしくお願い致します。