|
==>使用 OLEFormat 对象将ppt中所有链接的 Microsoft Excel 工作表设为手动更新使用 OLEFormat 属性返回一个 OLEFormat 对象。以下示例检查当前演示文稿所有幻灯片中的形状,并将所有链接的 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 NextNext |
|