VBAのスピンボタンの値の変更について

VBAを使ってスピンボタンをワークシートに挿入しました。
そこで、皆様にお聞きしたいのですが、スピンボタンに上と下のボタンがありますが、このボタンを押すと値はいくつずつ変わるのでしょうか？
私がスピンボタンを押すと1ずつ変わります。
この1という値はデフォルトなのでしょうか？
もしそうだとすれば、この値を2や3に変更することができる（つまりスピンボタンを押すことにより帰ってくる値が2や3ずつ上下できる）のでしょうか？
VBAの本を読みましたが、このことについては載っていなかったので、どなたか知っている方がおりましたら、教えて下さい。
よろしくお願い致します。

No.3 ベストアンサー 回答者： starsip 回答日時： 2006/06/22 19:34

スピンボタンを右クリック

プロパティ
スピンボタンのプロパティ
SmallChange　の値が１になっているでしょう。
この値を任意の数にして下さい。（２や３、１０など）

Max　の値はスピンボタンの値上限
Min　の値はスピンボタンの値下限

この回答へのお礼

ご回答ありがとうございました。
SmallChangeの値がデフォルトで1だったのですね。
非常に勉強になりました。

お礼日時：2006/06/23 06:55

No.4 回答者： imogasi 回答日時： 2006/06/22 23:37

以下エクセル2002です。

質問者はたぶん下記前半のスピンボタンでしょう。
マクロに記録で
上下のスピンボタン
ツールバーーコントロールツールボックスででるツールバーからとり
コントロールの書式設定で、変化の増分５
を指定した場合
Sub Macro1()
ActiveSheet.Spinners.Add(151.5, 44.25, 37.5, 46.5).Select
With Selection
.Value = 0
.Min = 0
.Max = 30000
.SmallChange = 5
.LinkedCell = "$D$1"
.Display3DShading = True
End With
End Sub
が取れます。 .SmallChange = 5
がそれです。５づつ増減します。
ーーー
もう１つこちらの方は左右のスピンボタンで
Sub test01()
Dim spn As Object
Set spn = ActiveSheet.OLEObjects.Add(classtype:="forms.spinbutton.1", Left:=Range("B2").Left, Top:=Range("b2").Top, Width:=Range("b2").Width, Height:=Range("B2").Height)
spn.LinkedCell = "a1"
spn.SmallChange = 5
End Sub
はエラーになります。
spn.SmallChange = 5
を除くとOKで、増分は１です。
この辺説明ができないですが、私が誤っていなければ、エクセルの
VBAの仕様なのでしょう。

この回答へのお礼

ご回答ありがとうございました。
VBAでの記述の仕方が非常に参考になりました。

お礼日時：2006/06/23 06:57

No.2 回答者： zap35 回答日時： 2006/06/22 15:31

＃０１です。

また早とちりしたかもしれません。
質問の意味がＶＢＡでスピンボタンの増分値を変更できるか？　ならば

　Shapes("Spinner 1").SmallChange = n

で増分値は変更が可能です。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2006/06/23 06:58

No.1 回答者： zap35 回答日時： 2006/06/22 15:17

フォームを作成する画面でスピンボタンを右クリックし、コントロールの書式設定を選ぶと

　最大値、最小値、変化の増分

を指定することが可能です。

（ＥＸＣＥＬ２０００以降。９７以前では指定の方法が違っていた記憶がありますが…）

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2006/06/23 06:58