エクセルマクロで、チェックボックスを整列するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
チェックボックスを整列する(縦)
以下のExcelVBAを実行すると、チェックボックスを整列します。
Sub チェックボックスを並べる()
Dim checkbox As checkbox
Dim MyCb() As Variant
Dim i As Long
i = 1
'すべてのチェックボックスをループ
For Each checkbox In ActiveSheet.CheckBoxes
ReDim Preserve MyCb(i)
MyCb(i) = checkbox.Name
i = i + 1
Next
'全てのチェックボックスを全選択
ActiveSheet.Shapes.Range(MyCb).Select
'選択しているチェックボックスを左揃えに配置
Selection.ShapeRange.Align msoAlignLefts, msoFalse
End Sub
マクロ実行後
チェックボックスを左寄せにして縦に整列します。
位置がズレているチェックボックスをきれいに揃えることができます。
チェックボックスを整列する(横)
以下のExcelVBAを実行すると、チェックボックスを整列します。
Sub チェックボックス並べる()
Dim checkbox As checkbox
Dim MyCb() As Variant
Dim i As Long
i = 1
'すべてのチェックボックスをループ
For Each checkbox In ActiveSheet.CheckBoxes
ReDim Preserve MyCb(i)
MyCb(i) = checkbox.Name
i = i + 1
Next
'全てのチェックボックスを全選択
ActiveSheet.Shapes.Range(MyCb).Select
'選択しているチェックボックスを左揃えに配置
Selection.ShapeRange.Align msoAlignTops, msoFalse
End Sub
マクロ実行後
チェックボックスを上寄せにして横に整列します。
配置が不揃いになっているチェックボックスを揃えて表示することができます。
この記事がお役に立ちますと幸いです。

【エクセルマクロ】チェックボックスを自動操作する:超便利10選
...