Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8489 / 13646 ツリー ←次へ | 前へ→

【32981】右クリックメニュー追加について ひろ 05/12/28(水) 14:25 質問[未読]
【32987】Re:右クリックメニュー追加について Jaka 05/12/28(水) 15:27 回答[未読]
【33003】Re:右クリックメニュー追加について ひろ 05/12/28(水) 17:50 質問[未読]

【32981】右クリックメニュー追加について
質問  ひろ  - 05/12/28(水) 14:25 -

引用なし
パスワード
   皆さんこんにちは。
以下のマクロで普通であれば右クリックメニュー項目が追加されます。

実際、私のPCではそうなのですが
他の方のPCでは表示されない場合があります。

エクセルのバージョンやOSが異なる方の中で
本マクロによる右クリックメニューが追加される方、追加されない方がいるため
原因がわかりません。

どういったことが考えられるのでしょうか。
意味がわからず行き詰っています…。

もちろん、「マクロは有効にする」に設定しています。


Sub AddRightMenu()

  For Each RightMenu In Application.CommandBars("cell").Controls
    If RightMenu.Caption = "移動" Then
      Exit Sub
    End If
  Next

  With Application.CommandBars("cell").Controls.Add(temporary:=True)
    .Caption = "移動"
    .BeginGroup = True
    .OnAction = "MoveMac"
  End With

End Sub

【32987】Re:右クリックメニュー追加について
回答  Jaka  - 05/12/28(水) 15:27 -

引用なし
パスワード
    ▼ひろ さん:
>エクセルのバージョンやOSが異なる方の中で
>本マクロによる右クリックメニューが追加される方、追加されない方がいるため
>原因がわかりません。
たぶん、改ページ設定しているからだと思います。
改ページプレビューを外してもらったら...。

(V3りん様のお言葉より。)
同じような事をV3にて、りん様が詳しく書いておられます。

【33003】Re:右クリックメニュー追加について
質問  ひろ  - 05/12/28(水) 17:50 -

引用なし
パスワード
   ▼Jaka さん:

>たぶん、改ページ設定しているからだと思います。
>改ページプレビューを外してもらったら...。

そうでもないようです…。
もうちょっと勉強してみます。

8489 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free