Shapeを動かすには・・・

１．IncrementRotation,IncrementLeft,IncrementTopなどを使う
２．Top,Left,Width,Heightの値を変更する

などの方法が考えられます。ここでは１のサンプルとして 缶型の
Shapeを回転させた後、右方向へ移動させます。Incrementさせる
際に指定する値は適宜変更してください。

Sub IncrementShape()

    Dim MyShape As Shape
    Dim i As Long

    Set MyShape = ActiveSheet.Shapes.AddShape _
                                (msoShapeCan, 100, 100, 100, 100)

    With MyShape

    'Shapeを回転させる
        For i = 1 To 360
            .IncrementRotation 1
            DoEvents
        Next i

    ' 右方向へ移動
        For i = 1 To 300
            .IncrementLeft 1
            DoEvents
        Next i

    '削除
        .Delete
    End With

End Sub