No es un Cronograma Pert Gantt, es un Avance con Barras y Porcentaje en una sola columna, complementado con un Dial, una Gráfica con movimiento y 4 Gráficas más.

Escojan las gráficas que les satisfaga y elimina las que no creas apropiadas.

Explicaciones en el archivo

Avance de Obra con Barras, Dial y 4 Gráficas.rar

Código para Gráfica animada:

Código Mólulo1

Sub Animación()

On Error Resume Next 'En caso de Error, que continue'

Range("E29") = 0

Range("F29") = 0

Range("G29") = 0

Range("H29") = 0

For I = 1 To 10 Step 1

Range("E29") = Range("E29") + Range("E28") / 10

Next

For I = 1 To 10 Step 1

Range("F29") = Range("F29") + Range("F28") / 10

Next

For I = 1 To 10 Step 1

Range("G29") = Range("G29") + Range("G28") / 10

Next

For I = 1 To 10 Step 1

Range("H29") = Range("H29") + Range("H28") / 10

Next

End Sub

Código Hoja donde está el Botón de comando:

Private Sub CommandButton1_Click()

Animación

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Sheets("Avance").Activate

End Sub

Esplendido.

Después de seleccionar el grafico, como puedo quitar los cuadrosm de texto

Un saludo

Primero debes chequear en cada gráfica las Series clic con Botón derecho: Seleccionar datos y ver que rango están tomando cada una. Por Ejemplo para el Dial o Reloj : Seleccionar datos: Series1 /Editar/En valores de la Serie:Ir a Hoja Datos Dial B3: B6. Luego Series2/Editar/Datos Dial E3: E5

En Hoja Datos Dial celda E3: Está amarrado a la celda E28 de Hoja Avance.

Es decir podemos cambiar los textos y valores, lo que debemos es ubicar donde queda nuestro nuevo Porcentaje

Puedes cambiar los valores en Cantidad Ejecutada que deben ser < que Cant. Programada y verás como cambia el % de las Barras y a los valores de Cero "0" les das un valor y cambiarán todas las Gráficas

Disculpa me he expresado mal

lo que quería es poder quitar los cuadros de texto

Un saludo

Puedes quitarlos no hay problema y colocas tus propios textos

Buenas tardes EMIRO

sobre mi pregunta anterior si que puedo quietar los texto pero el cuadro no

Un saludo

1) Gráficas están enlazadas al % E28 en columna E

2) Si tus datos tienen menos filas, este % cambiará de lugar

3) Este esquema funciona para cualquier profesión: Salud, Ingenierías, etc.

4) Cant. Ejecutada la puedes cambiar por Tareas cumplidas y Cantidad Programada la puedes cambiar por Meta de Tareas . En Educación →

Cant. Ejecutada cambiarla por Alumnos aprobados y Cant. Programada cambiarla por Total de Alumnos

5) TODO SE PUEDE CAMBIAR!

6) Dime que es lo que te gustaría hacer y te lo remito RESUELTO por este mismo medio

Remito solución a tu petición

Avance Obra con Barras, Dial y 4 Gráficas 2.rar

Gracias y un saludo