Ｅxcelのマクロで２つの図形を交互に、背面→前面に入れ替える

マクロで２つの図形を　前、後、前、後と入れ替えることによって動いている感じにしたいのですがどう記述したらいいでしょうか

No.1 ベストアンサー 回答者： chiwa-CF 回答日時： 2010/01/08 12:07

マクロの記録でやってみました。

'スリープ関数です。
Private Declare Sub Sleep Lib "KERNEL32.dll" _
(ByVal dwMilliseconds As Long)

Sub Macro1()
' "Oval 1"のところをお使いの図形の名称に変えてください。
ActiveSheet.Shapes("Oval 1").Select
Selection.ShapeRange.ZOrder msoSendToBack
DoEvents
'切替間隔をミリ秒単位で指定してください。
Sleep 1000
' "Oval 2"のところをお使いの図形の名称に変えてください。
ActiveSheet.Shapes("Oval 2").Select
Selection.ShapeRange.ZOrder msoSendToBack
End Sub

こんな感じでいかがでしょうか？

この回答へのお礼

うまくできました。こんなに早くご回答いただけてほんとにありがとうございます。
これからもっともっと勉強してマクロを使いこなせるようになりたいです。また解らないこと教えてくださいね。

お礼日時：2010/01/08 15:55