VBA en PowerPoint sólo funciona con una parada y pasando por F8. Al ejecutarse solo, cambia el color de relleno para la forma 1 pero no para la forma 2.
Este código se utiliza para hacer una secuencia de temporización y depende de que cada segmento comience en el intervalo correcto que se establece mediante una variable basada en la entrada del usuario. Con las paradas puestas y pasando por el código, funciona correctamente sin errores. Cuando se ejecuta sin una parada, el botón de comando “RunCommand” permanece deprimido durante 5 segundos y el color de primer plano de la forma 1 cambia, pero la forma 2 no cambia. He simplificado el código para facilitarlo ya que parece que esta es la parte que me da el problema. Estoy atrapado, si solo ejecuto el código, no funciona, si corro paso a paso el código ¡funciona bien ?????
Subprivado RunCommand_Click()
Dim EndTick como fecha
EndTick = DateAdd (“s”, 5, Ahora())
Set myDocument = ActivePresentation.Slides (1)
Con myDocument.Shapes ("Arrow3rd2"). Relleno
.ForeColor.RGB = RGB (255, 0, 0)
Terminar con
Hacer
Si Ahora()> EndTick Then
Con myDocument.Shapes ("Arrow3rd1"). Relleno
.ForeColor.RGB = RGB (255, 0, 0)
Terminar con
De lo contrario
DoEvents
Fin del if
Loop hasta Ahora ()> = EndTick
End Sub
davy.ai
El código anterior es un código VBA utilizado para crear una secuencia de tiempo. El tiempo de segmento se basa en una variable que se establece mediante la entrada del usuario. El problema que enfrenta el usuario es que cuando ejecuta el código sin poner una parada, el botón RunCommand permanece deprimido durante 5 segundos y solo cambia el color del primer objeto, el segundo objeto no cambia. El código se ha simplificado para identificar la causa raíz del problema. Cuando el usuario ejecuta el código utilizando la función de Paso, todo funciona bien. El usuario está buscando una solución o corrección al problema.