excel vba 将jpg图片批量转pdf文件

网友问题:

如何能够将jpg图片批量转成pdf文件,并将pdf子文件合并成一个文件.?

为此给出解题思路如下：

将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。

主要步骤：

1,使用Scripting.FileSystemObject对象遍历图片文件.

2,建立word.application的引用Set appWD = CreateObject("Word.Application")  '连接word.

3,在word中插入图片appWD.Selection.InlineShapes.AddPicture Filename:=Address & pname, LinkToFile:= _
        False, SaveWithDocument:=True

4,导出word文档为pdf格式文件 .ExportAsFixedFormat ThisWorkbook.Path & "\Picture.pdf", 17

VBA源码附件如下:

PictureToPdf.zip