Macro que que haga guardar como automaticamante
Solicito amablemente una macro para power point que al ejecutar haga un guardar como y que genere un archivo como presentación de diapositivas cada cierto tiempo, reemplazando el mismo archivo, pero el archivo original dejarlo tal cual
En días anteriores presente un tema algo relacionado, copio el código por si les ayuda en algo :
Muchas Gracias...
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
1 Respuesta
¡Gracias!
Muchas Gracias Dante ,,, de mucha ayuda
Hola Dante
Una pregunta, hay forma de decirle que lo guarde en alguna ubicación
Por ejemplo que lo guarde en mis documentos
Así:
ruta = "C:\Documents and Settings\DAMOR\Mis documentos\" Application. ActivePresentation. SaveCopyAs ruta & "respaldo"
Cambia "C:\Documents and Settings\DAMOR\Mis documentos\"
Por la carpeta en donde quieras que se guarde, revisa que al final de la ruta exista la diagonal \
hola dante te quisiera pedir un favor
sera posible que en esta macro se pueda hacer que guarde en ubicaciones distintas en distintos tiempos ,
por ejemplo;
que me guarde un archivo en una ubicación
y después de media hora guardar el otro archivo en otra ubicación
Agradezco tu ayuda
Crea una nueva pregunta, supongo que hay que poner las ubicaciones en la macro. Ejemplo, si tuvieras 10 ubicaciones empezar en la ubicación 1, luego en la 2, así hasta llegar a la 10 y luego empezar en la 1.
