電子書籍の厳選無料作品が豊富!

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 = "ボタン1"

A 回答 (1件)

objBtn.Caption = "ボタン1"


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

objBtn.Style = msoButtonIconAndCaptionBelow
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!