Click イベント、CommandButton コントロール、Accelerator プロパティ、Caption プロパティの例

次の使用例は、ユーザーがマウスまたはアクセラレータ キーを使用してボタンをクリックするたびに、CommandButton の Accelerator プロパティと Caption プロパティを変更します。 Click イベントには、Accelerator プロパティと Caption プロパティを変更するコードが含まれています。

この例を実行するには、CommandButton1 という名前の CommandButton を含むフォームの宣言セクションにコードを貼り付けます。

Private Sub UserForm_Initialize() 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
End Sub 
 
Private Sub CommandButton1_Click () 
 If CommandButton1.Caption = "OK" Then 
 'Check caption, then change it. 
 CommandButton1.Caption = "Clicked" 
 CommandButton1.Accelerator = "C" 
 'Set Accelerator key to COMMAND + C 
 Else 
 CommandButton1.Caption = "OK" 
 CommandButton1.Accelerator = "O" 
 'Set Accelerator key to COMMAND + O 
 End If 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。