行の高さ・列の幅を取得、設定する

こんにちは。
エクセルの高さ、幅の取得と設定についての基本のメモです。

1. 高さを取得する

' 1. 行の指定をして取得(Rows)
Dim heigth_Rows As Long
heigth_Rows = Rows(1).RowHeight

' 2. セルの指定をして取得(Range)
Dim heigth_Range As Long
heigth_Range = Range("A1").EntireRow.RowHeight

2つの方法をご紹介しています。
1.はRowsを使って、行を指定して高さを取得しています。 2.はRangeを使って、セルを指定しています。
EntireRowを用いることで指定されたセルの行を取得しています。

2. 高さを設定する

Rows(1).RowHeight = 10
Range("A1").EntireRow.RowHeight = 10

こちらは取得の際に使用した方法を、値を入れるように書き換えればOKです。

幅に関しては、高さと方法は同じになります。
幅を扱うためのプロパティに変わるだけです。

3. 幅を取得する

' 1. 列の指定をして取得(Columns)
Dim width_Columns As Long
width_Columns = Columns(1).ColumnWidth

' 2. セルの指定をして取得(Range)
Dim width_Range As Long
width_Range = Range("A1").EntireColumn.ColumnWidth

4. 幅を設定する

Columns(1).ColumnWidth = 20
Range("A1").EntireColumn.ColumnWidth = 20

以上です。
高さや幅の調整は意外に使うことがあるので覚えておいて損はないですね。