Excel) (Shape.AutoShapeType 屬性

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

語法

運算式。AutoShapeType

表達 代表 Shape 物件的變數。

註解

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

使用ConnectorFormat物件的Type屬性可設定或傳回連接器類型。

範例

這個範例會將 myDocument 中所有的 16 點星形取代為 32 點星形。

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
    If s.AutoShapeType = msoShape16pointStar Then 
        s.AutoShapeType = msoShape32pointStar 
    End If 
Next

支援和意見反應

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