FoxPro/Visual FoxPro - Ayuda con Gráfico en Excel desde VFP

 
Vista:
sin imagen de perfil

Ayuda con Gráfico en Excel desde VFP

Publicado por Luis Fernando López Duque (40 intervenciones) el 12/11/2003 16:19:03
Hola buenos días tengo un gráfico en excel que lo estoy generando desde Visual FoxPro 6.0, el gráfico es generado en barras verticales.

Deseo saber como hago para colocarle encima de cada barra, es decir, donde termina cada barra, un valor (porcentaje), este valor proviene de la tabla mediante la cual genero dicho gráfico.

Expreso mis agradecimientos por la colaboración prestada.

El código que estoy utilizando es el siguiente:

objXL = CreateObject([Excel.Application])
With objXL.Application
.Visible = .t.
.workbooks.Open(lcPlanilla)
** Tipo de Gráfico (Barras, Torta, etc.)
.Charts.Add
.ActiveChart.ChartType = 52
.ActiveChart.SetSourceData(.Sheets(lcHoja).Range(lcRango),2)
.ActiveChart.Location(1,[Grafico])
.ActiveChart.HasDataTable = .F.
** Título del Gráfico
.ActiveChart.HasTitle = .T.
.ActiveChart.ChartTitle.Text = [Eficiencia por Operario]
.ActiveChart.ChartTitle.Select
With .Selection.Font
.Name = [Arial]
.FontStyle = [Negrita]
.Size = 18
EndWith
*--- Leyenda
.ActiveChart.HasLegend = .F.
With .ActiveChart
.Axes(1,1).HasTitle = .t.
.Axes(1,1).AxisTitle.Text = [Operarios]
.Axes(2,1).HasTitle = .t.
.Axes(2,1).AxisTitle.Text = [% Porcentaje]
.Deselect
EndWith
EndWith
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder