フォームコマンドボタンを作成してユーザーフォームを呼び出す

Question

ボタンをクリックしたときにユーザーフォームを表示できるフォームコントロールボタンを作成したいと思います。残念ながら私は次のエラーメッセージが表示されます： "コンパイルエラー：タイプの不一致"。 考えていますか？

ActiveWorkbook.ActiveSheet.Buttons.Add(230.25, 57, 153, 96.75).Select 
Selection.OnAction = UserForm1.Show 

Answer 1

別のSubを作成してUserForm1を起動します。

AddInではなくActiveWorkbook/ActiveSheetを使用しないようにしてください。

Option Explicit 

Sub CreateButton() 
    With ActiveWorkbook.ActiveSheet.Buttons.Add(230.25, 57, 153, 96.75) 
     .Caption = "Launch UserForm 1" 
     .Font.Size = 14 
     .OnAction = "ShowUserForm1" ' ## A ## 
     .Select 
    End With 
End Sub 

Sub ShowUserForm1() ' Sub Name must match ## A ## 
    UserForm1.Show 
End Sub