コマンドボタンでコマンドボタンを作成

質問

VBAで質問ですSheet1でコマンドボタンを押すとSheet2のあるセルへコマンドボタンを作成する方法を知りたいのですがどうしたらよいでしょうか？

回答No.1

x415f484f

環境をお書きになられていないので動作の保証しませんが……
こんなコードを書けばボタンの追加は可能かと思われます。

※ 全角文字でインデントしてあります
Private Sub CommandButton1_Click()
　Rem 変数の宣言は必要であれば適宜
　dTop As Double
　dLeft As Double
　dWidth As Double
　dHeight As Double
　strCaption As String

　Rem 位置、サイズ、キャプションを指定
　dTop = 0
　dLeft = 0
　dWidth = 100
　dHeight = 40
　strCaption = "ボタン"

　Rem Sheets(2) は適宜変更
　With Sheets(2).OLEObjects.Add( _
　　　ClassType:="Forms.CommandButton.1", Link:=False _
　　　, DisplayAsIcon:=False, Left:=dLeft, Top:=dTop, _
　　　Width:=dWidth, Height:=dHeight).Object
　　.Caption = strCaption
　End With
End Sub

ただ、その後の処理はあらかじめ Sheet2 のモジュールに書いておく必要があると
思われます。

お礼

ありがとうございましたさんこうになりました