次の方法で共有


ShapeRange.OLEFormat プロパティ (Publisher)

OLE の書式指定した図形のプロパティを含む OLEFormat オブジェクトを返します。 OLE オブジェクトを表す 図形 または 図形範囲 のオブジェクトに適用されます。

構文

OLEFormat

ShapeRange オブジェクトを表す変数。

次の使用例は、作業中の文書の最初のページに含まれるすべての図をループで処理し、リンクされたすべての 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 のサポートおよびフィードバックを参照してください。