Excelでセル内のチェックボックスを自動的に中央揃えにするにはどうすればよいですか？

Excelでセルにチェックボックスを挿入する際、下のスクリーンショットに示すように、すべてのチェックボックスを整然と配置するのが難しいことに気付くかもしれません。実際には、すべてのチェックボックスをセルの中央に移動して、整然と並べることができます。この記事の方法がお役に立つでしょう。

VBAコードを使用してセル内のチェックボックスを自動的に中央揃えにする

VBAコードを使用してセル内のチェックボックスを自動的に中央揃えにする

現在のワークシートのセル内のすべてのチェックボックスを自動的に中央揃えにするには、次の手順を実行してください。

1. ワークシート内で、すべてのチェックボックスを自動的に中央揃えにする必要がある場合、Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、[挿入] > [モジュール] をクリックします。次に、VBAコードをコードウィンドウにコピーして貼り付けます。

VBAコード：セル内のすべてのチェックボックスを自動的に中央揃えにする

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. F5キーを押します。すると、下のスクリーンショットに示すように、すべてのチェックボックスがすぐにセルの中央に移動されます。

注釈: このVBAコードは、CheckBox（ActiveXコントロール）とCheckBox（フォームコントロール）の両方に適用できます。

関連記事：

• Excelで複数のチェックボックスを持つドロップダウンリストを作成するにはどうすればよいですか？
• Excelでチェックボックスがオンになったときに指定されたセルの値や色を変更するにはどうすればよいですか？
• Excelでチェックボックスを使用してセルや行をハイライトするにはどうすればよいですか？
• Excelでセルの値に基づいてチェックボックスをオンにするにはどうすればよいですか？