アプリケーション

LibreOffice Calc PDF自動保存マクロ

最終更新： 14/03/2025
1 分の読み

LibreOffice CalcのシートをPDF形式で自動保存する方法について、マクロを使った完全かつ包括的なガイドをお届けします。本記事では、LibreOffice CalcのシートをPDFとして自動保存するための手順を、初心者向けに詳細に説明します。

1. はじめに

LibreOffice Calcは、オープンソースのスプレッドシートソフトウェアで、Microsoft Excelに似た機能を持っています。特に、オープンな形式であるため、さまざまな環境で使用でき、PDFへのエクスポート機能を備えているため、ドキュメントを保存するのに非常に便利です。しかし、手動で毎回PDFとして保存するのは時間がかかるため、マクロを使ってこのプロセスを自動化することができます。

関連記事

2. マクロの基礎

LibreOffice Calcでは、VBAに似たBasicというプログラミング言語を使用してマクロを作成できます。このマクロを使用すると、特定の操作を自動化したり、ユーザーの手間を省いたりすることができます。

今回は、「シートをPDFとして自動保存する」ためのマクロを作成します。これにより、毎回手動で「エクスポート」する手間を省くことができます。

3. マクロの作成方法

3.1 マクロエディタを開く

まず、LibreOffice Calcを開き、次の手順でマクロエディタを開きます。

  1. LibreOffice Calcを起動し、任意のシートを開きます。
  2. メニューから「ツール」→「マクロ」→「マクロの管理」→「LibreOffice Basic」を選択します。
  3. 「マクロ」ダイアログボックスが表示されたら、左側で「マイマクロ」→「Standard」を選択します。
  4. 新しいマクロを作成するために、「新規作成」をクリックします。

3.2 マクロコードの記述

次に、以下のコードをマクロエディタに入力します。このコードは、現在のシートをPDF形式で保存するものです。

basic
Sub SaveAsPDF
    Dim oDoc As Object
    Dim oExporter As Object
    Dim sFilePath As String
    Dim sFileName As String
    
    ' 現在のドキュメントを取得
    oDoc = ThisComponent
    
    ' 保存先のパスとファイル名を設定
    sFilePath = "file:///C:/path/to/save/folder/"
    sFileName = "exported_sheet.pdf"
    
    ' ファイルパスの結合
    Dim sFullPath As String
    sFullPath = sFilePath & sFileName
    
    ' PDFとしてエクスポート
    oDoc.storeToURL(sFullPath, Array(MakePropertyValue("FilterName", "writer_pdf_Export")))
End Sub

Function MakePropertyValue(sProperty As String, sValue As String) As Object
    Dim oProperty(1) As New com.sun.star.beans.PropertyValue
    oProperty(0).Name = sProperty
    oProperty(0).Value = sValue
    MakePropertyValue = oProperty
End Function

このコードは、次のことを行います：

  • oDoc = ThisComponent で、現在開いているCalcシートを取得します。
  • sFilePath と sFileName でPDFを保存するパスとファイル名を指定します。
  • storeToURL メソッドを使用して、シートを指定したパスにPDF形式で保存します。

3.3 コードの編集

  • sFilePath の部分は、実際に保存したいフォルダのパスに変更します。例えば、「C:/Users/Username/Documents/」のように設定します。
  • sFileName は、保存するファイル名を指定します。exported_sheet.pdf という名前でも構いませんが、任意の名前を付けることができます。

4. マクロの実行

マクロを作成した後は、それを実行することで、指定した場所にPDFとして保存できます。実行するための手順は以下の通りです。

  1. マクロエディタで、先ほど作成した「SaveAsPDF」マクロを選択し、「実行」をクリックします。
  2. シートが指定したフォルダにPDF形式で保存されます。

5. マクロの自動実行

もし、特定のイベント（例えば、シートを閉じるときや、定期的に自動で保存したい場合）にマクロを実行したい場合、LibreOfficeのイベントハンドラを使用できます。例えば、シートを閉じる際に自動で保存する方法を以下に示します。

5.1 イベントハンドラを設定する

  1. マクロエディタを開き、作成した「SaveAsPDF」マクロを選択します。
  2. イベントに対するリスナーを追加することで、シートが閉じられたときや他の操作時にマクロを実行することができます。
basic
Sub AddEventListener
    Dim oListener As Object
    Dim oDoc As Object

    oDoc = ThisComponent
    oListener = CreateUnoListener("MyListener_", "com.sun.star.frame.XWindowListener")
    oDoc.addWindowListener(oListener)
End Sub

Sub MyListener_windowClosing(oEvt)
    SaveAsPDF
End Sub

このコードは、シートが閉じられたときにPDFとして保存するマクロを自動で実行します。

6. まとめ

LibreOffice Calcを使ってPDF形式でシートを自動保存するためのマクロを作成する方法を紹介しました。手動でエクスポートする手間を省き、効率的に作業を進めることができます。また、シートが閉じられた際に自動でPDFを保存する方法も紹介しました。これにより、作業の自動化が進み、より生産的にLibreOffice Calcを活用できるようになります。

マクロの作成や編集は少し難しく感じるかもしれませんが、一度理解すれば、さまざまな自動化に応用することができます。

最終更新： 14/03/2025
1 分の読み
Back to top button