| |
▼ヨコ さん：
こんにちは。
>プログラム内から任意の数のチェックボックスを生成し、Excelシートに表示したいのですが、どなたかご教授願います。
マクロの記録を使用すれば、コードが記述されますけど・・・。
一例ですが、標準モジュールに貼り付けて、mainを実行してみて下さい。
アクティブシートのA2〜A10の偶数行のセルにﾁｪｯｸﾎﾞｯｸｽが貼り付くはずですが。
'========================================================
Dim chkbx(1 To 5) As OLEObject
'========================================================
Sub main()
For idx = 2 To 10 Step 2
Set chkbx(idx / 2) = add_chkbox(Cells(idx, 1))
Next
End Sub
'========================================================
Function add_chkbox(rng As Range) As OLEObject
With rng
Set add_chkbox = _
.Parent.OLEObjects.Add _
(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=.Left, _
Top:=.Top, Width:=.Width, _
Height:=.Height)
End With
End Function
|
|
