Cómo mover libremente elementos en la pantalla durante la reproducción ppt requiere agregar código de macro. ¿Alguien puede ayudar?
Arrastrar y soltar imágenes en PPT -----VBA Assault----Cualquier arrastrar y soltar imágenes
[ 2010-10-8 14:39:00 Por | : Zhu Miaoping]
El arrastre de imágenes o gráficos recomendado se utiliza a menudo en cursos y juegos. Para realizar el arrastre arbitrario de imágenes o gráficos en PPT, se requiere programación VBA. Ahora presentaremos cómo usar controles de imagen para realizar el arrastre arbitrario de imágenes:
Pasos de la operación:
1. Inserte un control de imagen en la presentación, abra la ventana de propiedades y configure la imagen a la que desea arrastrar. Imágenes en movimiento
Desafortunadamente, el control Imagen no admite transparencia.
2. Haga doble clic en el control de imagen para abrir la ventana de edición de VBA (tenga en cuenta que hay dos líneas de código después de hacer doble clic, elimínelas primero
), copie lo siguiente código:
Atenuar X1, Y1 como entero
Atenuar como booleano
Subimagen privada1_MouseDown(Botón ByVal como entero, ByVal Shift como
Entero, ByVal X como único, ByVal Y como único)
Si no está abajo, entonces
X1 = X
Y1 = Y
Abajo = Verdadero
Fin si
End Sub
Sub imagen privada1_MouseMove(Botón ByVal como entero, ByVal Shift como
Entero , ByVal X como único, ByVal Y como único)
Si está abajo, entonces
Imagen1.Left = Imagen1.Left + X - X1
Imagen1.Top = Imagen1.Arriba + Y - Y1
X1 = X
Y1 = Y
Fin Si
Fin Sub
SubImagen privada1_MouseUp(Botón ByVal como entero, ByVal Shift como
Entero, ByVal X como único, ByVal Y como único)
Abajo = Falso
SlideShowWindows(1).Ver primero
Fin Sub
Ejecutar, Aceptar.
El código es muy simple. Si desea arrastrar varias imágenes, haga lo mismo, copie los tres eventos del mouse anteriores y modifique Imagen1, X1 e Y1.