共用方式為


PowerPoint) (Shape.Delete 方法

會刪除指定的 Shape 物件。

語法

運算式刪除

表達 代表 Shape 物件的變數。

範例

這則範例會刪除使用中簡報第一張投影片內的所有手繪多邊形圖案。

With Application.ActivePresentation.Slides(1).Shapes

    For intShape = .Count To 1 Step -1

        With .Item(intShape)

            If .Type = msoFreeform Then .Delete

        End With

    Next

End With

另請參閱

Shape 物件

支援和意見反應

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