返回指定的 OLE 对象的程序标识符 (ProgID)。只读。String 类型。
本示例搜索当前演示文稿所有幻灯片中的所有对象,将全部链接的 Microsoft Excel 工作表设为手动更新。
For Each sld In ActivePresentation.Slides
For Each sh In sld.Shapes
If sh.Type = msoLinkedOLEObject Then
If sh.OLEFormat.ProgID = "Excel.Sheet" Then
sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
End If
End If
Next
Next