- Excel VBA 質問スレ Part38 [転載禁止]©2ch.net
188 ：デフォルトの名無しさん[sage]：2015/09/27(日) 09:29:32.86 ID:sLoOgNJF - test1だと、値代入 → ３秒停止 → 図形挿入ですが
test2だと、３秒停止 → 値代入、図形挿入になってしまいます。
test2でも、図形挿入 → ３秒停止 → 値代入にするには
どうすればよいでしょうか。
使用環境：Windows7（64bit）、EXCEL2010
======================================================
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test1()
Cells(1, 2).Value = 1
Sleep 3000
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 54, 13.5).Select
End Sub
Sub test2()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 54, 13.5).Select
Sleep 3000
Cells(1, 2).Value = 1
End Sub
|