软件:powerpoint
版本:2010
最近在练习用powerpint的VBA功能，发现跟Excel VBA还是有点差距(像是OnTime 就没有)
有两个问题想要请教版上的强者
1.
我用开发工具放了一个ActiveX图片，希望在播放下能够按了图片逐渐移动
于是我这样写(因为powerpoint不支援OnTime Method)
Private Sub CommandButton1_Click()
For i = 1 To 50
Image1.Left = Image1.Left + 2
Next
End Sub
但过程却出乎我意料
以下图由上到下分别是执行前(编辑画面)，执行后(播放)，执行后(编辑画面)
http://imgur.com/a/LYqlI
不但没有出现如果预期的逐渐移动，还变成两张图，像是复制一样
但回到编辑画面却发现他真的位移了，也没有复制
※更新进度
逐步移动解决了，但不知道为什么还是会出现第二个画面
卡一张原图在本来的位置
2.
因为1的问题不知道原因
所以我想用VBA做出插入图片，将图片做powerpoint的动画移动缩放
Set myIMG = ActivePresentation.Slides(1)
myIMG.Shapes.AddPicture FileName:="C:\Users\will_chiang\Desktop\A1.jpg",
LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
Left:=100, Top:=100, Width:=70, Height:=70
For i = 1 To 50
Sleep 10
DoEvents
Next
但我不知道要如何才能指定到我这个插入的物件，让Top跟Left移动
感谢！

逐渐移动方面可在循环内用sleep配合doevents效果如https://youtu.be/DmdoQw0TJco

加了DoEvents的确做到逐步移动，但起始位置还是会出现暂存画面，sleep是要解决这个问题吗？

抱歉测试上无出现暂存画面，看其他先进是否有解决方式

现在问题变成不知道为啥会有暂存画面了QQ

同myIMG方式，在addpicture时set 变量 =myimg.shapes.addpicture(filename:=...height:70)再将此变量于循环内进行top和left的移动变量资料型态为shape

非常感谢楼上大大！