Ｆキーによるダイアログの表示 (マクロ書き換え)

ＥＸＣＥＬ

Ｆ１キーが押されたらダイアログを表示する。

Private Sub Workbook_Open()
  Application.OnKey "{F1}", "AppliMenu"
End Sub

ＬｉｂｒｅＯｆｆｉｃｅ

Ｆ３キーが押されたらダイアログを表示する。

[ツール] → [カスタマイズ] → [キーボード] →

　 [アプリケーションのマクロ] → [ｏｄｓファイル内のモジュール]

をＦ３へ割り当てる

Sub ShowDialog
  Rem Dialogを表示する
  dim oDialog            as object
  DialogLibraries.LoadLibrary("Standard")
  oDialog=CreateUnoDialog(DialogLibraries.Standard.Dialog1)
  oDialog.Execute()
  oDialog.Dispose()
end sub

ダイアログの第一ボタンのテスト

ボタンのイベント「マウスボタンを離した時」にモジュールを割り当てる