гиперссылка

[bize]

как можно при помощи гиперссылке привязать фигуру на листе1 к фигуре на листе2,так чтоб при нажатии на фигуру листа1 осуществлялся переход именно на фигуру листа2 а не к какой-то ячейке.Если не гиперсылкой то чем и как можно это решить. Так что б можно было потом применить этот метод в других вариантах но с темже смыслом

[R Dmitry]

mojno macrosom primerno tak

Sub goooooo()
With Sheets(2)
.Activate
    .Shapes.Range(Array("Isosceles Triangle 1")).Select
    With Selection
    ActiveWindow.ScrollIntoView .Left, .Top, .Width, .Height, 1
    End With
 End With
End Sub

[bize]

Сообщение от R Dmitry

mojno macrosom primerno tak

Sub goooooo()
With Sheets(2)
.Activate
    .Shapes.Range(Array("Isosceles Triangle 1")).Select
    With Selection
    ActiveWindow.ScrollIntoView .Left, .Top, .Width, .Height, 1
    End With
 End With
End Sub

впроде и работает но сначало выдает ошибку

Run-time error 1004
Компонент с указанным именем не найден

хоть я задал имя

[bize]

Сообщение от bize

впроде и работает но сначало выдает ошибку

Run-time error 1004
Компонент с указанным именем не найден

хоть я задал имя

да и он просто выделяет заданную фигуру но не переходит на нее

[R Dmitry]

У меня и находит и выделяет, офис у Вас какой?

[bize]

Сообщение от R Dmitry

У меня и находит и выделяет, офис у Вас какой?

2007,он выделяет но если прокрутить фигуру листа2 вниз или вверх(убрать с экрана) и нажать на фигуру л1 то он не покажет ее на листе(на экране),ножно самому прокрутить.А ошибка есть у Вас?

[R Dmitry]

вот вам рабочий пример

[kuklp]

Дело в имени:

Sub goooooo()
    With Sheets(2)
        .Activate
        .[Равнобедренный треугольник 1].Select
        With Selection
            ActiveWindow.ScrollIntoView .Left, .Top, .Width, .Height, 1
        End With
    End With
End Sub

[bize]

Оба варианта работают.Спасибо.