用PPT中的图像，制作可拖动图像 [复制链接]

2.jpg(30.64 K)

2024/12/15 7:46:43

点击开发工具中的“图像”控件

3.png(78.41 K)

2024/12/15 7:46:43

分别点击“BackColor”、“BorderColor”，右侧下拉菜单中选择窗口背景

10.png(16.23 K)

2024/12/15 8:06:13

8.png(49.56 K)

2024/12/15 8:06:13

分别点击PictureAlignment与PictureSizeMode，在右侧下拉菜单中分别选择0与3，然后调整图像至合适大小

11.png(29.44 K)

2024/12/15 8:07:39

在开发工具——控件中点击查看代码，进入代码编辑对话框

12.png(47.54 K)

2024/12/15 8:09:51

13.png(53.25 K)

2024/12/15 8:12:45

对代码对话框中删除所有原有代码，再把下面的代码复制进去即可。

Dim X1, Y1 As Integer

Dim Down 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

Private Sub Image1_Click()

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub

点击宏安全性，选择启用所有宏确定

14.png(75.46 K)

2024/12/15 8:16:45

全部完成后，点击另存为，在弹出的对话框中保存类型选择“启用宏的PPT”，再点击保存。

15.png(53.87 K)

2024/12/15 8:18:50