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

Olá pessoal, Estou com um notebook com o Windows Vista Ultimate x64, e quando tentei instalar o Visual Basic 6 que tenho, o sistema me retorna uma mensagem de erro de compatibilidade, mas ele deixa a opção de continuar a instalação, como tenho dúvida quanto a isso, preferi não prosseguir. Gostaria de saber antes, se há alguma versão em 64bits para instalação do Visual Basic 6? Grato, Wagner Silva