Member of ChemDraw Control.Arrow
Sets and returns the ratio of the length of the left component to the right component of the equilibrium arrow.
Public Property EquilibriumRatio() As Double
An equilibrium arrow has half an arrow head on each end and both of these are either kCDArrowHeadPositionHalfLeft or kCDArrowHeadPositionHalfRight. Therefore, the property ArrowHeadPositionStart = ArrowHeadPositionTail.
The property ShaftSpacing has a value larger than zero.
The arrow in the diagram to the left is an arrow with EquilibriumRatio = 3, one shaft is three times longer than the other one.
An arrow by default has EquilibriumRatio = 1.
|'Declares variable vArrow|
Dim vArrow As ChemDrawControl10Ctl.Arrow
'Checks that there is an arrow loaded in the variable
If Selection.Arrows.Count < 1 Then
Private Sub cmdEquilibriumRatio_click()
'Gets the EquilibriumRatio for the selected arrow
Text1.Text = vArrow.EquilibriumRatio
'Sets one shaft of the arrow 6 times the length of the other shaft
vArrow.EquilibriumRatio = 6