expression.ProgId
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example loops through all the linked OLE object shapes on the first page of the active document and updates all linked 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