【Excel VBA（マクロ）】アクティブセルのある行の高さまたは列の幅を自動で任意の値に変更する

目的

アクティブセル（選択中のセル）の行の高さまたは列の幅を、あらかじめ設定した任意の値に自動で変更したい。

ここでは、行の高さと列の幅のどちらも「20」となっているのを「40」にすることを考える。

Sub 行の高さと列の幅()

    With ActiveCell
        .RowHeight = 40       '行の高さ
        .ColumnWidth = 40     '列の幅
    End With

End Sub

これを実行すると、アクティブセルのある行の高さと列の幅が「40」となる。