VBA将PDF粘贴到PowerPoint中质量很差

Question

我编写了一个宏来使用 AddOLEObject 函数将 PDF 粘贴到 powerpoint 中。它按预期工作，只是图像质量有很大损失。 PDF 是由流式细胞术软件（如果有人熟悉的话）生成的几张图的单个 8.5x11 页。粘贴时，缺少一些轴和代码以及字母和数字的碎片。这显然是不可取的。

这是我的代码的相关部分：

Set FlowScript2 = Application.FileDialog(msoFileDialogFilePicker)
With FlowScript2
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "PDFs", "*.pdf"
    .Title = "Select Lentivirus Transduction Flow Results File"
    .Show
End With

If FlowScript2.SelectedItems.Count <> 0 Then

    FlowFile =Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)

    Set shp = sld.Shapes.AddOLEObject(Left:=50.4, Top:=110, Width:=792, Height:=612, FileName:=FlowFile, Link:=False)
    shp.Line.Visible = msoTrue

    With shp.PictureFormat
        .CropLeft = 45
        .CropRight = 45
        .CropTop = 52
        .CropBottom = 210
    End With

End If

我尝试粘贴不同尺寸的图像，但没有成功。我在某处读到使用 Adob​​e 对象可能会更好，但是我希望将最终结果分发给其他用户，并且担心该版本可能不会无处不在。不知所措。任何帮助是极大的赞赏。谢谢！

Answer 1

您可以插入带有图标的文档，然后在图标前面放置一个 ActiveX 图片，然后为该图片创建自己的优化图像并将其附加到 ActiveX 图片属性。

最后，将一些代码附加到 ActiveX 控件的单击事件中：

Private Sub Image1_Click()
  Dim shp As Shape
  Set shp = Slide1.Shapes("Object 1")
  shp.OLEFormat.DoVerb 0
End Sub