Top > OOoBasic > Calc > cellsize

セルのサイズ Edit

セルの幅や高さを変更する方法です。

サイズ Edit

セルのサイズを変更するには列オブジェクトや行オブジェクトを使用します。セルに対して 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 単位で長さを指定します。

最適サイズ Edit

セルの高さや幅を内容に合わせて最適なサイズにする方法もあります。列オブジェクトと列オブジェクトの 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" を設定するだけです。


Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes