Мне интересно, почему следующий код не работает:
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"
Если я проделываю аналогичные действия с вновь созданным объектом Shape (например, прямоугольником), это работает, но, поскольку я устанавливаю привязку для Shape комментария, код завершается с
Run-time error '5':
Invalid procedure call or argument
Что я делаю неправильно?
Спасибо!