現在的位置: 首頁 > 編程語言 > 正文

ppt怎么做拖動互動

2020年01月30日 編程語言 ⁄ 共 2073字 ⁄ 字號 評論關閉

PPT中實現圖片的拖動功能的方法:

一、普通視圖模式

在普通視圖模式(不是全屏模式)下,即在編輯狀態下,自然能實現圖片的拖動功能。

優點:簡單易行。

缺點:1.窗口較小,可視性不好;2.自定義動畫效果無法實現。

二、宏

建議將宏的安全級別設置為低。

1、新建一個ppt空白文檔。

2、點擊菜單:“工具——宏——宏”,出現對話框。

3、對話框中“宏名”隨意寫個,比如:move,再點“創建”,就進入代碼模式。

4、刪去所有的代碼,把下面的代碼全拷貝進去。

Option Explicit
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function MonitorFromPoint Lib "user32.dll" (ByVal x As Long, ByVal y As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_SCREENX = 0
Private Const SM_SCREENY = 1
Private Const sigProc = "Drag & Drop"
Public Const VK_SHIFT = &H10
Public Const VK_CTRL = &H11
Public Const VK_ALT = &H12
Private Type PointAPI
    x As Long
    y As Long
End Type
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Public mPoint As PointAPI, dPoint As PointAPI
Public ActiveShape As Shape
Dim dragMode As Boolean
Dim dx As Double, dy As Double
Sub DragandDrop(sh As Shape)
dragMode = Not dragMode
If dragMode Then Drag sh
End Sub
Private Sub Drag(sh As Shape)
Dim i As Integer, sx As Integer, sy As Integer
Dim mWnd As Long, WR As RECT
dx = GetSystemMetrics(SM_SCREENX): dPoint.x = dx
dy = GetSystemMetrics(SM_SCREENY): dPoint.y = dy
GetCursorPos mPoint
With ActivePresentation.SlideShowWindow
    mWnd = WindowFromPoint(mPoint.x, mPoint.y)
    GetWindowRect mWnd, WR
    sx = WR.Left
    sy = WR.Top
    dx = (WR.Right - WR.Left) / ActivePresentation.PageSetup.SlideWidth
    dy = (WR.Bottom - WR.Top) / ActivePresentation.PageSetup.SlideHeight
End With
If dx > dy Then
    sx = sx + (dx - dy) * ActivePresentation.PageSetup.SlideWidth / 2
    dx = dy
End If
If dy > dx Then
    sy = sy + (dy - dx) * ActivePresentation.PageSetup.SlideHeight / 2
    dy = dx
End If
While dragMode
    GetCursorPos mPoint
    sh.Left = (mPoint.x - sx) / dx - sh.Width / 2
    sh.Top = (mPoint.y - sy) / dy - sh.Height / 2
    DoEvents
    i = i + 1: If i > 2000 Then dragMode = False: Exit Sub
Wend
End Sub

5、點擊保存后,關閉代碼模式,回到ppt設計頁面。在你需要拖動的圖片上點右鍵,選擇“動作設置——單擊鼠標——運行宏——確定”。

6、放映幻燈片,看看效果吧。

優點:可視性強。

缺點:對于PPT新手來說不易操作。

抱歉!評論已關閉.

奔驰宝马破解版下载 分析股票市场走势 pk10冠亚军玩法 龙王捕鱼官网 涨停的股票买不进 幸运赛车 捕鱼现金72注册送分 闲来贵州麻将群微信号 富贵乐园官方首页 游戏赚钱网站 大圣棋牌安卓版下载 熊猫麻将为什么一直 22选5基本走势图表300期 派思股份股票 南京麻将官方网 分分彩官方软件下载 最全篮球比分直播118