|
それから、2003の場合は
Sub test()
Dim c As CommandBarControl
For Each c In Application.CommandBars("Shapes").Controls
Debug.Print c.Index, c.Caption
Next
End Sub
こんなので確認してみると、デフォルトで
1 切り取り(&T)
2 コピー(&C)
3 インクをテキストとしてコピー(&T) 【出てこん?】
4 貼り付け(&P)
5 再変換(&V)
6 テキストの追加(&X)
7 グループ化(&G)
:
こんなです。
『インク...』って何よ?...な感じですが取りあえず
'テキスト追加オリジナル(明朝)
Set cBarCtrl = cBar.Controls.Add(Type:=msoControlButton _
, Before:=7)
':
'テキスト追加オリジナル(ゴシック)
Set cBarCtrl2 = cBar.Controls.Add(Type:=msoControlButton _
, Before:=8)
':
それぞれBefore:=7、8 として[テキストの追加]の後に追加したほうが良いようです。
この場合
SendKeys "{DOWN 5}{ENTER}"
です。
|
|