共用方式為


ShapeRange.AutoShapeType 屬性 (Excel)

會傳回或設定指定之 ShapeShapeRange 物件的圖案類型,該物件必須代表線條、手繪多邊形或連接器以外的快取圖案。 可讀寫的 MsoAutoShapeType

語法

運算式AutoShapeType

表達 代表 ShapeRange 物件的 變數。

註解

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

使用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 支援與意見反應