Description

Returns the width of the object expressed in millipoints.

This value is valid only for pictures - the function returns 0 for any other kind of object.

Syntax

object

Required. Object name. Returned by the GetObj function of the object, returned by Ted.GetActiveArticle.

Example

This script displays the width of the object.

  If Ted.HasActiveArticle Then

    Dim objArticle = Ted.GetActiveArticle

    Dim idx As Integer = objArticle.GetCurTxtIdx

    If idx >= 0 Then

      If objArticle.HasRefObj(idx) Then

        Dim objObj = objArticle.GetRefObj(idx)

         MsgBox(objObj.width)

      End If

    End If

  End If

Context

Method