LibreOffice Calc 行と列を固定するマクロ、解除するマクロ [LibreOffice Calc Basic]
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
'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
LibreOffice Calc ウィンドウメニューに行列の固定、window分割を追加 [LibreOffice Calc全般]
LibreOffice Calc ウィンドウメニューに行列の固定、window分割を追加
OS LinuxMint 19 cinnamon 64bit
LibreOffice6.1.0.3
バージョンが古い時はウィンドウメニューに行と列の固定、ウィンドウの分割が有ったが、新しいバージョンではツールバーにアイコンがあるだけなので、カスタマイズして追加した。
カスタマイズ
メニューバー → ツール → カスタマイズ
右の対象を「ウィンドウ」を選択
左のカテゴリーを「表示」を選択
表示カテゴリーから「行と列の固定」を選択
右矢印→を押して追加する
ウィンドウの固定も同様にして追加する
行と列の固定
1行めのセルを選択して「ウィンドウの分割」を押す。(左右に分割)