1.wps11.1版本，其他版本的宏插件可以自己下載。
宏插件地址：
鏈接: https://pan.baidu.com/s/1bUantSdIJxR_3nMAjT7kXw?pwd=6666 提取碼: 6666
wps11.1版本：
鏈接: https://pan.baidu.com/s/1ieHj6BHAk3LxhTIFK7zg2w?pwd=6666 提取碼: 6666
2.先確認(rèn)自己的wps版本是不是11.1
文件-幫助-關(guān)于wps
3.檢查是否有圖像工具
開(kāi)發(fā)工具-圖像。如果沒(méi)有，則需要安裝宏插件（使用1中的鏈接即可）
4.檢查文件格式和安全
開(kāi)發(fā)工具-宏安全性，選擇低，才能運(yùn)行宏
看一下文件后綴名是否為pptm，如果不是，則另存為pptm即可文章來(lái)源：http://www.zghlxwxcb.cn/news/detail-726593.html
5.開(kāi)發(fā)工具–圖像
右擊選擇屬性，如圖
Picture是選擇需要展示的圖片。
（名稱(chēng)）是圖像控件的名稱(chēng),需要和代碼保持一致。
右側(cè)大小可以調(diào)整控件的長(zhǎng)寬，當(dāng)然也可以直接拖拽調(diào)整。
AutoSize是圖片自適應(yīng)，默認(rèn)是Flase
文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-726593.html
6.選中圖像控件，右擊選擇查看代碼，將原有代碼刪除，將下邊代碼直接復(fù)制粘貼，如多張圖片需要復(fù)制多份代碼，用圖像控件的名稱(chēng)區(qū)分
Dim X1, Y1 As Single '用來(lái)記錄位置
Dim Down As Boolean '用來(lái)判斷拖放狀態(tài)
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)
'記算移動(dòng)距離
If Down Then
Image1.Left = Image1.Left + (X - X1)
Image1.Top = Image1.Top + (Y - Y1)
End If
End Sub
Private Sub Image1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'改變移動(dòng)狀態(tài)并顯示移動(dòng)后的圖片
Down = False
'返回演示文檔的首頁(yè)，如過(guò)當(dāng)前不是首頁(yè)是第二頁(yè)，則使用代碼替換下邊行'SlideShowWindows(1).View.GotoSlide(2)
SlideShowWindows(1).View.First
End Sub
'下邊是控制窗口刷新的，避免圖片亂飛
Private Sub Form_Load()
Timer1.Interval = 5
Timer1.Enabled = True
Me.cls
End Sub
到了這里，關(guān)于wps演示時(shí)圖片任意位置拖動(dòng)的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
