PowerPoint) (Shape.AutoShapeType 屬性

會傳回或設定指定的 Shape 物件，它必須表示以外的線條、 手繪多邊形或連接器快取圖案的圖案類型。 讀取/寫入。

語法

運算式。AutoShapeType

表達 代表 Shape 物件的變數。

傳回值

MsoAutoShapeType

註解

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

範例

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

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

注意事項

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

另請參閱

Shape 物件

支援和意見反應

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