Excel VBA, adicione hiperlink anexado ao objeto shape do comentário

Question

Estou me perguntando por que o código a seguir não funciona:

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

Se eu fizer o mesmo com um objeto Shape recém-criado (por exemplo, retângulo), ele funcionará, mas, na medida em que eu definir uma âncora para a forma do comentário, o código falhará com

Run-time error '5':
Invalid procedure call or argument

O que estou fazendo de errado?
Obrigado!

    

Answer 1

O comentário é um tipo de forma, mas não suporta todas as propriedades de forma - incluindo hiperlinks, infelizmente. É por isso que você pode adicionar um hiperlink à sua outra forma, mas não ao comentário.

Um comentário geralmente não permite que você clique nele. Como você alterou a propriedade visible para true, isso altera o comportamento padrão, fazendo com que o comentário permaneça no topo de algumas células redundantes. Como isso está acontecendo, é melhor você criar uma forma que pareça um comentário, mas na verdade não é. Hiperlink sua forma com aparência de comentário e você tem a resposta.

Uma alternativa fácil seria vincular a célula a um hiperlink.

    

Answer 2

Uma coisa que notei é que, se você digitar apenas um URL para um comentário durante a criação, quando o comentário for exibido na tela por meio de "Mostrar comentário", ele poderá ser clicado e direcioná-lo para o URL em questão. Mesmo depois de editar o texto no comentário, ele continuará a funcionar como um hiperlink.

Esta é, portanto, uma solução alternativa para permitir que um comentário vincule no máximo um URL.