sexta-feira, 20 de junho de 2008

Excel

excelAPP:Range("A1"):VALUE = "Teste". /* Adiciona a palavra TESTE … celula A1 */

excelAPP:Range("A1"):Font:NAME = "Courier New". /* Aplica a fonte */

excelAPP:Range("A1"):Font:SIZE = 20. /* Aplica o tamanho 20 de fonte */

excelAPP:Range("A1"):Font:bold = TRUE. /* Aplica Negrito */

chExcelApplication:Range("C5"):SELECT.chExcelApplication:ActiveCell:Characters(1,3):FONT:bold = YES. /*Aplica Negrito parcialmente*/

excelAPP:Range("A1"):Font:italic = TRUE. /* Aplica Italico */

excelAPP:Range("A1"):ColorIndex = 15. /* Modifica cor interior da celula */

excelAPP:Range("A1"):PageBreak = 1. /* Insere quebra de pagina */

excelAPP:Range("A1"):NumberFormat = "dd/mm/aaaa". /* Aplica formatacao de data */

excelAPP:Range("A1"):NumberFormat = "#.##0,00". /* Aplica formatacao numerica */

excelAPP:Range("A1"):HorizontalAlignment = 1. /* Alinha o campo: Se for 1 alinha para a direita. Se for 2 alinha para a esquerdaSe for 3 alinha para o centro. */

excelAPP:Range("A1:B1"):MergeCells = 1. /*Mescla as celulas A1 e B1 */

excelAPP:Range("A1"):Borders(01):LineStyle = 1.excelAPP:Range("A1"):Borders(01):Weight = -4138. /*Onde est o "01" ‚ onde o contorno da celula ser aplicado.01 - Esquerdo02 - Direito03 - Emcima04 - Embaixo05 - Diagonal Direita06 - Diagonal Esquerda */

excelAPP:Range("A1"):ColumnWidth = 13.15. /* Redimenciona o tamanho da coluna */

excelAPP:Range("A:Z"):AutoFit. /* Redimenciona automaticamente todas as colunas de A … Z */

Nenhum comentário:

Topicos Relacionados