LibreOffice Calc 行と列を固定するマクロ、解除するマクロ

LibreOffice Calc 行と列を固定するマクロ、解除するマクロ

　

OS LinuxMint 19 cinnamon 64bit

LibreOffice 6.1.0.3

　

　

Sub Cell_Fixed()
'sheetの行と列の固定
'選択セルで固定
   
    Dim oCol , oRow as Long
       
    '行と列番号
        oRow =   ThisComponent.CurrentController.selection.CellAddress.Row
        oCol =  ThisComponent.CurrentController.Selection.CellAddress.column

    '実行       
        ThisComponent.CurrentController.FreezeAtPosition(oCol , oRow)   
   
End Sub
   
Sub fixed_kaijyo
'行と列の固定を解除
    '
    Dim oFrame as Object
    Dim oDispatcher as Object
    Dim oProp(0) as new com.sun.star.beans.PropertyValue
        oFrame = ThisComponent.CurrentController.Frame
        oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        oDispatcher.executeDispatch(oFrame, ".uno:FreezePanes", "", 0, oProp())
        '   
End Sub