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