shape Property

Sets or returns a String that represents the shape of a hyperlink in an AREA element within a MAP element.

expression.shape

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

Remarks

The String value of the shape property, which corresponds to the value of the shape attribute, can be one of the following:

circ or circle	The shape of the hyperlink is a circle.
poly or polygon	The shape of the hyperlink is a polygon.
rect or rectangle	The shape of the hyperlink is a rectangle.

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