Responder
Ayuda con controlador de eventos VB6 para que actualice un textbox de una diapositiva en power poin
tengo una presentacion en power point 2010 y en una diapositiva hay dos textbox uno cn la fecha de la ultima incidencia y otro cn los dias que ace desde esa incidencia... la funcion apra carcular los dias la tengo echa ... ahora necesito un controlador de enventos handler event para actualizar automaticamente los dias que pasan desde la incidencia sin cerrar tener que cerrar la aplicacion y volverla a cargar... la funcion es la siguiente ( VB 6 )
Sub updatedaycount()
Dim d As Date
ActiveWindow.Selection.SlideRange.Shapes("Text Box 4").Select
'MsgBox ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text
d = DateValue(ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text)
ActiveWindow.Selection.SlideRange.Shapes("Text Box 5").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = DateDiff("d", d, Now)
End Sub
Espero que me ayudeis por que tengo un cacao
Sub updatedaycount()
Dim d As Date
ActiveWindow.Selection.SlideRange.Shapes("Text Box 4").Select
'MsgBox ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text
d = DateValue(ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text)
ActiveWindow.Selection.SlideRange.Shapes("Text Box 5").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Text = DateDiff("d", d, Now)
End Sub
Espero que me ayudeis por que tengo un cacao