共用方式為

PowerPoint) (ShapeRange.Duplicate 方法

  • 發行項

會建立指定之 ShapeRange 物件的複本、 將圖案範圍加入 Shapes 集合中，，然後傳回新的 ShapeRange 物件。 重複的物件會放在圖形的 Shapes 集合的結尾。

語法

運算式。重複

表達 代表 ShapeRange 物件的 變數。

傳回值

ShapeRange

範例

本範例會在使用中簡報的結尾新增一個空白的投影片，並在新的投影片上新增一個菱形圖案、複製該菱形，然後設定此複製圖案的屬性。 第一個菱形採用使用中色彩配置的預設填滿色彩；第二個菱形會偏離第一個菱形，並採用預設陰影色彩。

Set mySlides = ActivePresentation.Slides
Set newSlide = mySlides.Add(mySlides.Count + 1, ppLayoutBlank)
Set firstObj = newSlide.Shapes _
    .AddShape(msoShapeDiamond, 10, 10, 250, 350)

With firstObj.Duplicate
    .Left = 150
    .Fill.ForeColor.SchemeColor = ppShadow
End With

另請參閱

ShapeRange 物件

支援和意見反應

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