OOobbs/71
質問
CALCの1.1.4をWindowsXPで使っています。 早速本題ですが、アクティブなシートのインデックスを取得できなくて困っています。 IDLリファレンス↓
http://api.openoffice.org/docs/common/ref/com/sun/star/module-ix.html 回答
そこで,アクティブシートオブジェクトからシート名を調べて,インデックス順にシートと照らし合わせてインデックスを調べてやる必要があります。 Sub activesheetindex() Dim oDoc As Object, oController As Object Dim oSheets As Object, oActiveSheet As Object Dim oLocSheet As Object Dim sActiveSheetName As String Dim i As Integer oDoc = ThisComponent oController = oDoc.getCurrentController() oActiveSheet = oController.getActiveSheet() sActiveSheetName = oActiveSheet.Name oSheets = oDoc.getSheets() For i = 0 To oSheets.getCount() -1 If oSheets.getByIndex(i).Name = sActiveSheetName Then MsgBox i Exit For End If Next i End Sub アクティブシートなどに関する情報については OOoBasic/Calc のページからたどってもらえるといいと思います。
|