|
>Sub test()
> Dim c As CommandBarControl
>
> For Each c In Application.CommandBars("Shapes").Controls
> Debug.Print c.Index, c.Caption
> Next
>End Sub
家は2007だったので、出社してしてみました。
1 切り取り(&T)
2 コピー(&C)
3 インクをテキストとしてコピー(&T)
4 貼り付け(&P)
5 再変換(&V)
6 テキストの追加 オリジナル(明朝)
7 テキストの追加 オリジナル(ゴシック)
8 テキストの編集(&X)
9 グループ化(&G)
:
うちの場合はちょっとアレンジしちゃってるので、こんな感じ。
ほんま!「インクを・・・」って出ますね。
実際、右クリックメニュー出してみても、こんなん出ませんがー
「インク」って何よ・・・・? 私も声を大にしていいたい!!
(と言ってると、誰かが答えてくれるもしれんw)
>'テキスト追加オリジナル(明朝)
>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}"
>です。
あ、そうですね!
標準のメニューをさしおいて、オリジナルメニューを前に出張らせちゃーいけませんね。
おとなしく後ろに控えさせておけば、変に順番が狂わなくて良かったんや^^
|
|