Pages

▼

Friday, May 04, 2007

Flip Shapes

Rotate Images - Flip Images

Sub Flip_Shapes()

Dim sht As Worksheet
Dim shp As Shape

' Flip the Image - Turn the Image Upside Down

Set sht = ActiveSheet

Set shp = sht.Shapes(1)

shp.Flip msoFlipVertical

End Sub
at

1 comment:

  1. Anonymous8:19 PM

    Hey thanks alot for that, though I don't know why you defined sht as ActiveSheet and so on.

    ReplyDelete