| |
>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)
：
うちの場合はちょっとアレンジしちゃってるので、こんな感じ。
ほんま！「インクを・・・」って出ますね。
実際、右クリックメニュー出してみても、こんなん出ませんがー
「インク」って何よ・・・・？ 私も声を大にしていいたい！！
（と言ってると、誰かが答えてくれるもしれんｗ）
>'テキスト追加オリジナル（明朝）
>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}"
>です。
あ、そうですね！
標準のメニューをさしおいて、オリジナルメニューを前に出張らせちゃーいけませんね。
おとなしく後ろに控えさせておけば、変に順番が狂わなくて良かったんや＾＾
|
|
つん
- 09/6/10(水) 9:07 -
