ShapeRange.AutoShapeType 屬性 (Publisher)

會傳回或設定 MsoAutoShapeType 常數，指定 ShapeRange 物件的快取圖案類型。

語法

運算式。AutoShapeType

表達 代表 ShapeRange 物件的 變數。

註解

AutoShapeType屬性值可以是 Microsoft Office 類型程式庫中所宣告的MsoAutoShapeType常數之一。

AutoShapes 會對應至 Shape 物件，但非發行者圖形的 AutoShapeType 屬性也會傳回值。 文字藝術師、OLE、Web Form 控制項、表格和圖片框物件應該傳回 msoShapeMixed 作為其 AutoShapeType 屬性值。 文字圖文框應傳回 msoShapeRectangle 作為其 AutoShapeType 屬性值。

範例

這個範例會將選取的 快取圖案 物件時的心形閃電及 5 角星形如果原本不是。 本範例才能正常執行，您必須選取使用中出版物的 快取圖案 物件。

Sub ShapeShift() 
 
 Dim srShift As ShapeRange 
 
 Set srShift = Application.ActiveDocument.Selection.ShapeRange 
 If srShift.AutoShapeType = msoShapeHeart Then 
 srShift.AutoShapeType = msoShapeLightningBolt 
 Else 
 srShift.AutoShapeType = msoShape5pointStar 
 End If 
 
End Sub

支援和意見反應

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