Category.ShortcutKey プロパティ (Outlook)
Category オブジェクトで使用されるショートカット キーを指定する OlCategoryShortcutKey クラスの定数を設定します。 値の取得と設定が可能です。
構文
式。ShortcutKey
式Category オブジェクトを表す変数。
注釈
OlCategoryShortcutKeyNone 以外の OlCategoryShortcutKey の定数は、任意の時点で 1 つの Category オブジェクトでのみ使用できます。 プロパティを設定このプロパティの値を OlCategoryShortcutKey 定数に既に使用のセット を登録するolCategoryShortcutKeyNone に指定された値を既に使用して Category オブジェクトの。
例
次の Visual Basic for Applications (VBA) の例では、既定の 名前空間 オブジェクトに関連付けられている カテゴリ のコレクションに含まれる各 Category オブジェクトのショートカット キーの割り当てを含むダイアログ ボックスが表示されます。
Private Sub ListShortcutKeys()
Dim objNameSpace As NameSpace
Dim objCategory As Category
Dim strOutput As String
' Obtain a NameSpace object reference.
Set objNameSpace = Application.GetNamespace("MAPI")
' Check if the Categories collection for the Namespace
' contains one or more Category objects.
If objNameSpace.Categories.Count > 0 Then
' Enumerate the Categories collection, checking
' the value of the ShortcutKey property for
' each Category object.
For Each objCategory In objNameSpace.Categories
' Add the name of the Category object to
' the output string.
strOutput = strOutput & objCategory.Name
' Add information about the assigned shortcut key
' to the output string.
Select Case objCategory.ShortcutKey
Case OlCategoryShortcutKey.olCategoryShortcutKeyNone
strOutput = strOutput & ": No shortcut key" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF2
strOutput = strOutput & ": Ctrl+F2" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF3
strOutput = strOutput & ": Ctrl+F3" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF4
strOutput = strOutput & ": Ctrl+F4" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF5
strOutput = strOutput & ": Ctrl+F5" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF6
strOutput = strOutput & ": Ctrl+F6" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF7
strOutput = strOutput & ": Ctrl+F7" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF8
strOutput = strOutput & ": Ctrl+F8" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF9
strOutput = strOutput & ": Ctrl+F9" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF10
strOutput = strOutput & ": Ctrl+F10" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF11
strOutput = strOutput & ": Ctrl+F11" & vbCrLf
Case OlCategoryShortcutKey.olCategoryShortcutKeyCtrlF12
strOutput = strOutput & ": Ctrl+F12" & vbCrLf
Case Else
strOutput = strOutput & ": Unknown" & vbCrLf
End Select
Next
End If
' Display the output string.
MsgBox strOutput
' Clean up.
Set objCategory = Nothing
Set objNameSpace = Nothing
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。