coords Property

Returns or sets a String that represents the coordinates of an AREA element within a MAP element.

expression.coords

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

Remarks

The format of the String value of the coords property depends on the value of the Shape property (corresponding to the shape attribute) as follows:

shape property	coords property
SHAPE = "circ" or "circle"	COORDS = "x1,y1,r" – Where x1,y2 are the coordinates of the center of the circle, and r is the radius of the circle.
SHAPE = "poly" or "polygon"	COORDS = "x1,y1,x2,y2...xn,yn" – Where each x,y pair contains the coordinates of one vertex of the polygon.
SHAPE = "rect" or "rectangle"	COORDS = "x1,y1,x2,y2" – Where x1,y1 are the coordinates of the upper-left corner of the rectangle and x2,y2 are the coordinates of the lower-right coordinates of the 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