LibreOffice、自身のファイル情報を取得するマクロです。 Sub SelfFileDirName下記を取得します。 １．自身のファイル名 ２．自身のファイルパス ３．自身のディレクトリ Sub SelfFileDirName Dim oUrl As String Dim FileName As String Dim FilePath As St…

印刷ジョブの基本、用紙の余白を設定するマクロです。 Sub SetPageMargin Option Explicit Sub SetPageMargin Dim oSheetStyle As Object oSheetStyle = ThisComponent.StyleFamilies.getByName("PageStyles").getByName("Default") With oSheetStyle ' 100 …

印刷ジョブの基本、用紙の向きを設定するマクロです。 Sub SetPageOrientation Sub SetPageOrientation ' 列挙型(enumeration type)を使用 'Enum PaperOrientation ' https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1view.html Di…

印刷ジョブの基本、用紙サイズを設定するマクロです。 サンプルは下記の２種類。1. Sub SetPageSize (用紙の実寸値を使用する方法) 2. Sub SetPageSize2 (列挙型(Enum)を使用する方法) Sub SetPageSize ' 実寸を使用 Dim oSheetStyle As Object oSheetStyle …

配列を使うと各セルへの値の書き込みが劇的に高速化します。 配列を使用した下記コードでは、所要時間１秒以下で１０万個のセルへの書き込みが完了します。 LibreOffice Calcのマクロの欠点である「遅さ」を解決します。【フロー】 １．データを配列に格納し…

LibreOffice Calcでエクセルの Application.ScreenUpdating = False のようなコードを実行してもシート移動操作を伴った場合にマクロ実行シート以外のシートが表示されてしまう事があります。LibreOffice Calcでで画面更新を完全に無効にするには、マクロ動…