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