スキルアップ・問題解決なら、モーグにおまかせ！

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