Negritando células no Excel

Delphi

09/09/2004

Pessoal...

Pesquisei bastante e ainda não encontrei comandos apropriados para negritas células em uma planilha do Excel que estou gerando a partir de uma query...

Tenho conseguido personalizar o tamanho das células, as bordas, mesclas, etc...

Mas agora estou precisando deixar alguns títulos em negrito, e ainda não encontrei uma solução para isso... Eis alguns trechos do programa:

     
     MSExcel := CreateOleObject(´Excel.Application´);
     MSExcel.Workbooks.Add;
     MSExcel.Workbooks[1].WorkSheets[1].Name := ´RelExcel´;
     Sheet := MSExcel.Workbooks[1].WorkSheets[´RelExcel´];
     ColumnRange := MSExcel.WorkBooks[1].WorkSheets[´RelExcel´].Columns;
     ColumnRange.NumberFormat := ´@´;

     lin := 1;
     qRelCMPRO.first;

     xrange := ´A´+IntToStr(lin)+´:O´+IntToStr(lin);
     MSExcel.Range[xrange].HorizontalAlignment := -4108; // Centralizado
     MSExcel.Range[xrange].Mergecells := True;           // Mesclar


-------   AQUI ESTÃO ALGUNS TESTES QUE USEI   --------
//      MSExcel.Range[xrange].Font.FontStyle := ´Negrito´;
//      Sheet.Cells[lin,1].Font.FontStyle := ´Negrito´;
//      MSExcel.Workbooks[1].Sheets[1].Cells[lin,1].Font.FontStyle := ´Negrito´;

     Sheet.Cells[lin,1].Value := qRelCMPROLOCDES.Value;
     Inc(lin);

     ......



Alguém sugere algo???


Ffsombra

Ffsombra

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

09/09/2004

Não testei, mais dá uma olhada no código.
    MSExcel.ActiveCell.FormulaR1C1 = "lucas" // um exemplo
    With MSExcel.ActiveCell.Characters(Start:=1, Length:=5).Font
        MSExcel.Name = "Arial"
        MSExcel.FontStyle = "Negrito"
      End;



GOSTEI 0
Lucas Silva

Lucas Silva

09/09/2004

MSExcel.ActiveCell.Characters(Start:=1, Length:=5).Font.FontStyle = "Negrito"


Descosidere o with de cima.


GOSTEI 0
Ffsombra

Ffsombra

09/09/2004

Não....... não funcionou.........


GOSTEI 0
Sandra

Sandra

09/09/2004

ffsombra,

Não sei qual a versão do Excel e Delphi você está utilizando, porém, encontrei uma referência sobre Excel XP com Delphi 6 em um livro. :P

Adaptando ao seu código, experimente assim para formatar as células em negrito:

MSExcel.Range[xrange].Font.Bold := 1;



:D Boa sorte!!


GOSTEI 0
Ffsombra

Ffsombra

09/09/2004

Sandra, estou utilizando Delphi 7 e Office 2000...

Mesmo assim, testei sua dica, e mesmo assim, não funcionou...

Ainda aguardo outra solução...


GOSTEI 0
Ffsombra

Ffsombra

09/09/2004

Ninguém????


GOSTEI 0
Sandra

Sandra

09/09/2004

ff,

Pesquisei novamente e (acho que) encontrei o problema. Experimente assim:
Sheet.Range[xrange].Font.Bold := true;

Uma parte do código que você postou na 1ª mensagem estava ´um pouquinho´ diferente. E no meu anterior, a atribuição para alterar o negrito da fonte estava ligado ao ´Excel.Application´, sendo que deveria ser modicado no ´Sheet´ (Sheet := MSExcel.Workbooks[1].WorkSheets[´RelExcel´]). Portanto, teste novamente e veja se o erro persiste. :D

Caso queira ler o material que encontrei: [url=http://www.mansano.com/delphi/excel.htm]Gerando uma Planilha e Imprimindo a partir do Excel[/url] do Ricardo Mansano.

Mãos a obra!! :wink:


GOSTEI 0
Ffsombra

Ffsombra

09/09/2004

poxa vida, obrigado, Sandra, mas o erro ainda persiste....


GOSTEI 0
POSTAR