ツールバー表示

ExcelVBAで左端にツールバー表示をしたく、調べて表示する所までは出来ました。
ですが文字が縦向きになっております。
私は、横向きの文字にしたいのですが、方法はあるのでしょうか？

環境はWindowsXP、Excel2003です。
以下、その部分の関係ありそうなソース（一部）。
Private Sub Workbook_Open()
Dim objBar As CommandBar
Dim objCont As CommandBarControl
Dim objBtn As CommandBarButton

Set objBar = xlAPP.CommandBars.Add(Name:=g_cnsTITLE, Position:=msoBarLeft)
Set objCont = objBar.Controls.Add(Type:=msoControlButton)
Set objBtn = objCont
objBtn.Caption = "ボタン１"

No.1 ベストアンサー 回答者： kybo 回答日時： 2009/09/19 16:14

objBtn.Caption = "ボタン１"

の次にでも以下の1文をいれてみてはどうでしょう

objBtn.Style = msoButtonIconAndCaptionBelow

この回答へのお礼

横になりました！！！！
ありがとうございます。

お礼日時：2009/09/19 17:27