selecteervakjes onderelkaar zetten

[ferhaddd]

hey,

ik had nog een vraagje over de selecteervakjes.
ik heb een hele lange lijst waar allemaal selecteer vakken voor moet komen te staan.
als ik ze via ontwikkelaars invoeg moet ik ze zelf handmatig slepen op de juiste positie. Hierdoor is het heel lastig om ze netjes onder elkaar te hebben.
kan je ergens aangeven dat je ze in een bepaalde cel wilt hebben.

alvast bedankt.

 

[Cobbe]

Met deze code staan ze toch al onder elkaar:

Sub Alligneren()
    ActiveSheet.Shapes.SelectAll
    Selection.ShapeRange.Align msoAlignLefts, False
End Sub

Cobbe

 

[HSV]

Deze code kwam ik een keer ergens tegen, en maakt er zoveel aan als ingeeft in de code.
Mooi gecentreerd in een cel.

Voor het gebruik even testen in een leeg bestandje.

Sub SelectievakjesPlaatsen()
Const n = 50 'aantal selectievakjes
Const r = 3  'rijnummer van eerste cel
Const k = 4  'kolomnummer van eerste cel
Dim i
  For i = 0 To n - 1
    ActiveSheet.CheckBoxes.Add((Cells(r + i, k).Left + 15), _
      (Cells(r + i, k).Top - 2), 72, 72).Select
    Selection.Characters.Text = ""
    Selection.LinkedCell = Cells(r + i, k).Address
    Selection.ShapeRange.Height = 17.25
    Selection.ShapeRange.Width = 24#
  Next i
End Sub

 

[ferhaddd]

zouden jullie me beter kunnen uitleggen hoe ik kan omgaan met de codes. Ik ben een groentje in deze gebied

bedankt

 

[HSV]

Klik eens op het knopje.

Voor de code:
Druk Alt+F11, in het linker venster staat module1, dubbelklik daarop en nu verschijnt de code in het rechter venster.

Het hoeft niet per se met een knop.

 

[ferhaddd]

bedankt voor je hulp het is me nu gelukt en ik begrijp het.