This example adds a triangle to myDocument
, duplicates the triangle, and then flips the duplicate triangle vertically and makes it red.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRightTriangle, 10, 10, 50, 50).Duplicate
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Flip msoFlipVertical
End With