Negritando células no Excel
09/09/2004
0
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
Posts
09/09/2004
Lucas Silva
MSExcel.ActiveCell.FormulaR1C1 = "lucas" // um exemplo
With MSExcel.ActiveCell.Characters(Start:=1, Length:=5).Font
MSExcel.Name = "Arial"
MSExcel.FontStyle = "Negrito"
End; 09/09/2004
Lucas Silva
MSExcel.ActiveCell.Characters(Start:=1, Length:=5).Font.FontStyle = "Negrito"
Descosidere o with de cima.
09/09/2004
Sandra
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!!
09/09/2004
Ffsombra
Mesmo assim, testei sua dica, e mesmo assim, não funcionou...
Ainda aguardo outra solução...
11/09/2004
Sandra
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:
Clique aqui para fazer login e interagir na Comunidade :)
