useMap Property

Sets or returns a String that represents the name, often with a bookmark extension (#name), to use as a client-side image map for an image.

expression.useMap

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example replaces the text in the active document with a graphic, and then inserts an image map with one AREA element and specifies its share, coordinates, and hyperlink URL.

    Sub SetImageCoords()
    Dim objImage As FPHTMLImg
    Dim objArea As FPHTMLAreaElement
    
    ActiveDocument.body.innerHTML = _
        "<img src=""graphics/chelan.jpg"" id=""chelan"">" & vbCrLf
    
    Set objImage = ActiveDocument.all.tags("img").Item("chelan")
    objImage.useMap = "#ImageMap"
    
    ActiveDocument.body.insertAdjacentHTML where:="beforeend", _
        HTML:="<map name=""ImageMap"">" & vbCrLf & _
        "<area id=""Area1"">" & vbCrLf & "</map>" & vbCrLf
    Set objArea = ActiveDocument.body.all.tags("area").Item("Area1")
    
    With objArea
        .Shape = "rect"
        .coords = "5, 16, 151, 286"
        .href = "http://www.microsoft.com"
    End With
        
End Sub