如何使用VBA添加PowerPoint内置图标？

目前微软公开的 PowerPoint Object Model 确实没有直接调用内置图标库插入图标的公开API，内置图标本质属于微软专属图标库中的SVG矢量资源，相关调用入口未对外暴露。

可行实现方案 #

• 预存图标模板复制调用
  也就是你提到的预先将所需图标存入指定隐藏幻灯片/模板幻灯片，使用时直接复制的方案，是目前落地性最强的常用方案：
  • 优势：实现逻辑极简，不依赖Office版本或权限，复制后的图标可完整保留原生矢量属性，支持正常改色、无损缩放
  • 适用场景：所需图标数量有限、可提前枚举的场景，小范围自用工具、企业内部插件普遍采用该方案
• 调用Shapes.AddPicture插入预导出的SVG图标
  可以提前把需要用到的内置图标导出为SVG文件存储在本地资源目录，调用时直接通过添加图片的接口插入即可，效果和原生插入的图标完全一致，参考VBA代码如下：

  ActivePresentation.Slides(1).Shapes.AddPicture _
    FileName:="本地SVG图标路径", _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=100, Top:=100, Width:=50, Height:=50
  

  该方案适合需要用到的图标数量较多、不方便全部放在模板幻灯片中的场景，资源维护成本比预存幻灯片的方案更低。
• 调用Office Ribbon内置命令（仅限VSTO/COM加载项场景）
  如果是开发COM加载项/VSTO工具，可以直接调用Ribbon内置命令ID InsertIcons 唤起原生的图标选择面板，用户手动选择后即可完成插入，不需要自行维护图标资源，适合面向通用用户的公开发行插件场景。

关于最优解的判断 #

预存图标到指定幻灯片复制的方案不属于全场景最优解，但属于泛用性最高、开发成本最低的方案，你可以根据自身的使用场景、需求覆盖范围选择对应的实现方案即可。

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