Libre:025 ワークシート名を変更する

シートを指定してシート名を変更する場合

Sub ksChangeSheetName


Dim objDoc As Object, objSheet as Object
objDoc = ThisComponent
objSheet=objDoc.Sheets(0) <−−シート1番目を変える
objSheet.Name=”test”

End Sub

 

Activeになっているシート名を変更する場合

アクティブシートを取得してからNameプロパティを変更する。

 

sub ksChangeCurrentSheetName

dim activeSheet as Object
dim doc as object

doc = ThisComponent.sheets

activeSheet = ThisComponent.CurrentController.ActiveSheet
activeSheet.Name = “testCurrent”

end sub