【VBA】Excelマクロを利用して作業効率を上げたい③

' モジュール内の先頭（全体で有効な変数）に配置
Public CycleAlignmentState As Long

Sub CycleAlignment()
    ' もし状態が不正（初回実行など）なら、初期状態を左揃え（1）にセット
    If CycleAlignmentState < 1 Or CycleAlignmentState > 3 Then
        CycleAlignmentState = 1
    Else
        CycleAlignmentState = CycleAlignmentState + 1
        If CycleAlignmentState > 3 Then CycleAlignmentState = 1
    End If

    Dim 新整列方法 As Long
    Select Case CycleAlignmentState
        Case 1
            新整列方法 = xlLeft   ' 左揃え
        Case 2
            新整列方法 = xlCenter ' 中央揃え
        Case 3
            新整列方法 = xlRight  ' 右揃え
    End Select

    Dim 処理済み As Boolean
    処理済み = False

    ' セルの処理（Rangeの場合）
    Dim rng As Range
    On Error Resume Next
    Set rng = Selection
    On Error GoTo 0
    If Not rng Is Nothing Then
        ' セルに対して水平整列を設定
        rng.HorizontalAlignment = 新整列方法
        処理済み = True
    End If

    ' シェイプの処理（ShapeRangeの場合）
    Dim shpRange As Object
    On Error Resume Next
    Set shpRange = ActiveWindow.Selection.ShapeRange
    On Error GoTo 0
    If Not shpRange Is Nothing Then
        Dim shp As Shape
        For Each shp In shpRange
            ' テキストを持つシェイプの場合のみ
            If shp.TextFrame.HasText Then
                shp.TextFrame.HorizontalAlignment = 新整列方法
                処理済み = True
            End If
        Next shp
    End If

    ' どちらも処理されなかった場合
    If Not 処理済み Then
        MsgBox "セルまたはシェイプが選択されていません。", vbExclamation
    End If
End Sub

' モジュール内の先頭（全体で有効な変数）に配置
Public CycleVerticalAlignmentState As Long

Sub CycleVerticalAlignment()
    Dim ユーザー応答 As VbMsgBoxResult
    ' 確認メッセージを表示（OKの場合は実行、Cancel/ESCの場合は中止）
    ユーザー応答 = MsgBox("垂直整列の切り替えを実行してもよろしいですか？", vbOKCancel + vbQuestion, "確認")
    If ユーザー応答 <> vbOK Then Exit Sub

    ' 状態の初期化（1～3の状態を循環）
    If CycleVerticalAlignmentState < 1 Or CycleVerticalAlignmentState > 3 Then
        CycleVerticalAlignmentState = 1
    Else
        CycleVerticalAlignmentState = CycleVerticalAlignmentState + 1
        If CycleVerticalAlignmentState > 3 Then CycleVerticalAlignmentState = 1
    End If

    Dim 新整列方法 As Long
    Select Case CycleVerticalAlignmentState
        Case 1
            新整列方法 = xlTop      ' 上揃え
        Case 2
            新整列方法 = xlVCenter  ' 垂直中央揃え
        Case 3
            新整列方法 = xlBottom   ' 下揃え
    End Select

    Dim 処理済み As Boolean
    処理済み = False

    ' セルの処理（Rangeの場合）
    Dim rng As Range
    On Error Resume Next
    Set rng = Selection
    On Error GoTo 0
    If Not rng Is Nothing Then
        rng.VerticalAlignment = 新整列方法
        処理済み = True
    End If

    ' シェイプの処理（ShapeRangeの場合）
    Dim shpRange As Object
    On Error Resume Next
    Set shpRange = ActiveWindow.Selection.ShapeRange
    On Error GoTo 0
    If Not shpRange Is Nothing Then
        Dim shp As Shape
        For Each shp In shpRange
            ' テキストを持つシェイプの場合のみ
            If shp.TextFrame.HasText Then
                shp.TextFrame.VerticalAlignment = 新整列方法
                処理済み = True
            End If
        Next shp
    End If

    If Not 処理済み Then
        MsgBox "セルまたはシェイプが選択されていません。", vbExclamation
    End If
End Sub

Private Sub Workbook_Open()
    Application.OnKey "^+4", "CycleVerticalAlignment"
End Sub