excel スピンボタンのサイズについて

質問

excel2010利用です。よろしくお願いします。

下記の通り、各セルにリンク対応したスピンボタンが出来るようなマクロを作ってみました。（セルC4から始まって下に31セル分スピンボタンが作成される）

しかし各一つのセルの大きさが小さいためか、スピンボタンでセルが埋め尽くされてしまいます。

スピンボタンのサイズを

幅：ギリギリまで小さく
高さ：セルの高さちょうど

といった大きさに調整する方法はありますでしょうか？
対応セルはみな同じ大きさです。

ご意見ご教授のほどよろしくお願いします。

Sub test()
Dim i As Integer
Rows.RowHeight = 50
For i = 4To 34
With ActiveSheet.Spinners.Add(Range("c4").Left, Range("c" & i).Top, 20, 50)
.LinkedCell = "c" & i
End With
Next
End Sub

ちなみに、C列から、AL列まで（C4からAL３４まで）スピンボタンを作りたいと思っており、
私、まだVBA未熟なため現段階では、
上記のマクロをCからALまで文字を変えて複数回実行する方法しかできないのですが、なにか良案ありますでしょうか？
宜しくお願い致します。

回答No.1

keithin · ベストアンサー

あなたの書かれたマクロの「２０」と「５０」の数字がそれぞれ配置したスピンボタンの幅と高さですから、５０の方は既に「行の高さ」にちゃんと合って作成されていますね。

＞幅：ギリギリまで小さく

そりゃまぁ、やればできますが、幅はてきとーに数字を持たせておくことをお勧めします。

変更前：
With ActiveSheet.Spinners.Add(Range("c4").Left, Range("c" & i).Top, 20, 50)

変更後１：
With ActiveSheet.Spinners.Add(Range("c4").Left, Range("c" & i).Top, 1, range("C" & i).height)

＞C列から、AL列まで（C4からAL３４まで）スピンボタンを作りたい

Ｃ列は「３」列目、ＡＬ列は「３８」列目ですから

変更後２：
sub macro1()
　dim r as integer, c as integer
　rows.rowheight = 12

　for c = 3 to 38
　for r = 4 to 34
　　with cells(r, c)
　　activesheet.spinners.add(.left, .top, 7, .height).linkedcell = .address
　　end with
　next r
　next c
end sub

＃参考
途中にフリーズしたみたいに見えますが、信じて少し待ちます。