Shapes Excel

Post Reply
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Shapes Excel

Post by jbrita »

Hola Amigos, quien a trabajador con Shapes:

tengo esto pero me da un restangulo con fondo azul, quiero cambiar el fondo
oSheet:Shapes:AddShape(5, 20, 80, 300, 150):Select()


lo estoy asiendo asi pero me sale error
oSheet:Shapes(1):Fill:ForeColor := RGB(192,192,192)

cualquier ayuda

Gracias
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

Re: Shapes Excel

Post by hmpaquito »

oSheet:Shapes(1):Fill:ForeColor := RGB(192,192,192)
Por probar, muchas veces me ha funcionado instanciando el objeto, primero, en una variable.
oShape:= oSheet:Shapes(1)
oShape:Fill:ForeColor := RGB(192,192,192)

PD.Ignoro si las propiedades ::Fill y ::ForeColor son correctas o si son metodos
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Re: Shapes Excel

Post by jbrita »

me sale error
Subsystem Call ....: 2077596
System Code .......: 3
Default Status ....: .F.
Description .......: DISP_E_MEMBERNOTFOUND
Operation .........: SHAPES
Arguments .........: [ 1] = Type: N Val: 1
Involved File .....:
Dos Error Code ....: 0

saludos
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

Re: Shapes Excel

Post by hmpaquito »

¿ Como creas las shapes ?
Si vienen de una imagen, no olvides incluir la ruta completa de la imagen.
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Re: Shapes Excel

Post by jbrita »

este es el codigo:

STAT FUNC ExportarTodos()
*-----------------------------
LOCAL oGraph1, oBar,oDlg,oFnt1,oFnt2
LOCAL oGraph2,oShape
LOCAL aVenta:={}
LOCAL nTotReg:=0
LOCAL ntotal:=0
Local ntotVenta:=0
Local nMes,ndia
LOCAL aGets := Array( 30 )
Local I
Local nValor:=0
Local fila:=0
Local nTotalAgencia,nTotalCamino
LOCAL cLogo:="c:\systema\bus\ima\logo.bmp"
LOCAL rLogo:="c:\systema\bus\ima\logorojas.bmp"

local oExcel := CreateObject( "excel.application" )
local oBook := oExcel:Workbooks:Add()
local oSheet := oBook:Worksheets( 1 )




oSheet:= oBook:Worksheets( 1 )
oSheet:name:="EMPRESA-1"
oExcel:Sheets( "EMPRESA-1"):Select()
oSheet:=oExcel:Get( "ActiveSheet" )
oSheet:PageSetup:Set("PaperSize", 9)
oSheet:PageSetup:Set("Zoom",.F.)
oSheet:PageSetup:Set("FitToPagesWide",0 )
oSheet:PageSetup:Set("FitToPagesTall",0 )

oSheet:Shapes:AddPicture( rLogo, .F., .T., 0, 0, 130, 50 ) //Esto esta Bien
oSheet:Shapes:AddPicture( cLogo, .F., .T., 560, 0, 130, 50 ) //Esto esta Bien


oSheet:Shapes:AddShape(5, 20, 80, 300, 150):Select() //Rectangulo AZul
oSheet:Shapes:AddShape(5, 450, 80, 300, 150):Select() //Rectangulo Azul

* oShape:= oSheet:Shapes(1)
* oShape:Interior:ColorIndex:= RGB(192,192,192)


* oSheet:Shapes:ShapeStyle( "10001" )

* oSheet:Shapes:ForeColor:SchemeColor := 48

oSheet:Shapes:AddTextEffect( 3, "EMPRESA MANDANTE"+CRLF+"NOMBRE SERVICIOS NAVALES E INDUSTRIALES LTDA", "Arial", 10, .T. , .T., 20, 90 ):Select()
* oSheet:Shapes:Range:Line:Visible := .F.

FErase( "c:\buscejer\estadopago.xls" )
oBook:SaveAs( "c:\buscejer\estadopago.xls" )

oExcel:Visible = .T.

MsgInfo( "Sr.Usuario, se acaba de crear el Archivo Excel, haga click en la barra de tareas" )

oExcel:Quit()

RETURN (NIL)

Image

QUIERO CAMBIAR EL COLOR AZUL DE LOS RECTANGULOS

SALUDOS
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

Re: Shapes Excel

Post by hmpaquito »

He probado en Excel 2007 y no me deja modificar la propiedad de color del borde de la imagen.
Pero he visto que tu si la tienes en azul. Quizas lo hayas hecho con Excel 2010.

En todo caso, me ha pasado muchisimas veces de que Excel, con script, no hacia lo esperado. Muchas veces lo he solucionado tomando _.

No sé intenta poner la imagen dentro de un cuadro de texto y dale borde a la caja de texto.

Quizá otro compañero pueda ayudarte.
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Re: Shapes Excel

Post by jbrita »

tengo excel 2007

saludos
arturo tamayo
Posts: 26
Joined: Fri Jan 02, 2009 3:12 pm

Re: Shapes Excel

Post by arturo tamayo »

oSheet:Shapes:AddShape(5, 20, 80, 300, 150):FILL:ForeColor:RGB = RGB(255, 255,255)

para poner el retangulo en blnaco
Post Reply