Software Developer's Kit - ChemDraw

Send comments on this topic
Graphics Property
See Also 


Member of ChemDraw Control.Group.

Returns the graphics collection of this group.

Property type

Read-only property


Visual Basic
Public Property Graphics() As Graphics

Return Type



The graphics property refers to the collection of graphics which is within this Group. The properties associated with the collection are the following:

myGroup.Graphics.Application      returns the application associated with the graphics collection
myGroup.Graphics.Count             returns the number of graphics in the collection
myGroup.Graphics.Item(i)           returns one graphic from the collection 
myGroup.Graphics.Parent            returns the parent of the graphics collection

With Group.Graphics.Item(i) all the graphic properties are enabled for graphic(i). This index starts with 1.


'returns the number of graphics in this group
 Private Sub ctlChemDraw_SelectionChanged(ByVal selection As ChemDrawControl10Ctl.IChemDrawSelection)
     Set MyGroup = ctlChemDraw.MakeGroup()
     For x = 1 To selection.Objects.Count - 1 'Groups the objects, without including the actual group
          Selection.Objects.Item(x).Group = MyGroup
     Next x
     Label1.Caption = "AltGroups: " & MyGroup.AltGroups.Count
     Label2.Caption = "Bonds: " & MyGroup.Bonds.Application
     Label3.Caption = "Captions: " & MyGroup.Captions.Item(1).Text
     Label4.Caption = "Atoms: " & MyGroup.Atoms.Parent.ID
     Label5.Caption = "Constraints: " & MyGroup.Constraints.Count
     Label6.Caption = "Geometries: " & MyGroup.Geometries.Count
     Label7.Caption = "Objects: " & MyGroup.Objects.Count
     Label8.Caption = "Pictures: " & MyGroup.Pictures.Count
     Label9.Caption = "Splines: " & MyGroup.Splines.Count
     Label10.Caption = "StoichiometryGrids: " & MyGroup.StoichiometryGrids.Count
     Label11.Caption = "Tables: " & MyGroup.Tables.Count
     Label12.Caption = "TLCPlates: " & MyGroup.TLCPlates.Count
 End Sub

See Also