Macro que guarde cada cierto tiempo
Se que ustedes son expertos en macros para Excel, ¿pero necesito una macro que guarde cada cierto tiempo pero que se ejecute solo en power point sera esto posible?
1 Respuesta
Respuesta de Dante Amor
1
Buenos días Dante
ya lo intente de esta forma , pero no me sirve ,necesito es una macro que me haga ese proceso,
Te anexo la macro:
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal _ lpTimerFunc As Long) As Long Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Dim lngTimerID As Long ' Sub Iniciar() 'Referencia: https://social.msdn.microsoft.com/Forums/en-US/9f6891f2-d0c4-47a6-b63f-48405aae4022/powerpoint-run-macro-on-timer?forum=isvvba 'Por.Dante Amor lngTimerID = SetTimer(0, 0, 50000, AddressOf Guardar) End Sub ' Sub Guardar() 'Por.Dante Amor Application.ActivePresentation.Save MsgBox "Guardado" End Sub ' Sub Detener() 'Por.Dante Amor lngTimerID = KillTimer(0, lngTimerID) End Sub
La presentación se guardará cada 5 minutos, si quieres que se guarde cada 10 minutos cambien en la macro en esta línea:
LngTimerID = SetTimer(0, 0, 50000, AddressOf Guardar)
El número 50000 por el número 100000
Sigue las Instrucciones para ejecutar la macro Iniciar
- Abre tu archivo de PowerPoint
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Regresa a tu presentación con Alt + F11.
- Guarda tu archivo como: Presentación de Power Point habilitada para macros.
- Regresa nuevamente a VBA, presiona Alt + F11
- Presiona un click sobre la macro que dice: Iniciar
- Para ejecutarla presiona F5
Listo tu presentación se guardará cada 5 minutos.
Para detener el guardado, entra a VBA, presiona click sobre la macro Detener y presiona F5
