Rv: macro en excel - grafico de gantt

[edgar suarez kummers]

No olvides download los adjuntos de este mensaje.

Respecto a la inquietud que tienes de crear un LABEL y un TEXTBOX en tiempo de ejecución ... yo tengo hecho una especie de AVISO en dos paginillas, izquierda y derecha con el SLIDE a ambos lados para hacer alguna indicación al usuario y en la parte de arriba lleva un título. Pero no se hace en tiempo de ejecución, en la forma que lo uso, simplemente es un FORM especial, cuyo contenido se ha dictado previamente. De este es que tomo las instrucciones para el diagrama de Gantt, por el lado izquierdo y por el lado derecho, el código de visual basic para el Macro en Excel.

saludos 

Edgar

LADO IZQUIERDO DE LA PAGINILLA. EN COLOR AZUL. 

1. Abra la tabla de Excel exportada llamada (gantt).

2. Presione (ALT+F11) para iniciar el Editor de Visual Basic.

3. En el menú Insertar, haga clic en Módulo.

4. Resalte el código y copielo con (CTRL - C) 

 situado al lado derecho de este menu y péguelo usando (CTRL-V) en la hoja de módulo de Visual Basic:

5. Presione (ALT+F11) para volver a Excel.

6. Estando en la tabla de excel llamada Gantt resalte todos los datos.

7. En el menú Herramientas, elija Macro y a continuación, haga clic en Macros.

8. Haga clic en Diagrama de Gantt y a continuación, haga clic en Ejecutar.

9. Escriba el título de gráfico cuando se lo solicita.

El diagrama de Gantt aparece en una hoja nueva de gráfico.

Puede agregar cualquier formato adicional que desee.

No te olvides de resaltar con el MOUSE todos los datos del ejemplo en EXCEL, antes de ejecutar el MACRO para hacer la gráfica de GANTT.

*********************************************************

LADO DERECHO DE LA PAGINILLA. EN COLOR VERDE.

lado derecho del menú, código de visual basic entre laslíneas **************

Este código te figura en el ejemplo que te envio en EXCEL en MACROS.

Todo lo que tienes que hacer para hacer una gráfica es resaltar (seleccionar)

todos los datos en la página principal (la primera) de excel.

*********************************************************

Option Explicit

Sub Gantt_Chart()

Dim rge As String

Dim ValueAxisMinValue As Date

Dim shtname As String

Dim Title As String, aChart As Chart

rge = Selection.Address()

ValueAxisMinValue = Selection.Cells(2, 2).Value

Title = InputBox("Dicte Un Título")

shtname = ActiveSheet.Name

Application.ScreenUpdating = False

Set aChart = Charts.Add

With aChart

.ChartWizard Source:=Sheets(shtname).Range(rge), _

Gallery:=xlBar, Format:=3, PlotBy:=xlColumns, _

CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _

Title:=Title, CategoryTitle:="", ValueTitle:="", _

ExtraTitle:=""

.Legend.Delete

With .SeriesCollection(1)

With .Border

.Weight = xlThin

.LineStyle = xlNone

End With

.InvertIfNegative = False

.Interior.ColorIndex = xlNone

End With

With .Axes(xlCategory)

.ReversePlotOrder = True

.TickLabelSpacing = 1

.TickMarkSpacing = 1

.AxisBetweenCategories = True

End With

With .Axes(xlValue)

.MinimumScale = ValueAxisMinValue

.MaximumScaleIsAuto = True

.MinorUnitIsAuto = True

.MajorUnitIsAuto = True

.Crosses = xlAutomatic

.ReversePlotOrder = False

.ScaleType = False

.HasMajorGridlines = True

.HasMinorGridlines = False

End With

End With

Application.ScreenUpdating = True

End Sub

*********************************************************

----- Mensaje reenviado ----
De: edgar suarez kummers <edgark...@yahoo.es>
Para: publice...@googlegroups.com
Enviado: vie,4 febrero, 2011 22:42
Asunto: macro en excel - grafico de gantt

Te incluyo la hoja de excel funcionando bien.

Internamente va el gráfico de Gantt y el código en Macros.

Saludos

Edgar

[Putignani Franco]

Buenas, muchisimas gracias por el mail ;)
Esta atrde en cuanto tenga tiempo, lo miro y te cuento.
Supongo que quizas haya alguna pregunta más =)
Saludos y gracias