วิธีเลื่อนแผ่นงานทั้งหมดเข้าด้วยกัน (หรือแนวคิดที่คล้าย 3D อื่นๆ)

นี่คือโซลูชันการทำงานที่สมบูรณ์ใน OpenOffice Basic:

Global OldSheet As Object
Global HandlingActivationEvent As Boolean

Sub RegisterMyActivationEventListener
    oListener = CreateUnoListener( _
        "ActivListener_", "com.sun.star.sheet.XActivationEventListener" )
    oController = ThisComponent.CurrentController
    oController.addActivationEventListener(oListener)
    OldSheet = oController.ActiveSheet
    HandlingActivationEvent = False
    MsgBox "Now Listening"
End Sub

Sub ActivListener_activeSpreadsheetChanged( oEvent )
    If HandlingActivationEvent Then
        Exit Sub
    End If
    HandlingActivationEvent = True
    oController = ThisComponent.CurrentController
    newSheet = oController.ActiveSheet
    oController.setActiveSheet(OldSheet)

    col = oController.getFirstVisibleColumn()
    row = oController.getFirstVisibleRow()
    oController.setActiveSheet(newSheet)
    oController.setFirstVisibleColumn(col)
    oController.setFirstVisibleRow(row)

    'MsgBox col & ", " & row
    OldSheet = newSheet
    HandlingActivationEvent = False
End Sub

เพื่อให้ใช้งานได้ ให้ไปที่ Tools -> Customize ในแท็บเหตุการณ์ กำหนด RegisterMyActivationEventListener ให้กับเหตุการณ์ Open Document

คำอธิบายโค้ด:

แทนที่จะเลื่อนแผ่นงานพร้อมกัน ระบบจะเลื่อนไปยังเซลล์ที่เหมาะสมทุกครั้งที่เปิดใช้งานแผ่นงานอื่น ใช้อินเทอร์เฟซ XViewPane เพื่อดูว่าแผ่นงานก่อนหน้าเลื่อนไปที่ใด และเลื่อนแผ่นงานถัดไปไปยังจุดเดียวกันนั้น

หากต้องการทราบว่าชีตเปิดใช้งานเมื่อใด โค้ดจะใช้ ตัวฟังเหตุการณ์ สำหรับ XActivationEventListener อินเตอร์เฟซ.