[Iska]

Weman, попробуйте вместо:

Код:

Set objLink = objSelection.Hyperlinks.Add(objSelection.InlineShapes.AddPicture(strLogo), strWeb,,,"")

следующее (не проверялось):

Код:

Dim objInlineShape

Set objInlineShape = objSelection.InlineShapes.AddPicture(strLogo)
objInlineShape.AlternativeText = "bla-bla-bla"

Set objLink = objSelection.Hyperlinks.Add(objInlineShape, strWeb,,,"")