共用方式為


Shape.OLEFormat 屬性 (Publisher)

會傳回 OLEFormat 物件包含 OLE 屬性所指定圖案的格式設定。 適用於代表 OLE 物件的 ShapeShapeRange 物件。

語法

運算式OLEFormat

表達 代表 Shape 物件的變數。

範例

在這個範例中,會循環查看使用中文件第一頁上的所有圖案,並自動更新所有連結的 Excel 工作表。

Sub UpdateLinkedExcelSpreadsheets() 
 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 shp 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應