ツールバー表示

質問

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 · ベストアンサー

objBtn.Caption = "ボタン１"
の次にでも以下の1文をいれてみてはどうでしょう

objBtn.Style = msoButtonIconAndCaptionBelow

お礼

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