- 日時： 2007/07/26 15:32
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[チャート][][] *
* キーワード：X 軸のラベルテキストの表示設定,,,,, *
***********************************************************************************
元質問：MSChartについて - しゅう 2005/02/03-11:11 No.1935
MSChartのX軸ラベルの内容を縦書きで２０文字程度入れたのですが、上手く表示されません。
-----------------------------------------------------------------------------------
投稿者：花ちゃん X 軸のラベルテキストの表示設定 2007/07/25
-----------------------------------------------------------------------------------
縦書きに表示は、できますが、折り返して表示されないので縦に長くなってしまう。
(できないのか、方法が間違っているのかは不明)
因みにグラフタイトルでなら折り返して表示されます。
下記をsChartViewSet() プロシージャ内に追加して下さい。
'★追加部分
'------------------- X 軸のラベルテキストの表示設定 ----------------------
With MSChart1
.Row = 1
'テスト用に長い文字列をセット
.RowLabel = "あいうえおかきくけこさしすせそたちつてと"
End With
With MSChart1.Plot.Axis(VtChAxisIdX).Labels.Item(1)
.Auto = False
.VtFont.Size = 12
'下記では WordWrap が有効にならない。(;_;)
'(方法があれば教えてください）
.TextLayout.WordWrap = True
'上揃えで表示
.TextLayout.VertAlignment = VtVerticalAlignmentTop
'縦書き表示
.TextLayout.Orientation = VtOrientationVertical
End With
'---------------------------------------------------------------
★上記実行図
http://hanatyan.sakura.ne.jp/samplepic/chartno16-1.gif
|
X 軸のラベルテキストの表示設定(VB6.0)