gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 Veja se a sua resposta não está aqui: http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=10179&start=0&hilit=oSheet%3ACells Ou http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=14821&start=0&hilit=%3AInterior abs ola nesses ae em cima, nao fala nada em fazer com RGB... se alguem mais souber e puder ajudar, eu fico agradecido: MUITO OBRIGADO !!! Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 encontrei isso no manual da microsoft, mas, nao estou conseguindo aplicar na app: Set myDocument = Worksheets(1)With myDocument.Shapes.AddShape(msoShapeRectangle, _ 90, 90, 90, 50).Fill .ForeColor.RGB = RGB(128, 0, 0) .BackColor.RGB = RGB(170, 170, 170) .TwoColorGradient msoGradientHorizontal, 1End With alguem pode ajudar ?? obrigado Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 25, 2014 Report Share Posted February 25, 2014 Tente assim: #Define CLR_LCOR nRGB( 000, 162, 232) oSheet:Cells(2,2):Interior:ColorIndex := CLR_LCOR Quote Link to comment Share on other sites More sharing options...
emotta Posted February 25, 2014 Report Share Posted February 25, 2014 isso ja adianto que nao funciona, na hora da compilação ele muda para: oSheet:Cells(2,2):Interior:ColorIndex := nRGB( 000, 162, 232) mas pode tentar assim: oSheet:Cells(2,2):Interior:ForeColor:RGB := nRGB(000,162,232) OU oSheet:Cells(2,2):ForeColor:RGB := nRGB(000,162,232) Tente assim: #Define CLR_LCOR nRGB( 000, 162, 232) oSheet:Cells(2,2):Interior:ColorIndex := CLR_LCOR Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 Tente assim: #Define CLR_LCOR nRGB( 000, 162, 232) oSheet:Cells(2,2):Interior:ColorIndex := CLR_LCOR error... acho q tem ser mais ou menos como diz o help do microsoft: http://msdn.microsoft.com/pt-br/library/office/ff194068.aspx Set myDocument = Worksheets(1) With myDocument.Shapes.AddShape(msoShapeRectangle, _ 90, 90, 90, 50).Fill .ForeColor.RGB = RGB(128, 0, 0) .BackColor.RGB = RGB(170, 170, 170) .TwoColorGradient msoGradientHorizontal, 1 End With Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 25, 2014 Report Share Posted February 25, 2014 Mata aqui Eduardo, pois é o que eu entendi na classe: http://fivewin.com.br/index.php?/topic/21090-excel-dbf-resolvido/ /* * TExcelScript():RangeFondo() */ METHOD RangeFondo( cRange , nColor ) CLASS TExcelScript DEFAULT nColor := Rgb(255 , 255 , 255 ) ::oSheet:Range( cRange ):Interior:Color := nColor RETURN Self Que dificuldade. abs, Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 25, 2014 Report Share Posted February 25, 2014 Se não matar com esta, eu desisto: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=18326 http://forums.fivetechsupport.com/viewtopic.php?p=11110 abs, Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 Mata aqui Eduardo, pois é o que eu entendi na classe: http://fivewin.com.br/index.php?/topic/21090-excel-dbf-resolvido/ /* * TExcelScript():RangeFondo() */ METHOD RangeFondo( cRange , nColor ) CLASS TExcelScript DEFAULT nColor := Rgb(255 , 255 , 255 ) ::oSheet:Range( cRange ):Interior:Color := nColor RETURN Self Que dificuldade. abs, ola eu nao estou usando a classe... desdo inicio, nunca falei q uso a classe... dae, como sugere, nao tem como eu usar.... uso assim: oExcel := CreateObject( "Excel.Application" ) oBook := oExcel:WorkBooks:Add() oSheet := oBook:WorkSheets( 1 ) bla..bla..bla... Quote Link to comment Share on other sites More sharing options...
emotta Posted February 25, 2014 Report Share Posted February 25, 2014 Teoricamente isso resolve mesmo... só tem que ver como preenche esse cRange ::oSheet:Range( cRange ):Interior:Color := nColor // nColor = nRgb(xxx,xxx,xxx) Mata aqui Eduardo, pois é o que eu entendi na classe: http://fivewin.com.br/index.php?/topic/21090-excel-dbf-resolvido/ /* * TExcelScript():RangeFondo() */ METHOD RangeFondo( cRange , nColor ) CLASS TExcelScript DEFAULT nColor := Rgb(255 , 255 , 255 ) ::oSheet:Range( cRange ):Interior:Color := nColor RETURN Self Que dificuldade. abs, Quote Link to comment Share on other sites More sharing options...
emotta Posted February 25, 2014 Report Share Posted February 25, 2014 essa aqui resolve, matou Kapiaba oSheet:Cells( nHeaderRow, n ):Interior:Color := RGB(0,0,128) oSheet:Cells( nHeaderRow, n ):Font:Color := RGB( 255, 255, 255 ) talvez possa precisar dessa tb: oSheet:Cells( nHeaderRow, n ):Interior:Pattern := 1 Se não matar com esta, eu desisto: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=18326 http://forums.fivetechsupport.com/viewtopic.php?p=11110 abs, Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 essa aqui resolve, matou Kapiaba oSheet:Cells( nHeaderRow, n ):Interior:Color := RGB(0,0,128) oSheet:Cells( nHeaderRow, n ):Font:Color := RGB( 255, 255, 255 ) talvez possa precisar dessa tb: oSheet:Cells( nHeaderRow, n ):Interior:Pattern := 1 vdd.. agora, com essa, deu obrigado a todos !! Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 25, 2014 Report Share Posted February 25, 2014 Valeu Eduardo, valeu Giba, aprendi para k.... Obrigado aos dois pela aula. Quote Link to comment Share on other sites More sharing options...
emotta Posted February 25, 2014 Report Share Posted February 25, 2014 Kapiaba, a solução foi a sua parcero... tb aprendi.... abraços Valeu Eduardo, valeu Giba, aprendi para k.... Obrigado aos dois pela aula. Quote Link to comment Share on other sites More sharing options...
emotta Posted February 25, 2014 Report Share Posted February 25, 2014 Giba, só responde ai, precisou tb da linha: oSheet:Cells( nHeaderRow, n ):Interior:Pattern := 1 vdd.. agora, com essa, deu obrigado a todos !! Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 25, 2014 Author Report Share Posted February 25, 2014 Giba, só responde ai, precisou tb da linha: oSheet:Cells( nHeaderRow, n ):Interior:Pattern := 1 ola... por enquanto, ainda nao tive necessidade.... obrigado Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.