Windows10 pro 64bit LibreOffice カスタマイズ

OS Windows10 pro 64bit

LibreOffice 6.1.3.2

 

ビデオを挿入する時、mp4はダメでwmvならOK。

XMedia Recode 　を使用してmp4→wmvに変換した。

 

 

 

 

新しいツールバーを作成

ツール　→　カスタマイズ　→　ツールバー

 

 

 

LibreOffice BasicIDEを起動する

 

Sub openIDE()

'LibreOffice BasicIDEを起動する

'

' .uno:BasicIDEAppear

createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch _

(ThisComponent.CurrentController.Frame, ".uno:BasicIDEAppear", "", 0, Array())

 

End Sub

 

 

Calc enterキーを押して移動する方向を設定する

 

 

Sub enterRight2()

'Enterキーを押して右移動に設定

Dim oGSheetSettings As Object

oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")

oGSheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.RIGHT

' CreateUnoService("com.sun.star.sheet.GlobalSheetSettings").MoveDirection = 1

End Sub

 

Sub enterDown2()

'Enterキーを押して下移動に設定

Dim oGSheetSettings As Object

oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")

oGSheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.DOWN

'CreateUnoService("com.sun.star.sheet.GlobalSheetSettings").MoveDirection = 0

End Sub

 

Sub enterNOT2()

'Enterキーを押して移動なしに設定

Dim oGSheetSettings As Object

oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")

oGSheetSettings.MoveDirection = not(com.sun.star.sheet.MoveDirection.LEFT)

'CreateUnoService("com.sun.star.sheet.GlobalSheetSettings").MoveDirection = 4

End Sub

 

 

Linux LibreOffice の環境をwindows10 LibreOfficeに

 

Linux

 

/home/user_Name/.config/libreoffice/4     コピー

 

windows10

 

C:\Users\user_Name\AppData\Roaming\LibreOffice\　に張り付ける