Como Ingeniero Civil, elaboré una Bitácora de Obra, con Calendario cuyo día está enlazado con una Celda; genera Imágenes (del estado de la Obra). Aparte tengo un Reloj digital LED.

Quiero colocar este Reloj digital LED, en una celda de la Bitácora

Bitácora.rar

Reloj digital LED.rar

Hola el adjunto del reloj esta vació, si quieres un reloj en una celda pon esto en un modulo:

Sub Reloj()

  Range("A1").Formula = "=NOW()"

  Application.OnTime Now + TimeValue("00:00:01"), "reloj"

End Sub[/CODE]

Y esto en ThisWorkbook

[CODE]Private Sub Workbook_Open()
call Reloj
End Sub
[/CODE]

La hora la mostrara en la celda "A1", debes cambiar el formato de la celda para que solo muestre la hora y no la fecha tambien.

Salu2

• El reloj digital LED, que tengo está elaborado en base a un gráfico de dispersión XY.

(Las Fórmulas de dispersión deben aparecer en una tercera Hoja de la Bitácora)

• Hay una serie de líneas para cada dígito en su estado encendido y apagado.

•El código VBA se actualiza los valores de tiempo.

• Las posiciones de las líneas xy se realizan usando la fórmula dentro de las células

Nota: Me gusta la apariencia de este Rerloj, y quisiera que se insertara en mi Bitácora en celda M10

Reloj LED.xls

Tengo un nuevo Reloj: Reloj digital en USERFORM, que es más accequible para manejarlo. Requiero insertarlo en Mi Bitácora en Celda M10

Reloj didital en Userform.rar

Inserté el Reloj digital en mi Bitácora, pero ahora la insertación de Imágenes que me funcionaba, ahora no me funciona

Bitácora con Reloj digital.rar