MSchartのTitleを３行で表示したくてコードは下記のように書きました。

'Private Sub Form_Load()
'Dim wWord$
　
'wWord$ = "アイウエオカキクケコ" & vbCrLf & _
'  　      "サシスセソタチツテト" & vbCrLf & _
'    　    "ナニヌネノハヒフヘホ"
'With MSChart1
'　.Title.TextLayout.WordWrap = True
'  .TitleText = wWord$ & " "
'　 .Title.TextLayout.HorzAlignment = VtHorizontalAlignmentLeft
' 　.Title.Location.LocationType = VtChLocationTypeTopLeft
' 　.TextLengthType = VtTextLengthTypeDevice        
'
'End With
'End Sub

WordWrap = Trueとしているのでうまく３行と思っていましたが１行目の上部及び３行目の下部か切れて表示されてしまいます。
表示された後、タイトル部分をクリックすると、タイトル範囲が分かり、高さを調整できますが、切れていない状態で表示するやり方を教えて下さい。

また、もしこのMSchart.Titleで出来ないようであればVBのLabel等で対応しようと考えています。何卒、宜しくお願い致します。

> また、もしこのMSchart.Titleで出来ないようであればVBのLabel等で対応しようと考えています。

多分、バグか何かと思われます。(特に日本語での表示設定では)
グラフのサイズを縦長にすると表示されたり、Font サイズを極端に大きく(45以上とか)
すると表示はされるようですが...。

下記のようなバランスなら(全画面表示で見て下さい)
http://hanatyan.sakura.ne.jp/Image999.gif

> > また、もしこのMSchart.Titleで出来ないようであればVBのLabel等で対応しようと考えています。
>
> 多分、バグか何かと思われます。(特に日本語での表示設定では)
> グラフのサイズを縦長にすると表示されたり、Font サイズを極端に大きく(45以上とか)
> すると表示はされるようですが...。
>
> 下記のようなバランスなら(全画面表示で見て下さい)
> http://hanatyan.sakura.ne.jp/Image999.gif

花ちゃんさん、返信遅くなり、申し訳ございません。また、GIF画像ありがとうございます。

私なりに３行で左寄せでと、あれこれやってみました。
プロパティのテキストタブ内でどれだけ入力できるか試してみたところ、
飽きるくらい入力ができて、ちょうど３行分になるくらい入力して
試しにそのまま実行すると・・・
なんと、きれいに左寄せで３行出ました！
これにより、左寄せで３行表示が可能ということがわかりました。

また、前述した

'wWord$ = "アイウエオカキクケコ" & vbCrLf & _
'  　      "サシスセソタチツテト" & vbCrLf & _
'    　    "ナニヌネノハヒフヘホ"

の部分ですが、必ず、全角１０文字と決まってないので

'wWord$ = pubWord$(1) & IIf(Len(pubWord$(2)) = 0, "", Space$(290) & vbCrLf) & _
'         pubWord$(2) & IIf(Len(pubWord$(3)) = 0, "", Space$(290) & vbCrLf) & _
'         pubWord$(3)
　　　　※pubWord$(1)に１行目に表示したい文字が格納されます。(2)に２行目用、
　　　　   (3)に３行目用といった感じです。
　
とし、やりたいことが一応できました。

本来はSpace$(290)とか使わず、またFontサイズもデフォルトのままでやりたかったのですが・・・。う〜ん、わかりません。
実行後にタイトル範囲を変更できますが、あのタイトル範囲（高さ、幅）の値を取得する事はできないのでしょうか？