シートの表示・非表示 (1)

下記にシートの非表示と表示のサンプルコードを記す。シート「Sheet2」を
非表示にしたり、表示したりするコードである。いずれも、「マクロの記録」
で生成されたコードをキレイにしただけのものである。
  
先ず、シート「Sheet2」を非表示にするコード。
  
Sub ExampleHideSheet()
       Dim objDoc As Object
       Dim objDisp As Object
       Dim args1(0) As New com.sun.star.beans.PropertyValue
'
       objDoc = ThisComponent.CurrentController.Frame
       objDisp = createUnoService("com.sun.star.frame.DispatchHelper")
       '
       args1(0).Name = "aTableName"
       args1(0).Value = "Sheet2"
       '
       objDisp.executeDispatch(objDoc, ".uno:Hide", "", 0, args1())
End Sub
  
次に、シート「Sheet2」を表示するコード。
  

Sub ExampleShowSheet()

       Dim objDoc As Object

       Dim objDisp As Object

       Dim args1(0) As New com.sun.star.beans.PropertyValue

       '

       objDoc = ThisComponent.CurrentController.Frame

       objDisp = createUnoService("com.sun.star.frame.DispatchHelper")

       '

       args1(0).Name = "aTableName"

       args1(0).Value = "Sheet2"

       '

       objDisp.executeDispatch(objDoc, ".uno:Show", "", 0, args1())

End Sub

  

いずれも、各々のオブジェクト等についてはわからないので、「おまじない」
に等しい。