Posted at

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

More than 1 year has passed since last update.

Excelでツールを作るときなど、ボタンとかテキストボックスが必要になることがあります。

数が少なければ手作業でやればいいですが、数が多い時はとても面倒…。

ちょっと、指定した範囲(セル上)にオブジェクトを貼る作業をVBAで自動化できないか。。。

いろいろと試してみたので、下記にまとめようと思います。

--

選択した範囲に、オブジェクト(ボタン)を貼り付けたい!!

あいうえお.png

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

あいうえお.png