实做有效-ppt拖拽效果
2页PPT中也能实现图片的拖动功能一、通过VBA编实现PPT中图片的拖动功能此处建议将宏的安全级别设置为低。1在演示文稿插入图像控件(视图工具栏控件工具箱),打开属性窗口,将picture设成你想拖动的图片(图片大小要根据实际情况进行调整),遗憾的是Image控件不支持透明。2双击图像控件,打开的VBA编辑窗口(注意双击后先删除所有代码),复制下面的代码:Dim X1, Y1 As IntegerDim Down As BooleanPrivate Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Not Down ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Down = FalseSlideShowWindows(1).View.FirstEnd Sub3保存,关闭VBA编辑窗口,放映幻灯片,即可看效果了。4如果你想拖动多张图片,如法炮制,复制上面的三个鼠标事件,修改Image1、X1、Y1。拖动图片方式:播放PPT,在图片上按住鼠标,并且要长按住,这样图片才会随你鼠标移动,放开后,图片就停在你放开的地方。效果图如下:
《实做有效-ppt拖拽效果》由会员设****3分享,可在线阅读,更多相关《实做有效-ppt拖拽效果》请在金锄头文库上搜索。
2024-05-06 145页
2024-05-06 130页
2024-04-18 5页
2024-04-18 3页
2024-03-26 33页
2024-03-26 3页
2024-03-26 4页
2024-03-22 3页
2024-03-15 3页
2024-03-15 3页