Seleccionar código fuente de función

Tengo el código VBA para disparar balas de cañón en EXCEL, que escribí yo mismo. Puedo ver la trayectoria, la explosión y la imagen de la bala de cañón (primero preparo los archivos yo mismo), los restauro y luego los envío. Es adecuado para que jueguen los niños.

Función de tiempo de trayectoria del sujeto ()

Con el ciclo de valor de tiempo, hay menos declaraciones.

Para t = 0,1 a 30

Seleccione. ShapeRange.IncrementLeft 20

h = 20 - 9,8 * t * t / 200

Seleccionar. Rango de forma

Aplicar. espere ahora()+valor de tiempo(" 00:00:1 ")'El sistema se detiene durante 1 segundo;

Próxima prueba

....Inserte sonido e imagen aquí Efecto .

Conector final

Puedes insertar efectos de imagen y sonido y restauración de estado a continuación para facilitar la siguiente operación.

Hoja Activa. Forma ("Imagen 19"). Selección

selección rango de forma .incrementar top-280 # 'Expandir, miniatura.

Aplicar. espere ahora()+valor de tiempo(" 00:00:1 ")'El sistema se detiene durante 1 segundo;

ActiveSheet. Forma ("Objeto9"). Escoger

Seleccionar. Hubo disparos.

Aplicar. waitnow ()+timevalue ("00: 00: 2")'El sistema se detiene durante 2 segundos;

ActiveSheet. Forma ("Imagen 15"). Escoger

Seleccionar. Rango de formas. Incremento Top-280 #'' explota y se expande en secuencia.

Aplicar. waitnow ()+timevalue ("00: 00: 3")'El sistema se detiene durante 1 segundo;

ActiveSheet. Forma ("Imagen 15"). Escoger

Seleccionar. Rango de formas. ' Incrementtop280 # 'Deshacer el seguimiento de descomposición y restablecer la imagen.

Hoja Activa. Forma ("Imagen 19"). Escoger

Seleccionar. ShapeRange.IncrementTop 280#

Hoja de trabajo activa. Forma ("Imagen 6"). Seleccione "Restablecer bala de cañón".

Seleccionar. rango de forma . incremento izquierda-608.25

Seleccionar. rango de forma incremento superior 177 #

Conector final