Question

我一直在尝试修改此脚本以获取pdf文件并将其作为图像插入到活动工作表中。但它不断创建一个新的工作簿并插入到新书中。

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

Sub insert_pdf_to_report（）

Dim Xl 昏暗的Wb 昏暗的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

End Sub

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中创建新工作簿和工作表。

我没有excel来测试这个，但我认为我的代码可以通过删除创建新工作簿的命令来满足您的期望。

干杯。

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

1 个答案: