求点击下一题按钮自动出现下一题

yangqianming · 发表于 2022-12-4 20:22

本帖最后由 yangqianming 于 2022-12-7 07:54 编辑

想做一个双人对抗小游戏，开始试着用动画触发器实现，但是一点就跳转了，

本人不懂vba，摸索了好久做了个基本部分，但点击下一题，就让上一题回到初始位置，
下一题移动到指定位置，

Sub 下一题()
ActivePresentation.Slides(1).Shapes("甲题目1").Top = ActivePresentation.Slides(1).Shapes("甲题目1").Top - 400
ActivePresentation.Slides(1).Shapes("甲题目2").Top = ActivePresentation.Slides(1).Shapes("甲题目2").Top + 400
End Sub

如果我再点击下一题按钮就是要让
ActivePresentation.Slides(1).Shapes("甲题目2").Top = ActivePresentation.Slides(1).Shapes("甲题目2").Top - 400
ActivePresentation.Slides(1).Shapes("甲题目3").Top = ActivePresentation.Slides(1).Shapes("甲题目3").Top + 400
再点击下一题按钮
ActivePresentation.Slides(1).Shapes("甲题目3").Top = ActivePresentation.Slides(1).Shapes("甲题目3").Top - 400
ActivePresentation.Slides(1).Shapes("甲题目4").Top = ActivePresentation.Slides(1).Shapes("甲题目4").Top + 400

再点击下一题按钮
ActivePresentation.Slides(1).Shapes("甲题目4").Top = ActivePresentation.Slides(1).Shapes("甲题目4").Top - 400
ActivePresentation.Slides(1).Shapes("甲题目5").Top = ActivePresentation.Slides(1).Shapes("甲题目5").Top + 400

但我不会写了，而且一个按钮又只能绑定一个宏。请老师们帮我实现一下，万分感谢！

游戏界面.rar (532.85 KB, 下载次数: 2)

		自动登录	找回密码
密码			免费注册

[已解决] 求点击下一题按钮自动出现下一题