共用方式為

PowerPoint) (ShapeRange.AutoShapeType 屬性

  • 發行項

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

語法

運算式。AutoShapeType

表達 代表 ShapeRange 物件的 變數。

傳回值

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

注意事項

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

另請參閱

ShapeRange 物件

支援和意見反應

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