GefObject.ClassFormat (read-only property)

Gets the GefClassFormat for the object.

Syntax:

Set GefClassFormat = object.ClassFormat

Description:

The ClassFormat property is valid for class objects only. Returns Nothing if this property is not valid for the object.

Example:

Sub DuplicateClassObj()

  Dim cimScreen As
GefObjectModel.GefScreen

Set cimScreen = CimGetScreen()

  Dim cimClassObj As
GefObjectModel.GefObject

  Dim cimClassObj2 As
GefObjectModel.GefObject

  Set cimClassObj =
cimScreen.Object.Objects.Item("TestClass")

  Set cimClassObj2 =
cimScreen.Object.Objects.AddClassObject( _

          cimClassObj.ClassFormat.Project,
_

          cimClassObj.ClassFormat.ObjectID,
_

          cimClassObj.ClassFormat.GraphicName)

  cimClassObj2.Top = 1200
  cimClassObj2.Left = 100
  cimScreen.Refresh False
End Sub