右クリックのショートカットメニューの追加

●Wordで文字で右クリックしたら、印刷メニューが出るようにします。
　右クリックの対象はたくさんあるので『文字で右クリック』はほんの一例です。

ツール
　→ユーザー設定→ツールバータブをクリック
　→ツールバーの窓でショートカットメニューにチェック。

　→ユーザー設定→コマンドタブをクリック
　→分類でファイルを選択→コマンドで『印刷』を表示しておく。

　→ショートカットメニューダイアログでテキストをクリック
　→テキストをクリック→ショートカットダイアログが表示される。
　→ユーザー設定ダイアログの『印刷』をショートカットダイアログにドラッグ＆ドロップ

削除は、最後でメニューの外に出します。


●Excelについてです。ExcelにはWordのような機能はないようです。
　Excelシートの機能を使っての方法は思いつきませんでした。

右クリックに追加できるようにコードを書いてみました。とりあえず下に追加してみました。
印刷ダイアログの表示、印刷プレビューを右クリックから表示できるようにしてあります。

この方法なら、自分の作ったマクロで、よく使うものを登録する事ができます。
『Add_RightClick』で追加、『Reset_RightClick』で元に戻します。
自分で使うなら、自動実行マクロで、立ち上げ時に設定、終了時に元に戻すようにするかもしれません。


ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そのコードウインドウに下記コードをコピーして貼りつけます。
シートに戻り、ツール→マクロ→マクロで『Add_RightClick』を実行すれば、追加されます。
ツール→マクロ→マクロで『Reset_RightClick』を実行すれば、元に戻ります。

ご参考に。(Word98、Excel97で確認済み)

'右クリックに自分のメニューを追加する
Sub Add_RightClick()
　　Dim rightBar As CommandBar '右クリックのダイアログ
　　Dim i% 'メニューのカウンタ

　　Application.CommandBars("cell").Reset '初期状態に戻す
　　Set rightBar = CommandBars("cell")

　　'メニューに追加(印刷ダイアログ)
　　i = rightBar.Controls.Count + 1
　　With rightBar
　　　　.Controls.Add Type:=msoControlButton
　　　　.Controls(i).Caption = "印刷" '表示文字
　　　　.Controls(i).OnAction = "myMacro_PrintOut" '対応するマクロ
　　　　.Controls(i).FaceId = 4 '左に表示するアイコン
　　　　.Controls(i).BeginGroup = True '初期状態との間に分離線を引く
　　End With
　　'メニューに追加(印刷プレビュー)
　　i = rightBar.Controls.Count + 1
　　With rightBar
　　　　.Controls.Add Type:=msoControlButton
　　　　.Controls(i).Caption = "印刷プレビュー" '表示文字
　　　　.Controls(i).OnAction = "myMacro_PrintPreview" '対応するマクロ
　　　　.Controls(i).FaceId = 109 '左に表示するアイコン
　　End With
End Sub

'印刷ダイアログを表示(例)
Sub myMacro_PrintOut()
　　Application.Dialogs(xlDialogPrint).Show
End Sub

'印刷プレビュー画面を表示(例)
Sub myMacro_PrintPreview()
　　ActiveWindow.SelectedSheets.PrintPreview
End Sub

'右クリックを元に戻す
Sub Reset_RightClick()
　　Dim rightBar As CommandBar
　　Application.CommandBars("cell").Reset
End Sub

投稿日時 - 2002-06-03 18:41:11