Ivan, This code gets to the width and height of a graphic: Public Sub test() ' Get the map and the graphics container for it Dim pMap As IMap Dim pMXDocument As IMxDocument Set pMXDocument = ThisDocument Set pMap = pMXDocument.FocusMap Dim pGraphicsContainer As IGraphicsContainer Set pGraphicsContainer = pMap ' Get the first element Dim pElement As IElement pGraphicsContainer.Reset Set pElement = pGraphicsContainer.Next ' Get the name property and display Dim pElementProperties As IElementProperties Set pElementProperties = pElement MsgBox pElementProperties.Name ' Get the width and height and display Dim pEnvelope As IEnvelope Set pEnvelope = New Envelope Dim pDisplay As IDisplay Set pDisplay = pMXDocument.ActiveView.ScreenDisplay pElement.QueryBounds pDisplay, pEnvelope MsgBox CStr(pEnvelope.Width), vbInformation, "width" MsgBox CStr(pEnvelope.Height), vbInformation, "height" End Sub Another Interface is IBoundsProperties. This code worked well for a circle but I noticed that when I drew a polyline graphic it's width was different to what the dialog was reporting, not sure why. Duncan
... View more
