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

　

　

LibreOffice Calc ウィンドウメニューに行列の固定、window分割を追加

LibreOffice Calc ウィンドウメニューに行列の固定、window分割を追加

　

OS LinuxMint 19 cinnamon 64bit

LibreOffice6.1.0.3

　

バージョンが古い時はウィンドウメニューに行と列の固定、ウィンドウの分割が有ったが、新しいバージョンではツールバーにアイコンがあるだけなので、カスタマイズして追加した。

 

カスタマイズ

メニューバー　→　ツール　→　カスタマイズ

　

右の対象を「ウィンドウ」を選択

左のカテゴリーを「表示」を選択

表示カテゴリーから「行と列の固定」を選択

右矢印→を押して追加する

ウィンドウの固定も同様にして追加する

　

　行と列の固定

　

１行めのセルを選択して「ウィンドウの分割」を押す。（左右に分割）

　

LibreOffice ドキュメントのダウンロード（英語）

LibreOffice ドキュメントのダウンロード（英語）

　

https://documentation.libreoffice.org/ja/documentation-in-japanese/

　

　

odt (writer文書)とPDF版がある。

　

画面の各部分の名称などあるので一度読んでみると良いかも？但し英語

編集も可能

LibreOffice write ページのスクロール アップ・ダウン操作

LibreOffice write ページのスクロール　アップ・ダウン操作

　

OS LinuxMint19 Cinnamon 64bit

LibreOffice 6.1.0.3

　

操作

キーボードのPageUp or PageDown

ノートPCだとFN +  PageUp or PageDown　カーソルキーの↑↓

　

移動量は半ページ分？ 訂正　1/3ページ

　

この操作をマクロで記録できるが、連続動作で不安定　１回目は動作せず２回めから動作する。

一応ツールバーに登録した。

　

ページの移動

左下のページ番号をクリックすると移動ダイアログが表示され移動したい番号を入力する。

OSの違いで表示されるダイアログ違う場合がある。

　

　

　

sub pageUp
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageUp", "", 0, Array())




end Sub

sub pageDown
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")



rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:PageDown", "", 0, Array())


end Sub

ubuntu18.0.4 システムモニターが文字化け

ubuntu18.0.4 システムモニターが文字化け

　

OS ubuntu18.0.4 64bit

　

何時から文字化けしたのか分からないが文字化け（□）になった。

再インストール、削除再インストールをしても改善しなかった。

　

試しにmateシステムモニターをインストールしたらOKだった。

　

mate-system-monitorのインストール

synapticからmate system monitor で検索見つかったらインストール