セル値でコマンドボタンを作成

Question

特定のセルにテキストが含まれている場合、Excelにコマンドボタンを自動的に作成させようとしています。マクロレコーダーを走らせて、グーグルを介して、これは私が立ち往生している場所です。

Private Sub button() 

If ActiveSheet.Range("C5") = Text Then 

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
    , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height _ 
    :=26.25).Select 
Selection.Verb Verb:=xlPrimary 

End If 

End Sub 

Answer 1

はあなたのセルC5は、「何か」

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If ActiveSheet.Range("C5").Value = "Something" Then 
      Dim button As OLEObject 
      Set button = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _ 
         , DisplayAsIcon:=False, Left:=396.75, Top:=18.75, Width:=64.5, Height:=26.25) 
     End If 

    button.Object.Caption = "Complete" 
    button.Name = "CommandbuttonEL1" 

    End Sub