Добавление URL-ссылки в комментарий в VBA - PullRequest
Новая
       12

Добавление URL-ссылки в комментарий в VBA

0 голосов
/ 09 ноября 2018

Я хочу, чтобы мой код в VBA устанавливал комментарий в ячейке с интерактивным URL-адресом. Я могу сделать это вручную, как это:
1) Нажмите на ячейку и вставьте комментарий как "http://www.google.com.br"
2) Щелкните правой кнопкой мыши ячейку комментария и выберите Показать / скрыть комментарии, чтобы отобразить комментарий.
Готово, ячейка настроена как комментарий, показывающий активируемую гиперссылку.

Что я пробовал в VBA: 

Sheets(1).Range("H2").AddComment "http://www.google.com.br"
Sheets(1).Range("H2").Comment.Visible = True
Range("H2").Comment.Shape.Select True

Но это не делает клетку гиперссылкой. Мне все еще нужно выбрать комментарий, а затем выбрать другую ячейку, чтобы она отображалась в виде кликабельной ссылки.

Я тоже пробовал: 

Dim shp as Shape
With Range("H2")
    .AddComment
    .Comment.Visible = True
    Set shp = .Comment.Shape
End With
ActiveSheet.Hyperlinks.Add Anchor:=shp, Address:="", _
                   SubAddress:="A7", ScreenTip:="Move"

Но все равно я не могу заставить его работать в VBA.

Спасибо за вашу помощь!

...