给别人做的网站要复杂做安全扫描,微信公众号推广的方法,昆明网站建设服务公司,深圳服务好的网站建设wps演示时图片任意位置拖动 1.wps11.1版本#xff0c;其他版本的宏插件可以自己下载。2.先确认自己的wps版本是不是11.13.检查是否有图像工具4.检查文件格式和安全5.开发工具--图像6.选中图像控件#xff0c;右击选择查看代码#xff0c;将原有代码删除#xff0c;将下边代… wps演示时图片任意位置拖动 1.wps11.1版本其他版本的宏插件可以自己下载。2.先确认自己的wps版本是不是11.13.检查是否有图像工具4.检查文件格式和安全5.开发工具--图像6.选中图像控件右击选择查看代码将原有代码删除将下边代码直接复制粘贴如多张图片需要复制多份代码用图像控件的名称区分 1.wps11.1版本其他版本的宏插件可以自己下载。
宏插件地址 链接: https://pan.baidu.com/s/1bUantSdIJxR_3nMAjT7kXw?pwd6666 提取码: 6666 wps11.1版本 链接: https://pan.baidu.com/s/1ieHj6BHAk3LxhTIFK7zg2w?pwd6666 提取码: 6666
2.先确认自己的wps版本是不是11.1
文件-帮助-关于wps
3.检查是否有图像工具
开发工具-图像。如果没有则需要安装宏插件使用1中的链接即可
4.检查文件格式和安全
开发工具-宏安全性选择低才能运行宏 看一下文件后缀名是否为pptm如果不是则另存为pptm即可
5.开发工具–图像
右击选择属性如图 Picture是选择需要展示的图片。 名称是图像控件的名称,需要和代码保持一致。 右侧大小可以调整控件的长宽当然也可以直接拖拽调整。 AutoSize是图片自适应默认是Flase
6.选中图像控件右击选择查看代码将原有代码删除将下边代码直接复制粘贴如多张图片需要复制多份代码用图像控件的名称区分
Dim X1, Y1 As Single 用来记录位置
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 SubPrivate 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)
End If
End SubPrivate Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
改变移动状态并显示移动后的图片
Down False
返回演示文档的首页如过当前不是首页是第二页则使用代码替换下边行SlideShowWindows(1).View.GotoSlide(2)
SlideShowWindows(1).View.First
End Sub下边是控制窗口刷新的避免图片乱飞
Private Sub Form_Load()Timer1.Interval 5Timer1.Enabled TrueMe.cls
End Sub
