Konvertieren Sie PDF in JPG in Excel mit VBA-Code

PDF - eines der beliebtesten Formate für den Austausch von Dokumenten, ist jedoch nicht immer für die Arbeit mit Programmen geeignet, die Grafiken erfordern. Es besteht die Notwendigkeit, das PDF in ein anderes Format zu konvertieren, z. B. in JPG, um Bilder in Excel zu verwenden. In diesem Artikel werden wir uns ansehen, wie eine solche Konvertierung mit Hilfe von VBA-Code.

VBA (Visual Basic for Applications) ist eine Programmiersprache, die in Microsoft Office-Anwendungen verwendet wird, um die Funktionalität zu automatisieren und zu erweitern. Sie können damit Makros erstellen und verschiedene Datenoperationen in Office-Anwendungen, einschließlich Excel, ausführen.

Um PDF in JPG mit VBA zu konvertieren, müssen wir eine spezielle Software auf unserem Computer installieren. Wir werden das Programm verwenden Ghostscript, mit dem Sie über die Befehlszeile mit PDF-Dateien arbeiten können. Ghostscript steht von der offiziellen Website zum Download zur Verfügung.

Anmerkung: Bevor Sie Ghostscript verwenden, sollten Sie die Lizenzvereinbarung lesen und sicherstellen, dass Sie sie gemäß den Richtlinien verwenden.

Verwenden von VBA-Code zum Konvertieren von PDF-Dateien in das JPG-Format

Die Konvertierung von PDF-Dateien in das JPG-Format kann in vielen Situationen nützlich sein, insbesondere bei der Arbeit mit großen Datenmengen oder bei der schnellen und bequemen Darstellung von Informationen in Form von Bildern. In diesem Artikel erfahren Sie, wie Sie VBA-Code verwenden, um PDF-Dateien mithilfe von Excel automatisch in das JPG-Format zu konvertieren.

Zuerst müssen Sie ein neues VBA-Projekt in Excel erstellen oder öffnen. Drücken Sie dazu eine Tastenkombination ALT+F11, um den VBA-Editor zu öffnen. Wählen Sie dann Einfügen - Modul aus, um ein neues Modul zu erstellen.

Fügen Sie als Nächstes den folgenden Code in das neue Modul ein:

Sub ConvertPDFtoJPG(ByVal FilePath As String)Dim objApp As ObjectDim objFolder As ObjectDim objFile As ObjectSet objApp = CreateObject("AcroExch.App")Set objFolder = objApp.GetActiveDoc.Open(FilePath).SaveAs(objFolder, IIf(Right(objFolder, 1) = "\", objFolder & "Output.jpg", objFolder & "\Output.jpg"), "jpg")objApp.Close objFolderSet objFile = NothingSet objFolder = NothingSet objApp = NothingMsgBox "PDF-файл успешно конвертирован в формат JPG!"End Sub

Dieser Code verwendet die Objektmodelle AcroExch und AcroExch.AVDoc zum Öffnen von PDF-Dateien und Speichern im JPG-Format.

Um diesen Code nun zum Konvertieren von PDF-Dateien anzuwenden, müssen Sie die Funktion ConvertPDFtoJPG aufrufen und ihr den Pfad zur PDF-Datei als Argument übergeben. Zum Beispiel, um die Datei "example.pdf", können Sie die Funktion wie folgt aufrufen:

ConvertPDFtoJPG "C:\path\to\example.pdf"

Wenn Sie den Code ausführen, wird eine Meldung angezeigt, die darauf hinweist, dass die Datei erfolgreich in das JPG-Format konvertiert wurde.

Beachten Sie, dass Sie möglicherweise den Adobe Acrobat Reader und die installierte Acrobat SDK-Bibliothek benötigen, damit dieser Code funktioniert. Stellen Sie außerdem sicher, dass der im Code angegebene Pfad zur PDF-Datei korrekt ist.

Jetzt wissen Sie, wie Sie den VBA-Code anwenden, um PDF-Dateien mit dem Excel-Programm in das JPG-Format zu konvertieren. Dieser Ansatz kann nützlich sein, wenn Sie den Konvertierungsprozess für große Datenmengen automatisieren möchten oder wenn Sie die Informationen lieber als Bilder darstellen möchten.

Importieren der resultierenden Bilder mithilfe eines VBA-Skripts nach Excel

Die Hauptfunktion, die zum Importieren von Bildern in Excel verwendet wird, ist die InsertPicture- Funktion. Mit dieser Funktion können Sie ein Bild in eine Zelle einfügen, indem Sie den Zellenpfad und die Koordinaten angeben.

Beispielcode zum Importieren von Bildern in Excel:

Erstellen Sie eine neue Variable vom Typ Worksheet und weisen Sie ihr das aktive Arbeitsblatt zu:

Dim ws As WorksheetSet ws = ActiveSheet

Dim imagePath As StringimagePath = "C:\Путь\к\изображению.jpg"

Dim cell As RangeSet cell = ws.Range("A1")

ws.Pictures.Insert imagepathWith ws.Pictures(1).Left = cell.Left.Top = cell.Top.Width = cell.Width.Height = cell.Height

Nachdem Sie alle diese Schritte ausgeführt haben, können Sie die resultierenden Bilder mithilfe eines VBA-Skripts in Excel importieren. Auf diese Weise können Sie bequem mit Bildern in Excel arbeiten und sie zur weiteren Analyse und Verarbeitung von Daten verwenden.