[[20120517165312]]　『セルの中にコマンドボタンを挿入する方法』（でゅふ）　ページの最後に飛ぶ

『セルの中にコマンドボタンを挿入する方法』（でゅふ）

VBAでセルの中にコマンドボタンを挿入する方法が知りたいです。

=EMBED("Forms.CommandButton.1","") こういうコマンドボタンです。

よろしくお願いします。

XP 2003

 そのActiveXのコマンドボタンをシートに挿入する操作をマクロ記録するのが第１歩。
 これはできるとおもうけど念のために2003での操作を書くと
 ・表示 -> ツールバー -> コントロールツールボックス
 ・でてきたコントロールの中からコマンドボタンを選択して
 ・挿入したい場所にマウスを持って行ってクリック

 できあがるコードでは、そのコマンドボタンの左辺位置、上辺位置、横幅、高さがポイント値というもので
 設定されている。
 これを実態の数値に（数値を持った変数）で置き換え。
 （そのセル.Lfet、そのセル.Top、そのセル.Width、そのセル.Height）

 (ぶらっと)

 ありがとうございました。
 数値を自分で設定するしかないみたいですね。

 （でゅふ）

 >数値を自分で設定するしかないみたいですね

 もちろんそうだけど、もしかしたら勘違いしているかもしれないので念のため。
 たとえば B5セル にぴったりコマンドボタンを配置するなら、

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

 (ぶらっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20120517165312]] 『セルの中にコマンドボタンを挿入する方法』（でゅふ） ページの最後に飛ぶ

[[20120517165312]]　『セルの中にコマンドボタンを挿入する方法』（でゅふ）　ページの最後に飛ぶ