如何用VBA在PPT中嵌入对象并以图标形式显示？

核心问题及修复步骤： #

• 参数拼写错误：你写的confiliename是笔误，正确参数名是IconFileName，这个错误直接导致PPT忽略了图标显示设置，默认渲染PDF第一页。
• 调用语法错误：AddOLEObject带命名参数调用时，不要加外层括号（除非用Call关键字），括号会导致参数传递异常。
• 未捕获Shape对象：原代码没有把AddOLEObject返回的Shape赋值给osh，后续的位置设置也不会生效。
• 图标路径错误：你用的xlicons.exe是Excel的图标库，应该指定PDF对应的图标文件，比如Acrobat的程序路径或系统默认PDF图标路径。

修正后的完整代码片段： #

Dim ppt_app As New PowerPoint.Application
Dim mypres As PowerPoint.Presentation, myslide As PowerPoint.Slide
Dim osh As PowerPoint.Shape
' 你的日期获取代码...

' 设置文件名相关代码...
Set mypres = ppt_app.Presentations.Open("string1" & dtvariable & ".pptx") ' 原代码缺少Open方法，无法打开PPT
n = mypres.Slides.Count
Set myslide = mypres.Slides(n) ' 嵌入到最后一页，若需倒数第二页则保留n-1，按需调整

fpath = "string for central loc"
v1 = "string1" & dtvariable & ".pdf"
v2 = "string2" & dtvariable & ".xlsx"

' 修正后的AddOLEObject调用，捕获返回的Shape对象
Set osh = myslide.Shapes.AddOLEObject( _
    FileName:=fpath & v1, _
    Link:=msoFalse, _
    DisplayAsIcon:=msoTrue, _
    IconLabel:=v1, _
    IconIndex:=1, ' 默认图标索引，按需调整
    IconFileName:="C:\Program Files (x86)\Adobe\Acrobat DC\Acrobat\Acrobat.exe" ' 替换为你系统中Acrobat的实际路径
)

' 设置图标位置
With osh
    .Left = 2.29 * 72
    .Top = 2.49 * 72
    .Height = 0.84 * 72
    .Width = 1 * 72
End With

额外注意事项： #

• 若找不到Acrobat路径，可尝试用系统shell32.dll中的PDF图标，示例：IconFileName:="C:\Windows\System32\shell32.dll", IconIndex:=26（索引可能因系统版本略有差异）。
• 嵌入4个文档时，重复AddOLEObject代码并调整每个图标的Left/Top参数，避免图标重叠。

内容的提问来源于stack exchange，提问作者Jeff