HOME > 即効テクニック > Excel VBA > 図形操作関連のテクニック > Shapeを使う - 擬似アニメーション

即効テクニック

図形操作関連のテクニック

Shapeを使う - 擬似アニメーション

(Excel 97/2000)
Shapeを動かすには・・・

1.IncrementRotation,IncrementLeft,IncrementTopなどを使う
2.Top,Left,Width,Heightの値を変更する

などの方法が考えられます。ここでは1のサンプルとして 缶型の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