Originally Posted By: apronk
Yeah it's the $objShape.Range that will throw that.
Try this instead:
 Code:
$objLink = $objDoc.Hyperlinks.Add($objShape, "http://kixtart.org", , , "KiXtart Homepage")


Tanks Arend. Works great.
Our marketing department wanted this functionality and now I can provide them with it. Off course all credits are for you. Somehow I just cannot get my brain to take in these things and make them stick for future use. Someday I need to dig deeper into this.

Working test code:
 Code:
Break on

;Create Word object
$objWord = CreateObject("Word.Application")
;Make Word visible for debuging
$objWord.Visible=1
;Add an empty document
$objDoc = $objWord.Documents.Add()
$objSelection = $objWord.Selection

;Add the picture
$objShape = $objSelection.InlineShapes.AddPicture("d:\BlogSpot.gif")
$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl1.com",,, "Visit our BlogSpot pages")

$objShape = $objSelection.InlineShapes.AddPicture("d:\Twitter.gif")
$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl2.com",,, "Visit our Twitter pages")

$objShape = $objSelection.InlineShapes.AddPicture("d:\Facebook.gif")
$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl3.com",,, "Visit out FaceBook pages")

$objShape = $objSelection.InlineShapes.AddPicture("d:\Youtube.gif")
$objLink = $objDoc.Hyperlinks.Add($objShape, "http://www.someurl4.com",,, "Visit our YouTube Chanel")

;Exit Word.
;Disabled for debugging.
;$objWord.Quit

Sleep 10
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.