マクロ 複数のボタン作成

質問

使用しているのは2010です。
ボタンを１シート上に２９個作りたいと思います。
そのボタンの大きさや文字をすべて同じにし、
横一列にきれいに並べて配置したいと思っています。

どのようにしたら、同じ大きさのボタンを作成できますか？
また、きれいに並べることができますか？

回答No.3

mt2008 · ベストアンサー

ANo.1です。

> Buttons.Add(50 * i, 10, 30, 20).Text = i
> の部分の、 50　と 10 は何を表しているのでしょうか？

ボタンを配置する位置です。
ActiveSheet.Buttons.Add(x位置, y位置, 幅, 高さ)
＃シートの左上が0基準となります。

50 * i, 10　と、していますので、1つ目のボタンはX=50、Y=10。2つ目のボタンはX=100、Y=10に配置されます。

お礼

ご丁寧に回答していただきまして、ありがとうございます！
無事作業ができました。ありがとうございます(^^)

回答No.2

shintaro-2

>どのようにしたら、同じ大きさのボタンを作成できますか？

1個作成したら、後はコピーする

＞また、きれいに並べることができますか？

シートを拡大表示して、罫線に合わせるしかないでしょう。

お礼

ご回答ありがとうございました！
今後の参考にさせていただきます。

回答No.1

mt2008

ボタンを追加する位置とボタンの大きさを指定するだけです。

Sub Sample()
　　With ActiveSheet
　　　　For i = 1 To 29
　　　　　　'幅30、高さ20のボタンを追加
　　　　　　.Buttons.Add(50 * i, 10, 30, 20).Text = i
　　　　Next i
　　End With
End Sub

補足

回答ありがとうございます。
ちなみに、
Buttons.Add(50 * i, 10, 30, 20).Text = i
の部分の、 50　と 10 は何を表しているのでしょうか？
教えていただければ幸いです。