「Excelのマクロ」

アンケートでよくある、こんな感じのフォーム。

チェックボックスを２つ並べてグルーブボックスでくくり
プロパティから「リンクするセル」を指定する……というのを
いっぱい並べようしたところ、簡単にはできないことが判明。

単純にコピー&ペーストすると、チェックボックスの名前や
リンクするセルまでそのままコピーされてしまう。
悩んだ結果、結局マクロを使うしかなかった。

数式のコピーと同じように するっとコピーさせて欲しい。
「リンクするセル」を相対座標で指定するとかさ。

Sub test()
    Dim i As Integer
    
    For i = 0 To 200
        ActiveSheet.GroupBoxes.Add(0, i * 27 - 2, 220, 22).Select
        ActiveSheet.OptionButtons.Add(0, i * 27 - 1, 72, 20).Select
        ActiveSheet.OptionButtons.Add(80, i * 27 - 1, 72, 20).Select
        ActiveSheet.Shapes.Range(Array("Option Button " & 2 + 3 * i, "Option Button " & 3 + 3 * i)).Select
        With Selection
            .LinkedCell = "$D$" & 1 + i * 2
        End With
    Next i
End Sub