セルのサイズ 
セルの幅や高さを変更する方法です。
サイズ
セルのサイズを変更するには列オブジェクトや行オブジェクトを使用します。セルに対して Columns または Rows プロパティー，getColumns または getRows メソッドを使用してそれぞれのオブジェクトを取得します。
0
1
2
3
4
5
6
7
8
9
| | Sub cell_size_1
Dim oSheet As Object, oCellRange As Object
Dim oColumns As OBject, oRows As Object
oSheet = ThisComponent.Sheets( 0 )
oCellRange = oSheet.getCellRangeByPosition( 1, 1, 3, 4 ) ' B2:D5
oColumns = oCellRange.getColumns()
oRows = oCellRange.getRows()
End Sub
|
上のコードなどを実行して情報を得てください。サイズを変更する際にはしたのコードのようにします。
0
1
2
3
4
5
6
7
8
9
10
| | Sub cell_size_2
Dim oSheet As Object, oCellRange As Object
Dim oColumns As OBject, oRows As Object
oSheet = ThisComponent.Sheets( 0 )
oCellRange = oSheet.getCellRangeByPosition( 1, 1, 3, 4 ) ' B2:D5
oColumns = oCellRange.getColumns()
oRows = oCellRange.getRows()
oColumns.Width = 2500
oRows.Height = 1000
End Sub
|
上のコードでは列の幅を 25 mm に，行の高さを 10 mm に設定しています。この場合，ともに 1/100 mm 単位で長さを指定します。
最適サイズ
セルの高さや幅を内容に合わせて最適なサイズにする方法もあります。列オブジェクトと列オブジェクトの OptimalWidth と OptimalHeight プロパティーを使用します。
0
1
2
3
4
5
6
7
8
9
10
| | Sub cell_optimalsize_1
Dim oSheet As Object, oCellRange As Object
Dim oColumns As OBject, oRows As Object
oSheet = ThisComponent.Sheets( 0 )
oCellRange = oSheet.getCellRangeByPosition( 1, 1, 3, 4 ) ' B2:D5
oColumns = oCellRange.getColumns()
oRows = oCellRange.getRows()
oColumns.OptimalWidth = True
oRows.OptimalHeight = True
End Sub
|
ともに使用は簡単でそれぞれのプロパティーに "True" を設定するだけです。
