Převod PDF na JPG do Excelu s VBA kódem

PDF - jeden z nejoblíbenějších formátů pro sdílení dokumentů, ale není vždy vhodný pro práci v programech, které vyžadují grafické obrázky. Je třeba převést PDF do jiného formátu, například do JPG Chcete-li použít obrázky v Excelu. V tomto článku se podíváme, jak tuto konverzi provést pomocí VBA kód.

VBA (Visual Basic for Applications) - je to programovací jazyk, který se používá v aplikacích Microsoft Office k automatizaci a rozšíření funkčnosti. Pomocí něj lze vytvářet makra a také provádět různé operace s daty v aplikacích Office, včetně Excelu.

Chcete-li převést PDF na JPG pomocí VBA, budeme muset nainstalovat speciální software do našeho počítače. Použijeme program Ghostscript, která vám umožní pracovat s soubory PDF z příkazového řádku. Ghostscript je k dispozici ke stažení z oficiálních stránek.

Poznámka: Před použitím Ghostscriptu byste se měli seznámit s licenční smlouvou a ujistit se, že ji používáte v souladu s pravidly.

Aplikace VBA kódu pro převod souborů PDF do formátu JPG

Převod souborů PDF do formátu JPG se může hodit v mnoha situacích, zejména při práci s velkým množstvím dat nebo v případě potřeby rychlého a pohodlného zobrazení informací ve formě obrázků. V tomto článku se podíváme na to, jak použít kód VBA k automatickému převodu souborů PDF do formátu JPG pomocí programu Excel.

Nejprve je třeba vytvořit nebo otevřít nový projekt VBA v Excelu. Chcete-li to provést, stiskněte kombinaci kláves ALT+F11 otevřít Editor VBA. Poté vyberte Vložit-Modul a vytvořte nový modul.

Dále vložte následující kód do nového modulu:

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

Tento kód používá objektové modely AcroExch a AcroExch.AVDoc pro otevření souborů PDF a jejich uložení ve formátu JPG.

Chcete-li nyní použít tento kód pro konverzi souborů PDF, musíte zavolat funkci ConvertPDFtoJPG a jako argument jí předat cestu k souboru PDF. Například převést soubor " example.pdf", funkci můžete vyvolat následujícím způsobem:

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

Při provádění kódu uvidíte zprávu, která ukazuje na úspěšnou konverzi souboru do formátu JPG.

Všimněte si, že k fungování tohoto kódu možná budete potřebovat Adobe Acrobat Reader a nainstalovanou knihovnu Acrobat SDK. Ujistěte se také, že cesta k souboru PDF, která je uvedena v kódu, je správná.

Nyní víte, jak použít kód VBA k převodu souborů PDF do formátu JPG pomocí programu Excel. Tento přístup může být užitečný, pokud potřebujete automatizovat proces převodu velkého množství dat nebo pokud dáváte přednost prezentaci informací ve formě obrázků.

Import přijatých obrázků do Excelu pomocí VBA skriptu

Hlavní funkcí, která bude použita k importu obrázků v Excelu, je funkce InsertPicture . Tato funkce umožňuje vložit obrázek do buňky zadáním jeho cesty a souřadnic buňky.

Příklad kódu pro import obrázků v Excelu:

Vytvoříme novou proměnnou typu Worksheet a přiřadíme jí aktivní list:

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

Po dokončení všech těchto kroků budete moci importovat výsledné obrázky do Excelu pomocí skriptu VBA. Tímto způsobem budete moci pohodlně pracovat s obrázky v Excelu a také je používat k další analýze a zpracování dat.