行・列の表示と非表示

行や列を非表示にしたり、非表示になっている行や列を表示したりする
には、行、または、列オブジェクトの IsVisible プロパティを使用する。
また、この IsVisible プロパティを用いて、行や列が表示されているか
非表示になっているかを判定することもできる。
  
先ず、行を表示・非表示にするサンプルコードを下記に記す :
  
Sub ExampleHideOrShowRow()
       Dim objSheet As Object
       Dim objCell As Object

       Dim objRow As Object

       objSheet = ThisComponent.CurrentController.ActiveSheet
       objCell = objSheet.getCellRangeByName("A3")
       objRow = objCell.Rows
       If objRow.IsVisible Then

              '

              '行が表示されている場合は、非表示にする

              objRow.IsVisible = False
       Else

              '

              '行が非表示の場合は、表示する

              objRow.IsVisible = True
       End If
End Sub
  
上記マクロでは、下図のように シートの 3 行目を非表示にしたり、表示
したりする :

  
行を表示する為には、
  
行オブジェクト.IsVisible = True
  
と指定し、非表示にする場合は、
  

行オブジェクト.IsVisible = False

  

と指定すればよい。また、マクロにもある通り、
  

行オブジェクト.IsVisible

  

の値によって、行が表示されている状態か、非表示になっているのかを

確認することができる。

行の場合と同様に、列を表示したり非表示にしたりすることもできる。

そのサンプルコードは以下の通り :

Sub ExampleHideOrShowColumn()

       Dim objSheet As Object
       Dim objCell As Object

       Dim objColumn As Object

       objSheet = ThisComponent.CurrentController.ActiveSheet

       objCell = objSheet.getCellRangeByName("C1")

       objColumn = objCell.Columns

       If objColumn.IsVisible Then

              '

              '列が表示されている場合は、非表示にする

              objColumn.IsVisible = False

       Else

              '

              '列が非表示の場合は、表示する

              objColumn.IsVisible = True

       End If

End Sub

  

上記マクロを実行することによって、下図のように、シートの C 列が表示され

たり非表示になったりする :