VBAでこのような図形の移動はできますか？

質問

シート上にあるオートシェイプの図形を、コマンドボタンを押すと「○cm下へ△秒間かけて移動させる」とか「回転させる」というマクロはできますでしょうか？
どなたか教えてくださいませんか？よろしくお願いします。

回答No.2

papayuka · ベストアンサー

> ＣＧっぽい動画ができるかな？なんて思っていたのですが・・・。
> ゆっくりな動きは実現できそうにないみたいですね。

多少もっさりした感じにしてみました。

Sub Test2()
　For i = 1 To 46
　　ActiveSheet.Shapes(1).IncrementRotation i
　　ActiveSheet.Shapes(1).IncrementLeft i / 5
　　ActiveSheet.Shapes(1).IncrementTop i / 5
　　wtime = Timer
　　Do While Timer < wtime + 0.3
　　　 DoEvents
　　Loop
　Next i
End Sub

お礼

再びご回答いただきありがとうございます。
このもっさりした速さの動きがちょうど良いみたいです。ただ、コマンドボタンを介してみるとどんどんズレていってしまうんですね。
いずれにしても不精は出来そうにないのでCGを勉強してみようかなと思ったりして・・・
でもほかのことに応用できるかもしれません。お答えいただいて本当にありがとうございます！

回答No.1

papayuka

取り合えず、こんなのでも回転しました。
Excel2000で試してますがワードアートだと不思議な動きをします。（^^;

Sub Test()
　For i = -90 To 90 Step 0.1
　　　ActiveSheet.Shapes(1).IncrementRotation i
　　　DoEvents
　Next i
End Sub

何センチとかは単位が微妙なので、、、パスです。

お礼

ご回答ありがとうございます。本当に不思議な動きですね・・・。
プログラミングといえばVBAしか知らないのでこれでＣＧっぽい動画ができるかな？なんて思っていたのですが・・・。ゆっくりな動きは実現できそうにないみたいですね。でもとても勉強になりましたので本当にありがとうございます。