Word) (Shape.AutoShapeType 屬性

會傳回或設定指定之 Shape 物件的圖案類型，該物件必須代表快取圖案，而不可以是線條或手繪多邊形。 可讀寫的 MsoAutoShapeType。

語法

運算式。AutoShapeType

需要 expression。 代表 Shape 物件的變數。

註解

變更圖案的類型時，圖案將保留其大小、色彩和其他屬性。

範例

此範例會將使用中文件裡所有的 16 點星形取代為 32 點星形。

Sub ReplaceAutoShape() 
 Dim docNew As Document 
 Dim shpStar As Shape 
 Set docNew = ActiveDocument 
 For Each shpStar In docNew.Shapes 
 If shpStar.AutoShapeType = msoShape16pointStar Then 
 shpStar.AutoShapeType = msoShape32pointStar 
 End If 
 Next 
End Sub

另請參閱

Shape 物件

支援和意見反應

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