Interligando objetos no VBA excell 2007

[todeaschi]

Olá amigos!!

estou com grande problema! tenho uma macro enorme quem vem rodando desde de 2003, porem houve uma atualização para o excell 2007 e a mesma não roda mais porque pelo que me parece o comando não é mais o mesmo. A intenção é ligar dois objetos com um conector, para isto utilizava um comando parecido como o abaixo:

Range("B2").Select

Application.CommandBars("Drawing").Visible = True

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 82.5, 159#, 65.25, 59.25). _

Select

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 250.5, 130.5, 90.75, 63.75). _

Select

ActiveSheet.Shapes.AddConnector(msoConnectorStraight, a, b, c, d).Select

Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle

Selection.ShapeRange.Flip msoFlipHorizontal

Selection.ShapeRange.Flip msoFlipVertical

Selection.ShapeRange.ConnectorFormat.BeginConnect ActiveSheet.Shapes( _

"Rectangle 1"), 4

Selection.ShapeRange.ConnectorFormat.EndConnect ActiveSheet.Shapes( _

"Rectangle 2"), 2

Range("D12").Select

Porém o a,b,c e d são variáveis criadas, aqui coloque uma pequena simulação somente..

mas o código ActiveSheet.Shapes.AddConnector não mais funciona no 2007...

Alguém pode me auxiliar? O excell 2007 sequer grava este tipo de macro!!

Só preciso saber qual linha substitui a que citei!!

Um abraço a todos!!

[webdeveloper]

O problema que encontrei aqui foi na referência dos objetos "Rectangle 1" e "Rectangle 2", pois aqui a cada execução da macro os retângulos mudavam de nome.

Após acertar isso a macro rodou sem erros, fez o conector corretamente e os retângulos não mudaram mais de nome.

Editado Fevereiro 18, 2009 por webdeveloper