spinbuttons plaatsen in een werkblad

[Justme47]

In bijgaand werkblad heb ik 2 spinbuttons handmatig ingebracht. Deze werken.
Wanneer ik dmv een macro opname een spinbutton plaats dan werkt deze niet.
Hoe krijg ik het voor elkaar om dmv een macro spinbuttons in een werkblad te zetten?

 

[snb]

Je moet hem dan ook wel aan een cel koppelen

Sub kringveld()
  With ActiveWorkbook.Sheets(1).OLEObjects.Add("Forms.SpinButton.1", , , , , , , 160, 60, 10, 20)
    .LinkedCell = "F10"
  End With
End Sub

 

[Justme47]

Het werkt!
Bedankt snb

 

[Justme47]

spinbuttons plaatsen in een werkblad (2)

Spinbuttons plaatsen lukt (zie eerder item)

Echter hoe kan ik bij de eigenschappen van deze spinbutton komen zodat ik het bereik en de orientatie kan instellen?

 

[snb]

Werkbalk werkset besturingelementen zichtbaar maken.
Klik op ontwerpen.

 

[Justme47]

Mijn vraag is eigenlijk hoe ik de eigenschappen kan aanpassen van de spinbutton die wordt aangemaakt dmv de door SNB geleverde code:

Sub kringveld()
With ActiveWorkbook.Sheets(1).OLEObjects.Add("Forms.SpinButton.1", , , , , , , 160, 60, 10, 20)
.LinkedCell = "F10"
End With
End Sub

Via de ontwerpmode in de Werkset Besturingselementen kom ik er niet bij.
Graag zou ik in bovengenoemde code willen opnemen dat de spinbutton horizontaal is en dat de max waarde 1500 is.
Kunt u me helpen?

 

[snb]

Via de ontwerpmode in de Werkset Besturingselementen : eigenschappen.

 

[Justme47]

Het werkt; bedankt SNB voor uw support

 

[huijb]

Van de twee topics een gemaakt.