Loading... >通过VBA编实现PPT中图片的拖动功能 ####此处建议将宏的安全级别设置为低。#### 1.在演示文稿插入图像控件(视图——工具栏——控件工具箱),打开属性窗口,将picture设成你想拖动的图片(图片大小要根据实际情况进行调整),遗憾的是Image控件不支持透明。 2.双击图像控件,打开的VBA编辑窗口(注意双击后先删除所有代码),复制下面的代码: ``` Dim X1, Y1 As Integer Dim Down As Boolean Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Not Down Then X1 = X Y1 = Y Down = True End If End Sub Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If Down Then Image1.Left = Image1.Left + X - X1 Image1.Top = Image1.Top + Y - Y1 X1 = X Y1 = Y End If End Sub Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Down = False SlideShowWindows(1).View.First End Sub ``` 3.保存,关闭VBA编辑窗口,放映幻灯片,即可看效果了。 4.如果你想拖动多张图片,如法炮制,复制上面的三个鼠标事件,修改Image1、X1、Y1。 拖动图片方式:播放PPT,在图片上按住鼠标,并且要长按住,这样图片才会随你鼠标移动,放开后,图片就停在你放开的地方。<hr class="content-copyright" style="margin-top:50px" /><blockquote class="content-copyright" style="font-style:normal"><p class="content-copyright">版权属于:oduang</p><p class="content-copyright">本文链接:<a class="content-copyright" href="https://www.oduang.com/wz/223.html">https://www.oduang.com/wz/223.html</a></p><p class="content-copyright">转载时须注明出处及本声明,谢谢合作!</p></blockquote> Last modification:December 28th, 2019 at 11:37 am © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments Pay by AliPay Pay by WeChat
你好
你好呀