grafico de msgraph.chart es prederminado como cambio por otro grafico en campo general

[Dony Bustamante]

Buenos dias, 

quisiera editar la presentación  de msgraph  ya que cuando agrego mi campo me sale en barras quisiera modificarlo: como por ejemplo otro tipo de barras colocar el resultado encima de cada barra algo asi  como se puede hacer 

   SELECT "wMinuto_Producido"

append blank

cGData = ""+TAB+Eficacia_LOC+CRLF+;

"Vier"+TAB+"66"+CRLF+;

"Sab"+TAB+"77"+CRLF+;

"Dom"+TAB+"88"+CRLF+;

"Lun"+TAB+"90"+CRLF+;

"Mar"+TAB+"77"+CRLF+;

"Mier"+TAB+"80"+CRLF+;

"Jue"+TAB+"85"+CRLF

 *// campo que donde se almacena el grafico es "cuadro"  

*// agrego el campo con la foto , pero el grafico es predeterminado  como lo cambio??

*//---------------------------------------------------------------------------------------------------------------

Append general cuadro class "msgraph.chart" DATA m.cGData

DO FOXYPREVIEWER.APP

REPORT FORM rep210012 PREVIEW

Gracias por el apoyo

Editar  presentación  del   grafico  de  msgraph.chart  en Vfp

[Daniel Sánchez]

Tendrías que indicar algunas propiedades del objeto msgraph algo como esto, para esto en mi formulario tengo un objeto oleboundcontrol, que esta indicado como this.oleboundcontrol1 el cual lo utilizo para poder acceder a las propiedades del control msgraph, ahí le puedo indicar el titulo, su tipo de gráfico, tamaño de letras y muchas cosas más, cuestión que vayas probando con lo que te brinda dicho objeto.

Append General MSGRAPH Class "msgraph.chart" Data CDATOS

This.OLEBOUNDCONTROL1.ControlSource = CALIASCAMPO

This.OLEBOUNDCONTROL1.HASLEGEND = .T.

This.OLEBOUNDCONTROL1.HASTITLE = .T.

This.OLEBOUNDCONTROL1.LEGEND.Font.Size = 7

This.OLEBOUNDCONTROL1.CHARTTITLE.Font.Size = 12

If Type("this.cTitle")="C"

This.OLEBOUNDCONTROL1.CHARTTITLE.Caption = This.CTITLE

This.OLEBOUNDCONTROL1.CHARTTITLE.Font.Size = 12

Endif

NTIPOGRAFICO = 57

NFILAXCOL = 1

Do Case

Case This.NTIPO=1

NTIPOGRAFICO = 54

Case This.NTIPO=2

NTIPOGRAFICO = 65

Case This.NTIPO=3

NTIPOGRAFICO = 5

NFILAXCOL = 2

Endcase

This.OLEBOUNDCONTROL1.LEGEND.POSITION = -4107

This.OLEBOUNDCONTROL1.CHARTTYPE = NTIPOGRAFICO

This.OLEBOUNDCONTROL1.Object.Application.PLOTBY = NFILAXCOL

If This.NTIPO=3

This.OLEBOUNDCONTROL1.PLOTAREA.Border.WEIGHT = 1

This.OLEBOUNDCONTROL1.PLOTAREA.Border.LINESTYLE = -4142

This.OLEBOUNDCONTROL1.PLOTAREA.INTERIOR.COLORINDEX = -4142

This.OLEBOUNDCONTROL1.Object.SERIESCOLLECTION(1).APPLYDATALABELS(.F., .F., .F., .F., .F., .F., .F., .T.)

This.OLEBOUNDCONTROL1.Object.SERIESCOLLECTION(1).DATALABELS.AUTOSCALEFONT = .F.

This.OLEBOUNDCONTROL1.Object.SERIESCOLLECTION(1).DATALABELS.Font.Size = 7

Else

This.OLEBOUNDCONTROL1.AXES(1).TICKLABELS.Font.Size = 7

If This.NORIGEN=16 .Or. This.NCONSULTA=2

This.OLEBOUNDCONTROL1.AXES(1).TICKLABELS.OFFSET = 100

This.OLEBOUNDCONTROL1.AXES(1).TICKLABELS.READINGORDER = -5002

This.OLEBOUNDCONTROL1.AXES(1).TICKLABELS.Orientation = 45

This.OLEBOUNDCONTROL1.Object.Application.PLOTBY = 2

Endif

Endif

Aqui te alcanzo algunos valores y propiedades que puedes usar.

Suerte

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfoxpro+unsubscribe@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfoxpro+unsubscribe@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047 RPM #948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Dony Bustamante]

Muchas Gracias Daniel  voy a probar