Гиперссылка в Excel
Проблема такова:
на листе Excel имеется некоторое количество графических объектов, необходимо организовать перемещение по ним при помощи гиперссылок.
на листе Excel имеется некоторое количество графических объектов, необходимо организовать перемещение по ним при помощи гиперссылок.
Цитата:
Originally posted by SergeyM
Проблема такова:
на листе Excel имеется некоторое количество графических объектов, необходимо организовать перемещение по ним при помощи гиперссылок.
Проблема такова:
на листе Excel имеется некоторое количество графических объектов, необходимо организовать перемещение по ним при помощи гиперссылок.
Зачем тебе гиперссылки? Сделай кнопочки...
Цитата:
Originally posted by Cutty Sark
Зачем тебе гиперссылки? Сделай кнопочки...
Зачем тебе гиперссылки? Сделай кнопочки...
а дальше ......
Цитата:
Originally posted by SergeyM
а дальше ......
а дальше ......
А на кнопочках программки типа
Sub F1()
ActiveSheet.Shapes("Figure 1").Select
End Sub
Цитата:
Originally posted by Cutty Sark
А на кнопочках программки типа
Sub F1()
ActiveSheet.Shapes("Figure 1").Select
End Sub
А на кнопочках программки типа
Sub F1()
ActiveSheet.Shapes("Figure 1").Select
End Sub
Это понятно, но если объект находится в конце листа.... Select не сдвинет лист так, что бы объект стал виден.
Цитата:
Originally posted by SergeyM
Это понятно, но если объект находится в конце листа.... Select не сдвинет лист так, что бы объект стал виден.
Это понятно, но если объект находится в конце листа.... Select не сдвинет лист так, что бы объект стал виден.
Я понял, в чём проблема.
Делай так:
Sub F1()
Application.Goto _
Reference:=ActiveSheet.Shapes("Figure 1").TopLeftCell, _
Scroll:=True
ActiveSheet.Shapes("Figure 1").Select
End Sub
Спасибо! Всё получилось.