シートの取得 (3)

(カレント)ドキュメントで、現在アクティブになって(選択されて)いるシート
を取得するサンプルコードを下記に記す :

  

Sub ExampleGetActiveSheet()
       Dim objSheet As Object
       objSheet = ThisComponent.CurrentController.ActiveSheet
Msgbox("シート名 :" & objSheet.Name)
End Sub

  

上記は ActiveSheet プロパティを用いてアクティブシートを取得する例

だが、getActiveSheet メソッドを用いて選択されているシートオブジェクト

を、下記の通り、取得することもできる :

  

Sub ExampleGetActiveSheet2()
       Dim objSheet As Object
       objSheet = ThisComponent.CurrentController.getActiveSheet()
Msgbox("シート名 :" & objSheet.Name)
End Sub

  
getActiveSheet メソッドは引数のないメソッドで、戻り値としてシート
オブジェクトを返す。