【VBA】指定した範囲（セル上）にオブジェクトの作成

Excelでツールを作るときなど、ボタンとかテキストボックスが必要になることがあります。
数が少なければ手作業でやればいいですが、数が多い時はとても面倒…。

ちょっと、指定した範囲（セル上）にオブジェクトを貼る作業をVBAで自動化できないか。。。
いろいろと試してみたので、下記にまとめようと思います。

--

選択した範囲に、オブジェクト（ボタン）を貼り付けたい！！

VBAで実現できました！！

Sub test()

    With ActiveSheet.Range("B2:F6")
         ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
    End With

End Sub