Software Developer's Kit - ChemDraw

Send comments on this topic
Caption Object
See Also  Members 


Member of ChemDraw Control.

For a list of all members defined for this object, see Caption Members.

ChemDraw Caption represents a caption object.

Object Model


'Declares variable vCaption
 Dim vCaption As ChemDrawControl10Ctl.Caption
'Checks that there is a Caption loaded in the variable
 If  Selection.Captions.Count < 1 Then
     Exit Sub
End If
'Loads the last Caption selected into the variable
 For Each myCaption In Selection.Captions
     If  myCaption.Selected = True Then
vCaption = myCaption
     End If

 Private Sub cmdCaptionsItem_Click()
    'returns the application of the Captions collection
Text1.text = MyCaption.Captions.Application 
    'returns the number of Captions in the Captions collection
     Text2.text = MyCaption.Captions.Count
    'sets the Item(1) of the Captions collection 
     myCaption.Captions.Item(1).Atom.ElementNumber = 26
    'returns the angle of the caption 
     Text3.text = MyCaption.Captions.Item(1).Angle
 End Sub

See Also