Dzwebs.Net

撰写电脑技术杂文十余年

vba实现PPT幻灯片图片拖动的效果

Admin | 2013-4-29 6:53:30 | 被阅次数 | 13394

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  下面代码的功能,实现的是在PPT幻灯片播放的过程中,可以拖动图片,改变图片的位置,实现拖曳的效果。说得更简单一点,指的就是在播放幻灯片的时候,可通过鼠标拖动的办法,改变图片对象在幻灯片中的位置。

  一、所需要的条件

  在幻灯片插入图像控件,并且将picture属性设置成为图片的地址。

  本例实现的是单张图片的拖曳,如果要实现多张的,可使用如下相同的代码,需要修改的地方仅为三处。分别为:Image1、X1、Y1。Image1为图片控件的名称、X1为控件的X坐标位置、Y1为控件的Y坐标位置。

  二、代码如下

  双击图像控件,在VBA编辑窗口输入如下的代码即可:

  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


该杂文来自: PowerPoint杂文

上一篇:修改演示文稿中的剪贴画的颜色的办法

下一篇:PPT幻灯片播放电影视频就关闭退出

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计