So-net無料ブログ作成
検索選択

LibreOffice Calc Basic 表示画面の拡大、縮小をするマクロの実験 [LibreOffice Calc Basic]

LbreOffice Calc Basic 表示画面の拡大、縮小をするマクロの実験

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

LibreOffice Calc_zoom.png

Sub zoom_in
'Calcのみ 表示拡大
    '現在のzoom値
        zoom_value= ThisComponent.CurrentController.zoomValue
    'Print zoom_value
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=zoom_value+10
 
End Sub

Sub zoom_out
'Calcのみ 表示縮小
    '現在のzoom値
        zoom_value= ThisComponent.CurrentController.zoomValue
    'Print zoomvalue
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=zoom_value-10
 
End Sub

Sub zoom_100
'zoom値を標準にする
    'zoomvalueセット
         ThisComponent.CurrentController.zoomValue=100
End Sub
 

 


LibreOffice Writer Basic 表の挿入と文字列挿入 [LibreOffice Writer Basic]

LibreOffice Writer Basic 表の挿入と文字列挿入

参考サイト
ttp://openoffice3.web.fc2.com/OOoBasic_Writer_No2.html#OOoWT1b

OS LinuxMint18Cinnamon64bit
LibreOffice5.2

 LibreOffice Writer_tableTXT.png

 

Sub writer_table_test_1()
'表を作成して、表題を挿入する
Dim oText,oTable,oCurs

    oText = ThisComponent.getText()
   
    '表作成    .initialize(行数, 列数)
        oTable = ThisComponent.createInstance("com.sun.star.text.TextTable")
        oTable.initialize(3, 3)
        oCurs = ThisComponent.getCurrentController().getViewCursor()
       
    '表挿入
        oText.insertTextContent(oCurs, oTable, False)
       
    ' 文字入力    Array("","","")は行数分必要
          oTable.setDataArray(Array(Array("氏名","TEL","E-mail"),Array("","",""), Array("","","")))
End Sub