This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns a String that represents the programmatic identifier (ProgID) for the specified OLE object. Read-only.
expression Required. An expression that returns one of the objects in the Applies To list.
For information about programmatic identifiers, see OLE Programmatic Identifiers.
This example loops through all the linked OLE object shapes on the first page of the active document and updates all linked Microsoft Excel worksheets. This example assumes there is at least one shape on the first page of the active publication.
Sub UpdateLinkedOLEObject() Dim shp As Shape For Each shp In ActiveDocument.Pages(1).Shapes If shp.Type = msoLinkedOLEObject Then If shp.OLEFormat.ProgId = "Excel.Sheet" Then shp.LinkFormat.Update End If End If Next End Sub