Propriedades Server.CreateObject("Excel.Application")

[Wagner Kiko]

Boa tarde,

Eu tenho o seguinte trecho de código em uma Macro antiga que funcionava normalmente em VBA:

ActiveSheet.Shapes.AddLine(78, 104, 78, 159).Select

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Flip msoFlipVertical

Adaptado para script ASP ficou assim:

Set ExcelApp = Server.CreateObject("Excel.Application")

Set ExcelBook = ExcelApp.Workbooks.Open(caminho_planilha)

Set ExcelSheet = ExcelBook.Sheets.item(1)

Set LineDraw = ExcelSheet.Shapes

LineDraw.AddLine(78, 104, 78, 159).Select

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium

Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium

Selection.ShapeRange.Flip msoFlipVertical

Set LineDraw = Nothing

Set ExcelSheet = nothing

Set ExcelBook = Nothing

ExcelApp.Quit

Set ExcelApp = Nothing

Contudo, implementando a mesma em um script ASP, onde é gerado um planilha a partir de um modelo e inserido este desenho “linha com seta”, não consigo utilizar os comandos de manipulação da SHAPE (“Selection.ShapeRange”).

Gostaria de saber se alguém tem experiencia com assunto?

Agradeço desde já!

Wagner

Editado Novembro 19, 2010 por Wagner Kiko