Software Developer's Kit - ChemDraw

Send comments on this topic
PositioningOffset Property
See Also 

Description

Member of ChemDraw Control.ObjectTag.

Sets and returns the offset by which this tag is positioned.

Property type

Read-write property

Syntax

Visual Basic
Public Property PositioningOffset() As Point

Return Type

Remarks

Sets and returns the offset by which this tag is positioned, if it is positioned by offset or absolute.

Example

'Shows example of PositioningOffset property
 Dim myObjectTag as ChemDrawControl10Ctl.ObjectTag
 Dim myObject as ChemDrawControl10Ctl.Object
 Dim vName as string

 Private Sub Load_ObjectTag_Click()
    If  myObjectTag is Nothing Then
        vMessage = MsgBox(“No ObjectTag is loaded”, vbCritical + vbOKOnly, “Error”)
        vName = “Name_of_ObjectTag”
        ‘Makes an ObjectTag
        myObject.MakeObjectTag vName, myObjectTag, True
        ‘ObjectTag must be visible
        myObjectTag.Visible = True
        ‘Assigns the content of vString to the ObjectTag.StringValue 
        myObjectTag.StringValue = vString
        ‘Positions tag by offset value
        myObjectTag.PositioningType = kCDPositioningTypeOffset 'Value 2
        myObjectTag.PositioningOffset.X = 500 
        myObejctTag.PositioningOffset.Y = 100 
    End If
End Sub

See Also