Red de conocimiento informático - Material del sitio web - Cómo mover libremente elementos en la pantalla durante la reproducción ppt requiere agregar código de macro. ¿Alguien puede ayudar?

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.