一番上の入り口へ > excel > VBA コーディングライブラリ集 > 矢印や直線をぴしっとまっすぐにするマクロ

矢印や直線をぴしっとまっすぐにするマクロ

微妙に矢印や線が曲って気になりますよね。 拡大して微調整したり、プロパティでサイズを指定したりとどちらも面倒です。

そういう時に便利なマクロです。 複数の選択に対応しています。

曲がったものが大嫌いという人におすすめです。



Sub 線まっ直ぐ()
    If TypeName(Selection) = "Line" Or TypeName(Selection) = "DrawingObjects" Then
        For Each sh In Selection.ShapeRange
        With sh
            If .Height < .Width Then
                .Top = .Top + .Height / 2
                .Height = 0
            Else
                .Left = .Left + .Width / 2
                .Width = 0
            End If
            
        End With
        Next
    Else
            MsgBox "線か矢印を選択してから実行してください"
    End If
End Sub




類似リンク

VBA マクロライブラリ集