如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。

取不到文件名，我感觉文件名已经被转换为ICON了，我下面代码只能显示名字和类型：

Sub 宏1()

    Dim s As Shape

    For Each s In ActiveSheetShapes

        If sType = msoEmbeddedOLEObject Then MsgBox sName & Chr(10) & sOLEFormatprogID

    Next s

End Sub

是否显示为图标的两个对象显示都是一样的的结果：

如果不是为了学习VBA，而仅仅是为了达到Excel转换为PDF的结果,建议是装个软件，

像

1、 Adobe acrobat pro 8或者以上版本

2、PDF虚拟打印机 （例如：PDFfactory Pro 、doPDF、PDF Creator、tinyPDF等等）

PDF Creator这个很常见

3、文电通PDF plus 9

另外，升级到Microsoft OFFICE 2007以后的版本，都有转换PDF的功能， *** 作方法相当简单，就是 另存为即可。

首先，加载引用，如图

然后，在打印机中对Acrobat Distiller的打印进行设置设置（必须，否则转化出错！）

Public Sub MakePDF(ByVal strPDFFileName As String)

          Dim strPSFileName As String

          Dim xlWorksheet As Worksheet

        Dim objPdfDistiller As PdfDistiller

          strPSFileName = Left(strPDFFileName, InStrRev(strPDFFileName, "/")) & "tmpPostScriptps"

          Set xlWorksheet = ActiveSheet

        Call xlWorksheetPrintOut(copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:=strPSFileName)

          Set objPdfDistiller = New PdfDistiller

        Call objPdfDistillerFileToPDF(strPSFileName, strPDFFileName, "")

          Call Kill(strPSFileName)

      End Sub

不明白为什么不用PDF插件直接生成PDF文档？

以上就是关于如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。全部的内容，包括:如何用vba将ppt或excel中嵌入的文件（如：我的文件.pdf）名称提取出来。、怎么用VBA将EXCEL转换为PDF、如何利用excel VBA生成PDF文件等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！