Software Developer's Kit - ChemDraw

Send comments on this topic
MajorAxisEnd Property
See Also 

Description

Member of ChemDraw control.Graphic.

Sets and returns the end point of the major axis of the object

Property type

Read-write property

Syntax

Visual Basic
Public Property MajorAxisEnd() As Point

Return Type

Remarks

Sets and returns the end point of the major axis of the object. To set the value you must use a point object.

Example

'Declares variable vArrow
 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
    If  selection.Graphics.Count = 1 Then
        Set MyGraphic = ctlChemDraw.selection.Objects.Graphics.Item(1)
        Label1.Caption = "Object: Graphic"
    End If
 End Sub
 Private Sub cmdMajorAxisEnd_click()
    'Example to ASSIGN values to the X & Y coordinates of MajorAxisEnd 
     Dim myPoint As ChemDrawControl10Ctl.Point
     myPoint.X = 350
     myPoint.Y = 150
     myGraphic.MajorAxisEnd = myPoint
     Label1.Caption = "MajorAxisEnd" + chr$(13) + _
            Format(myGraphic.MajorAxisEnd.X, "0.0") + " Major Axis End X" + Chr$(13) + _
            Format(myGraphic.MajorAxisEnd.Y, "0.0") + " Major Axis End Y" + Chr$(13)
 End Sub

See Also