Hoe het selectievakje in de cel in Excel automatisch centreren?
Bij het invoegen van selectievakjes in cellen in Excel, merkt u misschien dat het moeilijk is om alle selectievakjes netjes te ordenen, zoals het linkerschermbeeld laat zien. U kunt eigenlijk alle selectievakjes naar het midden van de cel verplaatsen om ze netjes op orde te houden. De methode in dit artikel kan u helpen.
Automatisch centreren selectievakje in cel met VBA-code
Automatisch centreren selectievakje in cel met VBA-code
Ga als volgt te werk om automatisch alle selectievakjes in cellen in een huidig werkblad te centreren.
1. In het werkblad moet u alle selectievakjes automatisch centreren, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens VBA-code in het codevenster.
VBA-code: centreer automatisch alle selectievakjes in cellen
Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub
3. druk de F5 sleutel. Vervolgens worden alle selectievakjes onmiddellijk naar het midden van de cellen verplaatst, zoals hieronder wordt getoond.
Note: Deze VBA-code kan worden toegepast op zowel CheckBox (ActiveX Control) als CheckBox (Form Control).
Tip: Als u meerdere selectievakjes in bulk in een geselecteerd bereik wilt invoegen, kunt u het Batch invoegen selectievakjes hulpprogramma pf Kutools for Excel. Of voeg in batch meerdere optieknoppen in met de Batch invoegen optieknoppen nut. Bovendien kunt u alle selectievakjes in één keer verwijderen met de Batchverwijder selectievakjes hulpprogramma zoals hieronder weergegeven screenshots. Je kan gaan naar download de software gratis zonder beperking binnen 30 dagen.
Gerelateerde artikelen:
- Hoe maak je een vervolgkeuzelijst met meerdere selectievakjes in Excel?
- Hoe verander ik een gespecificeerde celwaarde of kleur wanneer het selectievakje is aangevinkt in Excel?
- Hoe cel of rij markeren met selectievakje in Excel?
- Hoe checkbox aangevinkt te maken op basis van celwaarde in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!