Software Developer's Kit - ChemDraw

Send comments on this topic
MinorAxisEnd Property
See Also 

Description

Member of ChemDraw control.Graphic.

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

Property type

Read-write property

Syntax

Visual Basic
Public Property MinorAxisEnd() As Point

Return Type

Remarks

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

Example

'minor axis end
 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 cmdminorAxisEnd_click()
    'Example to ASSIGN values to the X & Y coordinates of MinorAxisEnd 
     Dim myPoint As ChemDrawControl10Ctl.Point
     myPoint.X = 350
     myPoint.Y = 150
     myGraphic.MinorAxisEnd = myPoint
     Label1.Caption = "minorAxisEnd" + chr$(13) + _
            Format(myGraphic.MinorAxisEnd.X, "0.0") + " Minor Axis End X" + Chr$(13) + _
            Format(myGraphic.MinorAxisEnd.Y, "0.0") + " Minor Axis End Y" + Chr$(13)
 End Sub

See Also