So erstellen Sie eine Drag-Interaktion in ppt

So implementieren Sie die Ziehfunktion von Bildern in PPT:

1. Normaler Ansichtsmodus

Im normalen Ansichtsmodus (nicht im Vollbildmodus), d. h. im Bearbeitungszustand kann die Ziehfunktion des Bildes natürlich realisiert werden.

Vorteile: Einfach und unkompliziert.

Nachteile: 1. Das Fenster ist klein und die Sicht ist nicht gut. 2. Benutzerdefinierte Animationseffekte können nicht realisiert werden.

2. Makros

Es wird empfohlen, die Sicherheitsstufe von Makros auf niedrig einzustellen.

1. Erstellen Sie ein neues leeres PPT-Dokument.

2. Klicken Sie auf das Menü: „Extras – Makro – Makro“ und ein Dialogfeld wird angezeigt.

3. Geben Sie einen zufälligen Namen für den „Makronamen“ in das Dialogfeld ein, z. B. „Verschieben“, und klicken Sie dann auf „Erstellen“, um in den Codemodus zu gelangen.

4. Löschen Sie den gesamten Code und kopieren Sie den folgenden Code hinein.

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. Nachdem Sie auf „Speichern“ geklickt haben, schließen Sie den Codemodus und kehren zur PPT-Designseite zurück. Klicken Sie mit der rechten Maustaste auf das Bild, das Sie ziehen möchten, und wählen Sie „Aktionseinstellungen – Mausklick – Makro ausführen – OK“.

6. Zeigen Sie die Diashow und sehen Sie den Effekt.

Vorteile: Starke Sichtbarkeit.

Nachteile: Für PPT-Neulinge ist die Bedienung nicht einfach.

Das obige ist der detaillierte Inhalt vonSo erstellen Sie eine Drag-Interaktion in ppt. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!