Comment créer une interaction par glisser-déposer en ppt

Comment implémenter la fonction glisser des images dans PPT :

1. Mode d'affichage normal

En mode d'affichage normal. (pas en mode plein écran), c'est-à-dire que dans l'état d'édition, la fonction de glissement de l'image peut naturellement être réalisée.

Avantages : Simple et facile.

Inconvénients : 1. La fenêtre est petite et la visibilité n'est pas bonne 2. Les effets d'animation personnalisés ne peuvent pas être obtenus ;

2. Macros

Il est recommandé de définir le niveau de sécurité des macros sur faible.

1. Créez un nouveau document ppt vierge.

2. Cliquez sur le menu : "Outils - Macro - Macro" et une boîte de dialogue apparaîtra.

3. Écrivez un nom aléatoire pour le « nom de la macro » dans la boîte de dialogue, tel que : déplacer, puis cliquez sur « Créer » pour accéder au mode code.

4. Supprimez tout le code et copiez l'intégralité du code ci-dessous.

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. Après avoir cliqué sur Enregistrer, fermez le mode code et revenez à la page de conception ppt. Faites un clic droit sur l'image que vous souhaitez faire glisser et sélectionnez "Paramètres d'action - Cliquez sur la souris - Exécuter la macro - OK".

6. Affichez le diaporama et voyez l'effet.

Avantages : Forte visibilité.

Inconvénients : Il n'est pas facile à utiliser pour les novices PPT.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!