Software Developer's Kit - ChemDraw

Send comments on this topic
Arrows Property
See Also 


Member of ChemDrawControl.Objects.

Returns the arrows from the objects in the collection

Property type

Read-only property


Visual Basic
Public Property Arrows() As Arrows

Return Type


'Shows number of Arrows within the ChemDraw document  
 Private Sub cmdShowNumberOfArrows_Click() 
     Dim myArrow1 as ChemDrawControl10Ctl.Arrow
     Dim myArrow2 as ChemDrawControl10Ctl.Arrow 
    'Checks if at least two Arrows have been drawn
     If ctlChemDraw.Objects.Arrows.Count > 2 Then 
         Set MyArrow1 = ChemDrawControlCtl.Objects.Arrows.Item(1)
         Set MyArrow2 = ChemDrawControlCtl.Objects.Arrows.Item(2)
        'Returns the number of Arrows within the ChemDraw document
         Text2.text = "There are: " & format(ChemDrawControlCtl.Objects.Arrows.Count, "##") & " Arrow/s" 
     End If
 End Sub

See Also