PPT에서 드래그 상호 작용을 만드는 방법

PPT에서 사진 드래그 기능을 구현하는 방법:

1. 일반 보기 모드

일반 보기 모드(전체 화면 모드 아님), 즉 편집 상태에서 사진을 드래그하면 자연스럽게 실현되는 기능.

장점: 간단하고 쉽습니다.

단점: 1. 창이 작고 시인성이 좋지 않습니다. 2. 맞춤형 애니메이션 효과를 구현할 수 없습니다.

2. 매크로

매크로의 보안 수준을 낮음으로 설정하는 것이 좋습니다.

1. 새로운 빈 PPT 문서를 만듭니다.

2. 메뉴 "도구 - 매크로 - 매크로"를 클릭하면 대화 상자가 나타납니다.

3. 대화 상자에 "매크로 이름"에 대한 임의의 이름을 입력합니다(예: 이동). 그런 다음 "만들기"를 클릭하여 코드 모드로 들어갑니다.

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 초보자에게는 조작이 쉽지 않습니다.

위 내용은 PPT에서 드래그 상호 작용을 만드는 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!