❶ ppt如何拖動圖片
在PowerPoint課件交互設計時,拖放操作原來大多都採用FLASH,其實在PPT中,結合控制項工具中的圖片控制項和VBA功能,也能很好的實現,下面介紹一種在PPT中實現任意拖放圖片效果的方法。
2007以前的PowerPoint版本中,可以在「控制項工具箱」中找到相應的圖片控制項,在2013版本中,可以找到「開發工具」中控制項區域的「圖片控制項」,
在工作區,拖動繪出要實現任意拖動的圖像的顯示區域,右鍵「屬性表」,
在「Picture」屬性中,選擇要顯示的圖片,
雙擊該圖片控制項,進入VBA編輯界面,刪除原有內部的代碼,將以下代碼復制進去,
Dim X1, Y1 As Integer '用來記錄位置
Dim Down As Boolean '用來判斷拖放狀態
Dim X2, Y2 As Integer
Dim Down2 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
關閉VBA編輯窗口,即可播放PPT,測試拖動效果。
94閱讀
搜索
任意拖動圖片ppt
ppt中圖片的任意拖拽
如何拖動ppt中圖片位置
圖片隨意拖拽ppt教程
ppt拖動文本框復制
拖動照片的特效
❷ ppt中怎麼實現手動拖動
不知道您問的是什麼意思呢?能詳細描述一下嗎?
如果是拖動文字,先單擊選中,然後在文字框上停留,此時會出現一個十字形的移動符號,在按住滑鼠左鍵拖動即可。。
若是圖片,單擊左鍵並按住拖動即可。
所有元素類似,如果只是微移,可以按鍵盤的上下左右鍵微調。
另外,拖動時,同時按住鍵盤的shift鍵,可以做到水平或者垂直的拖動。
若是您想要的答案,請採納。若不是,歡迎追問。謝謝!
❸ 在PPT中如何讓圖片或文字能夠隨滑鼠的拖動而任意的移動
1、首先打開ppt軟體,進入操作窗口。