幻灯片状态下任意动图形.pptVIP

超链接跳转至第6张幻灯片☞ 1、左上角“菜单”—“powerpoint”—“信任中心”—“信任中心设置”—选择启用所有宏，单击右下角“确定”按钮 2、点击“开发工具”—“图形控件”，然后在幻灯片页面中按住鼠标左键拉出一块区域，双击这块区域后弹出一个代码框，将里面的内容全部清除，然后复制以下代码黏贴上去 开始（幻灯片放映） Dim X1, Y1 As IntegerDim Down As BooleanPrivate Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Not Down ThenX1 = XY1 = YDown = TrueEnd IfEnd SubPrivate Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)If Down ThenImage1.Left = Image1.Left + X - X1Image1.Top = Image1.Top + Y - Y1X1 = XY1 = YEnd IfEnd