Shapes Excel

[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]

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]

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]

¿ Como creas las shapes ?
Si vienen de una imagen, no olvides incluir la ruta completa de la imagen.

[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)



QUIERO CAMBIAR EL COLOR AZUL DE LOS RECTANGULOS

SALUDOS

[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 otros caminos.

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]

tengo excel 2007

saludos

[arturo tamayo]

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

para poner el retangulo en blnaco