在给定的Excel工作表中插入PDF文件作为图像

我一直在试图修改这个脚本来把PDF文件作为图像插入到活动工作表中。 但它不断创build一个新的工作簿，并插入到新书。

有人可以帮助我修改这个脚本，以便将pdf作为图像插入到名为“report”的工作表中。

Sub insert_pdf_to_report（）

Dim Xl Dim Wb Dim Ws Dim Ol

Sheets("Report").Activate Set Xl = CreateObject("Excel.Application") Set Wb = Xl.Workbooks.Add Set Ws = Wb.Worksheets.Add Set Ol = Ws.OLEObjects.Add(, "C:\QGC_HSSE\template.pdf", True, False) With Ol .Left = Ws.Range("A1").Left .Height = Ws.Range("A1").Height .Width = Ws.Range("A1").Width .Top = Ws.Range("A1").Top End With Sheets("Report").Activate Xl.Visible = True 

结束小组

Answer 1

你能试试吗？

 Sheets("Report").Activate Set Ws = ActiveWorkbook.Worksheets("Report") Set Ol = Ws.OLEObjects.Add(, "/Users/tcan/Farewell-dinner.jpg", True, False) ... 

你的代码的问题是这些语句：

 Set Xl = CreateObject("Excel.Application") Set Wb = Xl.Workbooks.Add Set Ws = Wb.Worksheets.Add 

在新的WB中创build一个新的工作簿和一个工作表。

我没有excel来testing这个，但我认为我的代码可能会按照您的期望工作，通过删除创build新的工作簿的命令。

干杯。