Software Developer's Kit - ChemDraw

Send comments on this topic
MakeArrow Method
See Also 

Description

Member of ChemDraw Control.Cell.

Creates a new arrow in this cell

Syntax

Visual Basic
Public Function MakeArrow() As Arrow

Return Type

Example

'Declares variables
 Dim myTable As ChemDrawControl11Ctl.Table
 Set myCell = ctlChemDraw.Selection.Objects.Cell

 Private Sub cmdCommand_Click()
    'Checks that there is a Table loaded in the variable
     If   Selection.Tables.Count < 1 Then
         Exit Sub
     End If
     Set myCell = myTable.Cells.Item(1) 
    'creates an object within the cell
     Set MyArrow = myCell.MakeArrow
     MyArrow.ArrowHeadPositionStart = kCDArrowHeadPositionFull
     MyArrow.HeadSize = 6
     MyArrow.HeadWidth = 3
     MyArrow.HeadCenterSize = 12
     ctlChemDraw.SetFocus
     myArrow.selected = True
 End Sub

See Also