- 3 名前：デフォルトの名無しさん mailto:sage [2010/11/08(月) 15:49:54 ]
- Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Macro1()
SendKeys ("%{F11}")
st = 100 'Top ボタンの初期位置
sl = 200 'Left
dt = Range("B2").Top '移動先
dl = Range("B2").Left
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=sl, Top:=st, Width:=64, Height:=32).Select
Sleep (500)
nw = 30
For i = nw To 0 Step -1
Sleep (15)
Selection.ShapeRange.Left = dl - (dl - sl) / nw * i
Selection.ShapeRange.Top = dt - (dt - st) / nw * i
DoEvents
Next
Sleep (750)
End Sub
このコードで、
動かすもの"コマンドボタン"を"図１"に代えたいんですがどうすればいいですか？
|
 |
