Selectievakjes uitlijnen in een cel.

[Bakkerbakgraag]

Hallo,
het lukt mij niet om selectievakjes uit te lijnen in een cel. Is dat uberhaupt mogelijk zonder macro's?
Ik zou graag kiezen om selectievakjes te centreren in een cel zoals dit ook met tekst kan. Kan dit?

Bij voorbaat dank!

 

[HSV]

Met de pijltjestoetsen kun je ze mooi uitlijnen.

 

[Bakkerbakgraag]

Is er geen makkelijkere manier om 120 selectievakjes uit te lijnen?

 

[HSV]

Met een macro!

 

[Bakkerbakgraag]

Ok,
blijkbaar is het niet mogelijk zonder macro. Maar ik heb weinig kaas gegeten van macro's.
Wie kan mij helpen om 120 selectievakjes uit te lijnen in 120 cellen met een macro?

 

[sylvester-ponte]

ik gok door een voorbeeld bestand te plaatsen.

 

[Bakkerbakgraag]

Sorry Sylvester,
je hebt gelijk, bij deze.

 

[VenA]

Ik zie alleen kolom A zonder vinkvakjes en de vraag staat als opgelost? Dus wat nu? Je hebt de oplossing gevonden? Waarom plaats je dat niet even? Dan hebben anderen er ook mogelijk wat aan. Of ?

 

[Bakkerbakgraag]

Ik zie alleen kolom A zonder vinkvakjes en de vraag staat als opgelost? Dus wat nu? Je hebt de oplossing gevonden? Waarom plaats je dat niet even? Dan hebben anderen er ook mogelijk wat aan. Of ?

Beste VenA,
bedankt dat je twee aannames en een onterecht verwijt in één zin plaatst.


Dan gaan we nu verder met waar het eigenlijk om ging:
ik zie dat ik inderdaad het verkeerde bestand heb gestuurd. Dat zal ik in de volgende reply plaatsen.
Waarom de vraag als opgelost staat weet ik niet, want hij is nooit opgelost.

 

[Bakkerbakgraag]

Bij deze het nieuwe bestand met de herziene vraag:

Hoe kan ik (met of zonder macro) de selectievakjes centreren (zowel verticaal als horizontaal) in een cel?

Bij voorbaat dank en met vriendelijke groet,
Ramon

 

[Senso]

Ik heb deze gevonden. Er staat een voorbeeldbestand.

 

[VenA]

Volgens mij heb ik vier zinnen geplaatst en drie ervan afgesloten met het vraagteken. Op welk verwijt je doelt kan ik even niet vinden net zomin als een oplossing voor jouw vraag

Zelf gebruik ik nooit vinkvakken. (een 1 of 0 geeft een mogelijkheid tot filteren vinkvakken niet)

je zal het ergens hier moeten zoeken (de code werkt niet)

Sub VenA()
  For Each sh In ActiveSheet.Shapes
    If sh.Type = 8 Then sh.Top = sh.TopLeftCell
  Next
End Sub

 

[HSV]

Topleftcell werkt niet in dit bestand, en dat komt doordat sommige selectiesvakjes niet goed genoeg in een cel staan gecentreerd; zodoende nemen ze de topleftcell over van een boven- of onderliggende cel.

Dit moet aardig in de buurt komen voor het voorbeeld-bestand qua rijhoogte en kolombreedte.

Sub hsv()
Dim sh As Shape, j As Long, jj As Long
jj = 5
j = 0
    For Each sh In ActiveSheet.Shapes
      If sh.FormControlType = xlCheckBox Then
         jj = IIf(jj < 5, jj + 1, 3)
         If jj = 3 Then j = j + 1
         sh.Top = Cells(j, jj).Top + Cells(j, jj).RowHeight / 2 - sh.Height / 2
         sh.Left = Cells(j, jj).Left + Cells(j, jj).Width / 2 - sh.Width / 2
      End If
    Next sh
End Sub

 

[Bakkerbakgraag]

Beste allemaal,
harstikke bedankt!
Ik vink de vraag aan als opgelost.:d

 

[Senso]

Bedoel je: 'hartstikke...'?
Graag gedaan.:thumb: