Inserindo figuras no excel

/* Inserindo figuras no excel */

excelAPP:Range(“A1”):SELECT.excelAPP:ActiveSheet:Pictures:Insert(“C:\temp\imagem.bmp”).excelAPP:ActiveSheet:Pictures(“Picture 1”):Select. /* Seleciona a figura */

excelAPP:Selection:ShapeRange:LEFT = 80.5. /* Posiciona na horizontal em 80.5 */

excelAPP:Selection:ShapeRange:TOP = 200.5. /* Posiciona na vertical em 200.5 */

excelAPP:Selection:ShapeRange:Width = 115.75. /* Define 115.75 (pixel) de altura, 1 pixel = 0,04 cm */

excelAPP:Selection:ShapeRange:Height = 33. /* Define 33 (pixel) de largura */

excelAPP:SELECTION:ShapeRange:LockAspectRatio = False. /* Desativa opcao proporcional */

excelAPP:VISIBLE = TRUE. /* Torna a planilha visivel */

excelAPP:ActiveWindow:CLOSE(NO). /* Fecha a janela */RELEASE OBJECT excelAPP.

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *