Array
(
)

Negritando células no Excel

Ffsombra
   - 09 set 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:

#Código



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???


Lucas Silva
   - 09 set 2004

Não testei, mais dá uma olhada no código.
#Código

MSExcel.ActiveCell.FormulaR1C1 = "lucas" // um exemplo
With MSExcel.ActiveCell.Characters(Start:=1, Length:=5).Font
MSExcel.Name = "Arial"
MSExcel.FontStyle = "Negrito"
End;



Lucas Silva
   - 09 set 2004

#Código

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


Descosidere o with de cima.


Ffsombra
   - 09 set 2004

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


Sandra
   - 09 set 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:

#Código

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



:D Boa sorte!!


Ffsombra
   - 09 set 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...


Ffsombra
   - 10 set 2004

Ninguém????


Sandra
   - 11 set 2004

ff,

Pesquisei novamente e (acho que) encontrei o problema. Experimente assim:
#Código

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:


Ffsombra
   - 13 set 2004

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