SvIvaПоследняя новость с полей. Дома на компьютере FollowHyperlink для Shape работает ! Но теперь не вижу настройку компа на работе. Завтра узнаю, почему может не отрабатывать.
Думаю (и хотел бы ошибиться), что речь идет о какой-то ошибке. По моим данным
данное событие не срабатывало никогда если Hyperlink был на Shape .
На мой взгляд (и рискуя, как все мои предшественники, вместо обычного "спасибо, но..." удостоиться снисходительно-презрительного
"Неверно!!!" или
"... ладно, проехали.... я вижу тут нет спецов по VBA..." ), один из вариантов это:
1) отказаться от Hyperlinks
2) отказаться от MergedCells
3) поместить в стандартном модуле след код:
1.
2.
3.
4.
5.
6.
7.
Sub MyProc()
Dim x As String
x = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
With Sheets("Лист2")
.Range("A1").AutoFilter Field:= 2 , Criteria1:="=" & x
.Select
End With
End Sub
из любого модуля след код:
1.
2.
3.
4.
5.
6.
7.
Sub test()
Dim sh As Shape
On Error Resume Next
For Each sh In Sheets("Лист1").Shapes
sh.Hyperlink.Delete
sh.OnAction = "MyProc"
Next sh
End Sub
Пример прилагается.
KL
[MVP - Microsoft Excel]
