CorelDRAW 10 VBA Object Model

This file was automatically generated by Tlb2Html utility
Type library name: CorelDRAW
Description: Corel - CorelDRAW 10.0 Library
Version: 10.0
Tlb2Html utility Copyright 2000 by Alex Vakulenko

Index


Class ActiveView

Properties:

  • Property Application As Application [r/o]
  • Property OriginX As Double [r/w]
  • Property OriginY As Double [r/w]
  • Property Parent As Window [r/o]
  • Property Type As cdrViewType [r/w]
  • Property Zoom As Double [r/w]

Methods:

  • Sub SetActualSize()
  • Sub SetViewPoint(ByVal X As Double, ByVal Y As Double, [ByVal Zoom As Double = 0])
  • Sub ToFitAllObjects()
  • Sub ToFitArea(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double)
  • Sub ToFitPage()
  • Sub ToFitPageHeight()
  • Sub ToFitPageWidth()
  • Sub ToFitSelection()
  • Sub ToFitShape(ByVal Shape As Shape)
  • Sub ToFitShapeRange(ByVal ShapeRange As ShapeRange)

Class AddinHook

Properties:

Events:

  • Event Execute()
  • Event New(ByVal NewDocument As Document)
  • Event ShapeCreated(ByVal NewShape As Shape)
  • Event WhileDrawing(ByVal TheShape As Shape, ByRef X As Long, ByRef Y As Long)

Class AddIns

Properties:

  • Property Application As Application [r/o]
  • Property Collection As Object [r/o]
  • Property Parent As Application [r/o]

Methods:


Class Application

Properties:

  • Property ActiveDocument As Document [r/o]
  • Property ActiveLayer As Layer [r/o]
  • Property ActivePage As Page [r/o]
  • Property ActivePalette As Palette [r/o]
  • Property ActiveSelection As Shape [r/o]
  • Property ActiveSelectionRange As ShapeRange [r/o]
  • Property ActiveShape As Shape [r/o]
  • Property ActiveTool As cdrTools [r/w]
  • Property ActiveWindow As Window [r/o]
  • Property ActiveWorkspace As Workspace [r/o]
  • Property AddIns As AddIns [r/o]
  • Property Application As Application [r/o]
  • Property AppWindow As AppWindow [r/o]
  • Property ArrowHeads As ArrowHeads [r/o]
  • Property Clipboard As Clipboard [r/o]
  • Property CommandBars As CommandBars [r/o]
  • Property ConfigPath As String [r/o]
  • Property Documents As Documents [r/o]
  • Property EventsEnabled As Boolean [r/w]
  • Property FontList As FontList [r/o]
  • Property GMSManager As GMSManager [r/o]
  • Property MainMenu As CommandBar [r/o]
  • Property Optimization As Boolean [r/w]
  • Property OutlineStyles As OutlineStyles [r/o]
  • Property Palettes As Palettes [r/o]
  • Property PanoseMatching As cdrPanoseMatchingType [r/w]
  • Property Parent As Application [r/o]
  • Property Path As String [r/o]
  • Property PatternCanvases As PatternCanvases [r/o]
  • Property Printers As Printers [r/o]
  • Property PrintJob As PrintJob [r/o]
  • Property RecentFiles As RecentFiles [r/o]
  • Property SetupPath As String [r/o]
  • Property StatusBar As CommandBar [r/o]
  • Property VBE As Object [r/o]
  • Property Version As String [r/o]
  • Property VersionBuild As Long [r/o]
  • Property VersionMajor As Long [r/o]
  • Property VersionMinor As Long [r/o]
  • Property Visible As Boolean [r/w]
  • Property Windows As Windows [r/o]
  • Property Workspaces As Workspaces [r/o]

Methods:

  • Function cdrMixedDouble() As Double
  • Function cdrMixedLong() As Long
  • Function cdrMixedSingle() As Single
  • Function CorelScript() As Object
  • Function CorelScriptTools() As Object
  • Function CreateBWColor(ByVal White As Boolean) As Color
  • Function CreateCMYColor(ByVal Cyan As Long, ByVal Magenta As Long, ByVal Yellow As Long) As Color
  • Function CreateCMYKColor(ByVal Cyan As Long, ByVal Magenta As Long, ByVal Yellow As Long, ByVal Black As Long) As Color
  • Function CreateColor() As Color
  • Function CreateColorEx([ByVal ColorModel As Long = 0], [ByVal V1 As Long = 0], [ByVal V2 As Long = 0], [ByVal V3 As Long = 0], [ByVal V4 As Long = 0], [ByVal V5 As Long = 0], [ByVal V6 As Long = 0], [ByVal V7 As Long = 0]) As Color
  • Function CreateDocument() As Document
  • Function CreateDocumentFromTemplate(ByVal Template As String, [ByVal IncludeGraphics As Boolean = True]) As Document
  • Function CreateFixedColor(ByVal PaletteID As cdrPaletteID, ByVal PaletteIndex As Long, [ByVal Tint As Long = 100]) As Color
  • Function CreateGrayColor(ByVal GrayValue As Long) As Color
  • Function CreateHLSColor(ByVal Hue As Long, ByVal Lightness As Long, ByVal Saturation As Long) As Color
  • Function CreateHSBColor(ByVal Hue As Long, ByVal Saturation As Long, ByVal Brightness As Long) As Color
  • Function CreateLabColor(ByVal L As Long, ByVal A As Long, ByVal B As Long) As Color
  • Function CreateRegistrationColor() As Color
  • Function CreateRGBColor(ByVal Red As Long, ByVal Green As Long, ByVal Blue As Long) As Color
  • Function CreateShapePoint(ByVal PositionX As Double, ByVal PositionY As Double) As ShapePoint
  • Function CreateYIQColor(ByVal Y As Long, ByVal I As Long, ByVal Q As Long) As Color
  • Sub ImportWorkspace(ByVal FileName As String)
  • Function OpenCorelScriptFile(ByVal FileName As String) As CorelScriptFile
  • Function OpenDocument(ByVal FileName As String) As Document
  • Sub Quit()

Class AppWindow

Properties:

  • Property Active As Boolean [r/o]
  • Property Application As Object [r/o]
  • Property Caption As String [r/w]
  • Property ClientHeight As Long [r/o]
  • Property ClientWidth As Long [r/o]
  • Property Handle As Long [r/o]
  • Property Height As Long [r/w]
  • Property Left As Long [r/w]
  • Property Parent As Object [r/o]
  • Property Top As Long [r/w]
  • Property Width As Long [r/w]
  • Property WindowState As cdrWindowState [r/w]

Methods:

  • Sub Activate()

Class ArrowHead

Properties:

  • Property Index As Long [r/o]

Class ArrowHeads

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ArrowHead [r/o] [default]
  • Property Parent As Application [r/o]

Methods:

  • Sub Remove(ByVal Index As Long)

Class Bitmap

Properties:

  • Property ExternallyLinked As Boolean [r/o]
  • Property ResolutionX As Long [r/o]
  • Property ResolutionY As Long [r/o]
  • Property SizeHeight As Long [r/o]
  • Property SizeWidth As Long [r/o]

Methods:

  • Sub Inflate(ByVal Width As Long, ByVal Height As Long)
  • Sub ResolveLink()
  • Sub UpdateLink()

Class Clipboard

Properties:

  • Property Application As Object [r/o]
  • Property Empty As Boolean [r/o]
  • Property Parent As Object [r/o]
  • Property Valid As Boolean [r/o]

Methods:

  • Sub Clear()
  • Function DataPresent(ByVal FormatName As String) As Boolean

Class CloneLink

Properties:

  • Property Application As Application [r/o]
  • Property BitmapColorMaskLinked As Boolean [r/w]
  • Property CloneParent As Shape [r/o]
  • Property FillLinked As Boolean [r/w]
  • Property OutlineLinked As Boolean [r/w]
  • Property Parent As Shape [r/o]
  • Property ShapeLinked As Boolean [r/w]
  • Property TransformLinked As Boolean [r/w]

Class Color

Properties:

  • Property Application As Object [r/o]
  • Property BW As Boolean [r/w]
  • Property CMYCyan As Long [r/w]
  • Property CMYKBlack As Long [r/w]
  • Property CMYKCyan As Long [r/w]
  • Property CMYKMagenta As Long [r/w]
  • Property CMYKYellow As Long [r/w]
  • Property CMYMagenta As Long [r/w]
  • Property CMYYellow As Long [r/w]
  • Property Gray As Long [r/w]
  • Property HLSHue As Long [r/w]
  • Property HLSLightness As Long [r/w]
  • Property HLSSaturation As Long [r/w]
  • Property HSBBrightness As Long [r/w]
  • Property HSBHue As Long [r/w]
  • Property HSBSaturation As Long [r/w]
  • Property LabComponentA As Long [r/w]
  • Property LabComponentB As Long [r/w]
  • Property LabLuminance As Long [r/w]
  • Property Name([ByVal Components As Boolean = False]) As String [r/o]
  • Property PaletteID As cdrPaletteID [r/o]
  • Property PaletteIndex As Long [r/w]
  • Property Parent As Object [r/o]
  • Property RGBBlue As Long [r/w]
  • Property RGBGreen As Long [r/w]
  • Property RGBRed As Long [r/w]
  • Property Tint As Long [r/w]
  • Property Type As cdrColorType [r/o]
  • Property YIQChromaI As Long [r/w]
  • Property YIQChromaQ As Long [r/w]
  • Property YIQLuminanceY As Long [r/w]

Methods:

  • Sub BWAssign(ByVal White As Boolean)
  • Sub CMYAssign(ByVal Cyan As Long, ByVal Magenta As Long, ByVal Yellow As Long)
  • Sub CMYKAssign(ByVal Cyan As Long, ByVal Magenta As Long, ByVal Yellow As Long, ByVal Black As Long)
  • Sub ConvertToBW()
  • Sub ConvertToCMY()
  • Sub ConvertToCMYK()
  • Sub ConvertToFixed(ByVal PaletteID As cdrPaletteID)
  • Sub ConvertToGray()
  • Sub ConvertToHLS()
  • Sub ConvertToHSB()
  • Sub ConvertToLab()
  • Sub ConvertToRGB()
  • Sub ConvertToYIQ()
  • Sub CopyAssign(ByVal Color As Color)
  • Sub CorelScriptAssign(ByVal ColorModel As Long, ByVal V1 As Long, [ByVal V2 As Long = 0], [ByVal V3 As Long = 0], [ByVal V4 As Long = 0], [ByVal V5 As Long = 0], [ByVal V6 As Long = 0], [ByVal V7 As Long = 0])
  • Sub CorelScriptGetComponent(ByRef ColorModel As Long, ByRef V1 As Long, [ByRef V2 As Long = 0], [ByRef V3 As Long = 0], [ByRef V4 As Long = 0], [ByRef V5 As Long = 0], [ByRef V6 As Long = 0], [ByRef V7 As Long = 0])
  • Sub FixedAssign(ByVal PaletteID As cdrPaletteID, ByVal PaletteIndex As Long, [ByVal Tint As Long = 100])
  • Sub GrayAssign(ByVal GrayValue As Long)
  • Sub HLSAssign(ByVal Hue As Long, ByVal Lightness As Long, ByVal Saturation As Long)
  • Sub HSBAssign(ByVal Hue As Long, ByVal Saturation As Long, ByVal Brightness As Long)
  • Sub LabAssign(ByVal L As Long, ByVal A As Long, ByVal B As Long)
  • Sub RegistrationAssign()
  • Sub RGBAssign(ByVal Red As Long, ByVal Green As Long, ByVal Blue As Long)
  • Sub UserAssign()
  • Function UserAssignEx() As Boolean
  • Sub YIQAssign(ByVal Y As Long, ByVal I As Long, ByVal Q As Long)

Class Colors

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Color [r/o] [default]
  • Property Parent As Palette [r/o]

Class CommandBar

Properties:

  • Property BuiltIn As Boolean [r/o]
  • Property Controls As CommandBarControls [r/o]
  • Property Enabled As Boolean [r/w]
  • Property Height As Long [r/o]
  • Property Index As Long [r/o]
  • Property Left As Long [r/w]
  • Property Modes As CommandBarModes [r/o]
  • Property Name As String [r/w] [default]
  • Property NameLocal As String [r/w]
  • Property Position As cuiBarPosition [r/w]
  • Property Protection As cuiBarProtection [r/w]
  • Property Top As Long [r/w]
  • Property Type As cuiBarType [r/o]
  • Property Visible As Boolean [r/w]
  • Property Width As Long [r/o]

Methods:

  • Sub Delete()
  • Sub Reset()
  • Sub SetWidth(ByVal Width As Long)
  • Sub ShowPopup(ByVal X As Variant, ByVal Y As Variant)

Class CommandBarControl

Properties:

  • Property Caption As String [r/w] [default]
  • Property DescriptionText As String [r/w]
  • Property Height As Long [r/w]
  • Property ID As Long [r/o]
  • Property Parameter As Variant [r/w]
  • Property Tag As String [r/w]
  • Property ToolTipText As String [r/w]
  • Property Visible As Boolean [r/w]
  • Property Width As Long [r/w]

Class CommandBarControls

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As CommandBarControl [r/o] [default]

Class CommandBarMode

Properties:

  • Property Controls As CommandBarControls [r/o]
  • Property Name As String [r/o]
  • Property NameLocal As String [r/o]

Class CommandBarModes

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As CommandBarMode [r/o]

Class CommandBars

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As CommandBar [r/o] [default]

Methods:

  • Function Add([ByVal Name As String = ""], [ByVal Position As cuiBarPosition = cuiBarFloating (4)], [ByVal Temporary As Boolean = False]) As CommandBar

Class Connector

Properties:


Class CorelScript

Methods:

  • Function AddArrowPoint(ByVal X As Long, ByVal Y As Long, ByVal Enabled As Boolean, ByVal Letter As Boolean, ByVal User As Boolean, ByVal Closed As Boolean, ByVal Continuity As Long, ByVal NodeType As Long) As Long
  • Function AddBezierPoint(ByVal X As Long, ByVal Y As Long, ByVal Constrain As Boolean, ByVal Cusp As Boolean) As Long
  • Function AddEnvelopeEffect(ByVal PresetNumber As Long, ByVal MappingMode As Long, ByVal KeepLines As Boolean) As Long
  • Function AddFreehandPoint(ByVal ConvertToDPCoords As Boolean, ByVal X As Long, ByVal Y As Long) As Long
  • Function AddNode(ByVal X As Long, ByVal Y As Long) As Long
  • Function AddObjectDataField(ByVal FieldName As String) As Long
  • Function AddPageFrame() As Long
  • Function AddTabStop(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal TabStop As Long) As Long
  • Function AfterObject(ByVal CorelDRAWID As Long) As Long
  • Function AlignObjects(ByVal HorizontalAlignment As Long, ByVal VerticalAlignment As Long) As Long
  • Function AlignTextToBaseline(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long) As Long
  • Function AlignToCenterOfPage(ByVal HorizontalAlignment As Long, ByVal VerticalAlignment As Long) As Long
  • Function AlignToGrid(ByVal HorizontalAlignment As Long, ByVal VerticalAlignment As Long) As Long
  • Function AppendCurveLine(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long) As Long
  • Function AppendObjectToSelection(ByVal ObjectID As Long) As Boolean
  • Function ApplyBitmapEffect(ByVal EffectID As Long) As Long
  • Function ApplyBlend(ByVal Steps As Boolean, ByVal NoOfStepsSpaces As Long, ByVal AngleOfRotation As Long, ByVal Loop As Boolean, ByVal PathObjectID As Long, ByVal FullPath As Boolean, ByVal RotateAll As Boolean, ByVal ColorWheelMode As Long, ByVal MapNodeStartObject As Long, ByVal MapNodeEndObject As Long, ByVal LinearBlend As Boolean, ByVal LinearSpacing As Boolean, ByVal LinkAccelerations As Boolean, ByVal AccelShapes As Boolean, ByVal BlendLogBase As Long, ByVal SpacingLogBase As Long, ByVal BlendID As Long, ByVal BlendType As Long, ByVal MapNodes As Boolean) As Long
  • Function ApplyContour(ByVal ContourType As Long, ByVal Offset As Long, ByVal Steps As Long, ByVal ColorWheelDirection As Long) As Long
  • Function ApplyDistortion(ByVal New As Boolean, ByVal DistortionType As Long, ByVal Amplitude As Long, ByVal Frequency As Long, ByVal Seed As Long, ByVal Angle As Long, ByVal CenterX As Long, ByVal CenterY As Long, ByVal Flag As Long) As Long
  • Function ApplyDropShadow(ByVal HorizOffset As Long, ByVal VertOffset As Long, ByVal Opacity As Long, ByVal Feather As Long, ByVal FeatherType As Long, ByVal FeatherEdge As Long, ByVal PerspectiveType As Long, ByVal PerspectiveSkewAngle As Long, ByVal PerspectiveStretch As Double, ByVal Fade As Long, ByVal IdenticalValues As Boolean) As Long
  • Function ApplyEnvelopeFrom(ByVal ObjectID As Long, ByVal MappingMode As Long, ByVal KeepLines As Boolean) As Long
  • Function ApplyExtrude(ByVal ExtrudeType As Long, ByVal VPProperties As Long, ByVal CopyObjectID As Long, ByVal Depth As Long, ByVal VPHorizPos As Long, ByVal VPVertPos As Long, ByVal PageOrigin As Boolean, ByVal Light1Pos As Long, ByVal Light1Intensity As Long, ByVal Light2Pos As Long, ByVal Light2Intensity As Long, ByVal Light3Pos As Long, ByVal Light3Intensity As Long, ByVal FillType As Long, ByVal DrapeFill As Boolean) As Long
  • Function ApplyFountainBitmapLens(ByVal Type As Long, ByVal CenterX As Long, ByVal CenterY As Long, ByVal Angle As Long, ByVal Steps As Long, ByVal Padding As Long, ByVal Blend As Long, ByVal Rate As Long, ByVal Starting As Long, ByVal Operation As Long, ByVal Freeze As Boolean) As Long
  • Function ApplyFountainFill(ByVal Type As Long, ByVal CenterX As Long, ByVal CenterY As Long, ByVal Angle As Long, ByVal Steps As Long, ByVal Padding As Long, ByVal Blend As Long, ByVal Rate As Long) As Long
  • Function ApplyFullColorFill(ByVal FileName As String, ByVal TileWidth As Long, ByVal TileHeight As Long, ByVal FirstTileOffsetX As Long, ByVal FirstTileOffsetY As Long, ByVal RowOffset As Boolean, ByVal RowColumnOffset As Long, ByVal SeamlessTiling As Boolean, ByVal ScaleWithObject As Boolean, ByVal VectorBBoxTop As Long, ByVal VectorBBoxBottom As Long, ByVal VectorBBoxLeft As Long, ByVal VectorBBoxRight As Long, ByVal RotationAngle As Long, ByVal SkewAngle As Long) As Long
  • Function ApplyLensEffect(ByVal LensType As Long, ByVal Frozen As Boolean, ByVal RemoveFace As Boolean, ByVal ViewPoint As Boolean, ByVal VPX As Long, ByVal VPY As Long, ByVal Param1 As Long) As Long
  • Function ApplyNoFill() As Long
  • Function ApplyOutline(ByVal Width As Long, ByVal Type As Long, ByVal EndCaps As Long, ByVal JoinType As Long, ByVal Aspect As Long, ByVal Angle As Long, ByVal DotDash As Long, ByVal RightArrow As Long, ByVal LeftArrow As Long, ByVal BehindFill As Boolean, ByVal OutlineType As Long, ByVal Preset As Long, ByVal ScalePen As Boolean) As Long
  • Function ApplyPerspectiveEffect(ByVal Handle As Long, ByVal PosX As Long, ByVal PosY As Long) As Long
  • Function ApplyPostscriptFill(ByVal PSFill As String, ByVal NumParms As Long, ByVal Parm1 As Long, ByVal Parm2 As Long, ByVal Parm3 As Long, ByVal Parm4 As Long, ByVal Parm5 As Long) As Long
  • Function ApplyPreset(ByVal PresetFileName As String, ByVal PresetName As String) As Long
  • Function ApplyPresetEnvelope(ByVal PresetNumber As Long, ByVal MappingMode As Long, ByVal KeepLines As Boolean) As Long
  • Function ApplyRotatedExtrude(ByVal ExtrudeType As Long, ByVal Depth As Long, ByVal XRotation As Long, ByVal YRotation As Long, ByVal ZRotation As Long, ByVal VPHorizPos As Long, ByVal VPVertPos As Long, ByVal PageOrigin As Boolean, ByVal Light1Pos As Long, ByVal Light1Intensity As Long, ByVal Light2Pos As Long, ByVal Light2Intensity As Long, ByVal Light3Pos As Long, ByVal Light3Intensity As Long, ByVal FillType As Long, ByVal DrapeFill As Boolean) As Long
  • Function ApplyStyle(ByVal Style As String) As Long
  • Function ApplyTextureBitmapLens(ByVal TextureLibrary As String, ByVal TextureName As String, ByVal TextureStyle As String, ByVal TextureWidth As Long, ByVal TextureHeight As Long, ByVal TextureOffsetX As Long, ByVal TextureOffsetY As Long, ByVal RowOffset As Boolean, ByVal RowColumnOffset As Long, ByVal ScaleWithObject As Boolean, ByVal RotationAngle As Long, ByVal SkewAngle As Long, ByVal Starting As Long, ByVal Ending As Long, ByVal Operation As Long, ByVal Freeze As Boolean) As Long
  • Function ApplyTextureFill(ByVal TextureLibrary As String, ByVal TextureName As String, ByVal TextureStyle As String, ByVal TextureWidth As Long, ByVal TextureHeight As Long, ByVal TextureOffestX As Long, ByVal TextureOffsetY As Long, ByVal RowOffset As Boolean, ByVal RowColumnOffset As Long, ByVal ScaleWithObject As Boolean, ByVal RotationAngle As Long, ByVal SkewAngle As Long) As Long
  • Function ApplyTwoColorBitmapLens(ByVal FileName As String, ByVal TileWidth As Long, ByVal TileHeight As Long, ByVal FirstTileOffsetX As Long, ByVal FirstTileOffsetY As Long, ByVal RowOffset As Boolean, ByVal RowColumnOffset As Long, ByVal SeamlessTiling As Boolean, ByVal ScaleWithObject As Boolean, ByVal RotationAngle As Long, ByVal SkewAngle As Long, ByVal Starting As Long, ByVal Ending As Long, ByVal Operation As Long, ByVal Freeze As Boolean) As Long
  • Function ApplyTwoColorFill(ByVal FileName As String, ByVal TileWidth As Long, ByVal TileHeight As Long, ByVal FirstTileOffsetX As Long, ByVal FirstTileOffsetY As Long, ByVal RowOffset As Boolean, ByVal RowColumnOffset As Long, ByVal SeamlessTiling As Boolean, ByVal ScaleWithObject As Boolean, ByVal RotationAngle As Long, ByVal SkewAngle As Long) As Long
  • Function ApplyUniformBitmapLens(ByVal Starting As Long, ByVal Operation As Long, ByVal Freeze As Boolean) As Long
  • Function ApplyUniformFillColor() As Long
  • Function BeforeObject(ByVal CorelDRAWID As Long) As Long
  • Function BeginCommandGroup(ByVal UndoString As String) As Long
  • Function BeginDrawArrow(ByVal LeftArrow As Boolean, ByVal LineOffset As Long, ByVal NumOfPoints As Long) As Long
  • Function BeginDrawBezier(ByVal X As Long, ByVal Y As Long, ByVal Cusp As Boolean) As Long
  • Function BeginDrawCurve(ByVal X As Long, ByVal Y As Long) As Long
  • Function BeginDrawFreehand(ByVal ConvertToDPCoords As Boolean, ByVal X As Long, ByVal Y As Long) As Long
  • Function BeginEditObject() As Long
  • Function Benchmark(ByVal Enable As Boolean) As Long
  • Function BreakApart() As Long
  • Function ChangeLayerColor(ByVal LayerName As String, ByVal PageNum As Long) As Long
  • Function ChangeLayerName(ByVal NewLayerName As String) As Long
  • Function ClearAllObjectData() As Long
  • Function ClearEffect(ByVal LeaveTarget As Boolean) As Long
  • Function ClearNodeSelection() As Long
  • Function ClearObjectData(ByVal FieldName As String) As Long
  • Function ClickedDialogButton(ByVal DialogID As Long, ByVal ButtonID As Long) As Long
  • Function CloneObject(ByVal XOffset As Long, ByVal YOffset As Long) As Long
  • Function CloseCurve() As Long
  • Function Combine() As Long
  • Function ConvertBitmapTo(ByVal EffectID As Long) As Long
  • Function ConvertColor(ByVal ToColorModel As Long, ByRef ToV1 As Long, ByRef ToV2 As Long, ByRef ToV3 As Long, ByRef ToV4 As Long, ByRef ToV5 As Long, ByRef ToV6 As Long, ByRef ToDensity As Long) As Long
  • Function ConvertOutlineToObject() As Long
  • Function ConvertToBitmap(ByVal BitDepth As Long, ByVal Grayscale As Boolean, ByVal Dithered As Boolean, ByVal TransparentBG As Boolean, ByVal Resolution As Long, ByVal AntiAliasing As Long, ByVal UseColorProfile As Boolean) As Long
  • Function ConvertToCurves() As Long
  • Function CopyEffectFrom(ByVal Clone As Boolean, ByVal SourceObjectID As Long) As Long
  • Function CopyObjectDataFields(ByVal Index As Long) As Long
  • Function CopyPowerClip(ByVal Index As Long, ByVal XDisp As Long, ByVal YDisp As Long) As Long
  • Function CopyPropertiesFrom(ByVal FromObjectID As Long, ByVal OutlinePen As Boolean, ByVal OutlineColor As Boolean, ByVal Fill As Boolean, ByVal TextAttributes As Boolean) As Long
  • Function CopyToClipboard() As Long
  • Function CopyToLayer(ByVal LayerName As String) As Long
  • Function CreateAngleDimension(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long, ByVal LargeAngle As Boolean, ByVal WitnessExtension As Long, ByVal WitnessGap As Long, ByVal LabelGap As Long) As Long
  • Function CreateArtisticText(ByVal NewText As String, ByVal Left As Long, ByVal Top As Long) As Long
  • Function CreateCallout(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal Text As String) As Long
  • Function CreateConnector(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal Placement As Boolean) As Long
  • Function CreateDimension(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal Style As Long, ByVal WitnessExtension As Long, ByVal WitnessGap As Long, ByVal LabelGap As Long) As Long
  • Function CreateEllipse(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal StartAngle As Long, ByVal EndAngle As Long, ByVal Arc As Boolean) As Long
  • Function CreateGridBoxes(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal Wide As Long, ByVal High As Long) As Long
  • Function CreateGuidelineUsingAngle(ByVal IntersectPointX As Long, ByVal IntersectPointY As Long, ByVal Angle As Long, ByVal Locked As Boolean) As Long
  • Function CreateGuidelineUsingTwoPoints(ByVal Point1X As Long, ByVal Point1Y As Long, ByVal Point2X As Long, ByVal Point2Y As Long, ByVal Locked As Boolean) As Long
  • Function CreateNewStyle(ByVal StyleType As Long, ByVal StyleName As String) As Long
  • Function CreateObjectDataField(ByVal FieldName As String, ByVal Format As String, ByVal Order As Long, ByVal ColumnWidth As Long, ByVal DrawDefault As Boolean, ByVal DocDefault As Boolean, ByVal SummarizeGroup As Boolean) As Long
  • Function CreatePaletteFromDocument(ByVal FileName As String, ByVal Overwrite As Boolean) As Long
  • Function CreatePaletteFromSelection(ByVal FileName As String, ByVal Overwrite As Boolean) As Long
  • Function CreateRectangle(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal CornerRadius As Long, ByVal CornerRadius2 As Long, ByVal CornerRadius3 As Long, ByVal CornerRadius4 As Long) As Long
  • Function CreateSpiral(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal NumRevolutions As Long, ByVal SpiralType As Long, ByVal GrowthRate As Long) As Long
  • Function CreateSymPolygon(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal Sides As Long, ByVal Subpaths As Long, ByVal Complexity As Long, ByVal Star As Boolean, ByVal StarComplexity As Long, ByVal MaxComplexity As Long) As Long
  • Function CreateTextString(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal Text As String) As Long
  • Function CutToClipboard() As Long
  • Function DefineObjectDataField(ByVal FieldName As String, ByVal Format As String, ByVal DrawDefault As Boolean, ByVal DocDefault As Boolean, ByVal SummarizeGroup As Boolean) As Long
  • Function DeleteGuidelineByIndex(ByVal Index As Long) As Long
  • Function DeleteGuidelineUsingAngle(ByVal IntersectX As Long, ByVal IntersectY As Long, ByVal Angle As Long) As Boolean
  • Function DeleteGuidelineUsingTwoPoints(ByVal Point1X As Long, ByVal Point1Y As Long, ByVal Point2X As Long, ByVal Point2Y As Long) As Boolean
  • Function DeleteLayer(ByVal LayerName As String) As Long
  • Function DeleteNode() As Long
  • Function DeleteObject() As Long
  • Function DeleteObjectDataField(ByVal FieldName As String) As Long
  • Function DeletePages(ByVal UnusedParameter As Boolean, ByVal NumberOfPages As Long, ByVal StartPageNumber As Long) As Long
  • Function DeletePaletteColor(ByVal Index As Long) As Long
  • Function DeleteStyle(ByVal Style As String) As Long
  • Function DetachBlendPath() As Long
  • Function DisplayFacingPages(ByVal FacingPages As Boolean, ByVal LeftFirst As Boolean) As Long
  • Function DistributeObjects(ByVal HorizontalDistribution As Long, ByVal VerticalDistribution As Long, ByVal ObjectOrPageExtents As Long) As Long
  • Function DrawCurveClosePath() As Long
  • Function DrawCurveCurveTo(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal XEnd As Long, ByVal YEnd As Long) As Long
  • Function DrawCurveLineTo(ByVal X As Long, ByVal Y As Long) As Long
  • Function DrawCurveMoveTo(ByVal X As Long, ByVal Y As Long) As Long
  • Function DropSymbol(ByVal SymbolLibrary As String, ByVal SymbolNumber As Long, ByVal Tile As Boolean, ByVal XPosOrGridSize As Long, ByVal YPosOrGridSize As Long, ByVal ProportionalSizing As Boolean, ByVal SymbolSize As Long) As Long
  • Function DuplicateObject(ByVal XOffset As Long, ByVal YOffset As Long) As Long
  • Function EditAngleDimensionLabel(ByVal Dynamic As Boolean, ByVal Precision As Integer, ByVal Units As Integer, ByVal ShowUnits As Boolean, ByVal Prefix As String, ByVal Suffix As String) As Long
  • Function EditDimensionLabel(ByVal Placement As Integer, ByVal Horizontal As Boolean, ByVal Center As Boolean, ByVal Dynamic As Boolean, ByVal Style As Integer, ByVal Precision As Integer, ByVal Units As Integer, ByVal ShowUnits As Boolean, ByVal Prefix As String, ByVal Suffix As String) As Long
  • Function EditLayer(ByVal LayerName As String, ByVal PageNum As Long, ByVal NewName As String, ByVal Visible As Boolean, ByVal Printable As Boolean, ByVal Locked As Boolean, ByVal Master As Boolean, ByVal WireOverride As Boolean, ByVal ChangeColor As Boolean) As Long
  • Function EditObjectCommand(ByVal Cmd As Long, ByVal X As Long, ByVal Y As Long, ByVal key As Long, ByVal AddToSelection As Boolean) As Long
  • Function EndCommandGroup() As Long
  • Function EndDrawArrow() As Long
  • Function EndDrawBezier() As Long
  • Function EndDrawCurve() As Long
  • Function EndDrawFreehand(ByVal StraightTightness As Long, ByVal CurveTightness As Long, ByVal CornerThreshold As Long, ByVal SnapTightness As Long) As Long
  • Function EndEditObject() As Long
  • Function EndOfRecording() As Long
  • Function ExtractContents() As Long
  • Function ExtractText(ByVal DestinationFile As String) As Boolean
  • Function FileClose(ByVal PromptUser As Boolean) As Boolean
  • Function FileExit(ByVal PromptUser As Boolean) As Boolean
  • Function FileExport(ByVal FileName As String, ByVal FilterId As Long, ByVal Width As Long, ByVal Height As Long, ByVal XResolution As Long, ByVal YResolution As Long, ByVal ImageType As Long, ByVal AntiAliasing As Long, ByVal Overwrite As Boolean, ByVal SelectionOnly As Boolean) As Long
  • Function FileImport(ByVal FileName As String, ByVal FilterId As Long, ByVal MaintainLayersAndPages As Boolean) As Long
  • Function FileNew() As Long
  • Function FileOpen(ByVal FileName As String) As Long
  • Function FilePrint() As Long
  • Function FileSave(ByVal FileName As String, ByVal ThumbnailSize As Long, ByVal SaveSelectedOnly As Boolean, ByVal FileVersion As Long, ByVal IncludeCMXData As Boolean) As Long
  • Function FindNextObjectOfStyle() As Boolean
  • Function FindObjectOfStyle(ByVal StyleName As String) As Boolean
  • Function FitTextToPath(ByVal TextOrientation As Long, ByVal VertAlign As Long, ByVal HorizAlign As Long, ByVal CurveSideToFit As Long, ByVal FitOtherSide As Boolean, ByVal HorizOffset As Long, ByVal DistFromPath As Long) As Long
  • Function FuseBlend(ByVal End As Boolean, ByVal PositionX As Long, ByVal PositionY As Long) As Long
  • Function GetBitmapResolution(ByRef XRes As Long, ByRef YRes As Long) As Long
  • Function GetBitmapSize(ByRef Width As Long, ByRef Height As Long) As Long
  • Function GetCDRFileCompRatio(ByVal FileName As String) As Long
  • Function GetCDRFileKeywords(ByVal FileName As String) As String
  • Function GetCDRFileLastSavedBy(ByVal FileName As String) As String
  • Function GetCDRFileNotes(ByVal FileName As String) As String
  • Function GetCDRFileThumbnail(ByVal CDRFileName As String, ByVal BMPFileName As String) As Long
  • Function GetCDRFileVersion(ByVal FileName As String) As Long
  • Function GetColor(ByVal StoreColor As Boolean, ByRef ColorModel As Long, ByRef V1 As Long, ByRef V2 As Long, ByRef V3 As Long, ByRef V4 As Long, ByRef V5 As Long, ByRef V6 As Long, ByRef V7 As Long) As Long
  • Function GetCurrentPageName() As String
  • Function GetCurrentPageOrientation() As Long
  • Function GetCurrentPageSize(ByRef Width As Long, ByRef Height As Long) As Long
  • Function GetCurrentPaletteName() As String
  • Function GetCurrentWorkspaceName() As String
  • Function GetCurveClose() As Long
  • Function GetCurveFirstNodePosition(ByRef X As Long, ByRef Y As Long) As Long
  • Function GetCurveIthNodePosition(ByVal Index As Long, ByRef X As Long, ByRef Y As Long) As Long
  • Function GetCurveLastNodePosition(ByRef X As Long, ByRef Y As Long) As Long
  • Function GetCurveLength() As Long
  • Function GetCurveNodeCount() As Long
  • Function GetCurveSubpathCount() As Long
  • Function GetDocumentCount() As Long
  • Function GetDocumentName() As String
  • Function GetEllipseClockwise() As Boolean
  • Function GetEllipseEndAngle() As Double
  • Function GetEllipseStartAngle() As Double
  • Function GetEllipseType() As Long
  • Function GetFillType() As Long
  • Function GetFountainFill(ByRef Type As Long, ByRef CenterX As Long, ByRef CenterY As Long, ByRef Angle As Long, ByRef Steps As Long, ByRef Padding As Long, ByRef Blend As Long, ByRef Rate As Long, ByRef NumColors As Long) As Long
  • Function GetFountainFillColor(ByVal Index As Long, ByRef Position As Long, ByRef ColorModel As Long, ByRef V1 As Long, ByRef V2 As Long, ByRef V3 As Long, ByRef V4 As Long, ByRef V5 As Long, ByRef V6 As Long, ByRef Density As Long) As Long
  • Function GetGuidelineInformation(ByVal Index As Long, ByRef Point1X As Long, ByRef Point1Y As Long, ByRef Point2X As Long, ByRef Point2Y As Long, ByRef InterceptX As Long, ByRef InterceptY As Long, ByRef Angle As Long, ByRef Locked As Boolean) As Long
  • Function GetNodeIndex(ByVal Position As Long) As Long
  • Function GetNodePosition(ByRef X As Long, ByRef Y As Long, ByVal Position As Long) As Long
  • Function GetNodeSelectedCount() As Long
  • Function GetNodeType() As Long
  • Function GetNumberOfGuidelines() As Long
  • Function GetObjectCount(ByVal Selection As Boolean, ByVal Grouped As Boolean) As Long
  • Function GetObjectData(ByVal FieldName As String) As String
  • Function GetObjectID(ByVal Index As Long, ByVal Selection As Boolean, ByVal Grouped As Boolean) As Long
  • Function GetObjectsCDRStaticID() As Long
  • Function GetObjectType() As Long
  • Function GetOutline(ByRef Width As Long, ByRef Type As Long, ByRef EndCaps As Long, ByRef JoinType As Long, ByRef Aspect As Long, ByRef Angle As Long, ByRef DotDash As Long, ByRef RightArrow As Long, ByRef LeftArrow As Long, ByRef BehindFill As Boolean, ByRef ScalePen As Boolean) As Long
  • Function GetOutlineColor(ByRef ColorModel As Long, ByRef V1 As Long, ByRef V2 As Long, ByRef V3 As Long, ByRef V4 As Long, ByRef V5 As Long, ByRef V6 As Long, ByRef Density As Long) As Long
  • Function GetPageCount() As Long
  • Function GetPageSize(ByRef Width As Long, ByRef Height As Long) As Long
  • Function GetPaletteColor(ByVal Index As Long, ByRef ColorModel As Long, ByRef V1 As Long, ByRef V2 As Long, ByRef V3 As Long, ByRef V4 As Long, ByRef V5 As Long, ByRef V6 As Long, ByRef V7 As Long) As Long
  • Function GetPaletteColorCount() As Long
  • Function GetPaletteColorName(ByVal Index As Long) As String
  • Function GetPolygonSharpness() As Long
  • Function GetPolygonSides() As Long
  • Function GetPolygonType() As Long
  • Function GetPosition(ByRef XPos As Long, ByRef YPos As Long) As Long
  • Function GetRectangleRadius(ByRef Radius1 As Double, ByRef Radius2 As Double, ByRef Radius3 As Double, ByRef Radius4 As Double) As Long
  • Function GetSegmentLength() As Long
  • Function GetSegmentType() As Long
  • Function GetSize(ByRef XSize As Long, ByRef YSize As Long) As Long
  • Function GetTextFontName() As String
  • Function GetTextFontSize() As Long
  • Function GetTextString() As String
  • Function GetTextWordCount() As Long
  • Function GetUniformFillColor(ByRef ColorModel As Long, ByRef V1 As Long, ByRef V2 As Long, ByRef V3 As Long, ByRef V4 As Long, ByRef V5 As Long, ByRef V6 As Long, ByRef Density As Long) As Long
  • Function GetUserClick(ByRef XCoord As Long, ByRef YCoord As Long, ByVal TimeOut As Long, ByVal IgnoreSnap As Boolean) As Long
  • Function GetUserDataField(ByVal FieldName As String) As String
  • Function GetWorkspaceCount() As Long
  • Function GetWorkspaceDescription(ByVal Name As String) As String
  • Function GetWorkspaceName(ByVal Index As Long) As String
  • Function Group() As Long
  • Function InflateBitmap(ByVal Width As Long, ByVal Height As Long, ByVal InflationType As Long) As Long
  • Function InitBezierTool() As Long
  • Function InsertOLEObject(ByVal ProgID As String) As Long
  • Function InsertOLEObjectFromFile(ByVal FileName As String, ByVal CreateLink As Boolean) As Long
  • Function InsertPages(ByVal BeforePage As Boolean, ByVal NumberOfPages As Long, ByVal StartPageNumber As Long) As Long
  • Function InsertPaletteColor(ByVal Index As Long, ByVal Name As String, ByVal ColorModel As Long, ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal V5 As Long, ByVal V6 As Long, ByVal V7 As Long) As Long
  • Function Intersection(ByVal LeaveTarget As Boolean, ByVal LeaveModifiers As Boolean) As Long
  • Function IsBitmapExternallyLinked() As Boolean
  • Function IsDefaultWorkspace(ByVal Name As String) As Long
  • Function IsDocument() As Boolean
  • Function IsSelection() As Boolean
  • Function LoadPalette(ByVal FileName As String) As Long
  • Function LoadStyles(ByVal StyleSheet As String) As Long
  • Function LockGuidelineByIndex(ByVal Index As Long) As Long
  • Function MenuCommand(ByVal MenuID As Long) As Long
  • Function MergeBackText(ByVal SourceFile As String) As Boolean
  • Function MoveBezierControl(ByVal X As Long, ByVal Y As Long, ByVal Constrain As Boolean) As Long
  • Function MoveCenter(ByVal AnchorID As Long, ByVal XOffset As Long, ByVal YOffset As Long) As Long
  • Function MoveGuidelineUsingAngleByIndex(ByVal Index As Long, ByVal InterceptX As Long, ByVal InterceptY As Long, ByVal Angle As Long, ByVal Locked As Boolean) As Long
  • Function MoveGuidelineUsingTwoPointsByIndex(ByVal Index As Long, ByVal Point1X As Long, ByVal Point1Y As Long, ByVal Point2X As Long, ByVal Point2Y As Long, ByVal Locked As Boolean) As Long
  • Function MoveLayerTo(ByVal DestLayer As String, ByVal BeforeDest As Boolean) As Long
  • Function MoveNode(ByVal DeltaX As Long, ByVal DeltaY As Long) As Long
  • Function MoveObject(ByVal XDelta As Long, ByVal YDelta As Long) As Long
  • Function MoveToLayer(ByVal LayerName As String) As Long
  • Function NewLayer(ByVal LayerName As String) As Long
  • Function OLEObjectDoVerb(ByVal Verb As Long) As Long
  • Function OrderBackOne() As Long
  • Function OrderForwardOne() As Long
  • Function OrderObjectDataFields(ByVal FieldToMove As Long, ByVal NewPosition As Long) As Long
  • Function OrderReverseOrder() As Long
  • Function OrderToBack() As Long
  • Function OrderToFront() As Long
  • Function OverprintFill() As Long
  • Function OverprintOutline() As Long
  • Function PasteCustomClipboardFormat(ByVal Format As String) As Long
  • Function PasteFromClipboard() As Boolean
  • Function PasteObjectData(ByVal Index As Long, ByVal FieldName As String) As Long
  • Function PasteSystemClipboardFormat(ByVal Format As Long) As Long
  • Function PlaceInside(ByVal Index As Long, ByVal XDisp As Long, ByVal YDisp As Long, ByVal ForceCenter As Boolean, ByVal Center As Boolean) As Long
  • Function RecorderApplyPerspective(ByVal Type As Long, ByVal Flags As Long, ByVal Box0X As Long, ByVal Box0Y As Long, ByVal Box1X As Long, ByVal Box1Y As Long, ByVal Box2X As Long, ByVal Box2Y As Long, ByVal Box3X As Long, ByVal Box3Y As Long, ByVal VPHorizRef As Long, ByVal VPHorizX As Long, ByVal VPHorizY As Long, ByVal VPVertRef As Long, ByVal VPVertX As Long, ByVal VPVertY As Long) As Long
  • Function RecorderBeginEditParaText() As Long
  • Function RecorderBeginEditText() As Long
  • Function RecorderEditParaReplaceText(ByVal String As String) As Long
  • Function RecorderEditParaTextChangeCase(ByVal CaseID As Long) As Long
  • Function RecorderEditParaTextCharAttributes(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal FontName As String, ByVal FontStyle As Long, ByVal PointSize As Long, ByVal Underline As Long, ByVal Overline As Long, ByVal StrikeOut As Long, ByVal Placement As Long) As Long
  • Function RecorderEditParaTextIndents(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal FirstLine As Long, ByVal RestOfLines As Long, ByVal RightMargin As Long) As Long
  • Function RecorderEditParaTextSpacing(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal CharacterSpacing As Long, ByVal WordSpacing As Long, ByVal LineSpacing As Long, ByVal BeforeParagraph As Long, ByVal AfterParagraph As Long, ByVal Alignment As Long, ByVal AutoHyphenation As Boolean, ByVal HyphenHotZone As Long, ByVal Direction As Long) As Long
  • Function RecorderEditReplaceText(ByVal String As String) As Long
  • Function RecorderEditTextChangeCase(ByVal CaseID As Long) As Long
  • Function RecorderEditTextCharAttributes(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal FontName As String, ByVal FontStyle As Long, ByVal PointSize As Long, ByVal Underline As Long, ByVal Overline As Long, ByVal StrikeOut As Long, ByVal Placement As Long, ByVal Effect As Long, ByVal CharacterSpacing As Long, ByVal WordSpacing As Long, ByVal LineSpacing As Long, ByVal Alignment As Long, ByVal Direction As Long) As Long
  • Function RecorderEndEditParaText() As Long
  • Function RecorderEndEditText() As Long
  • Function RecorderObjectScaleInfo(ByVal ScaledSizeX As Long, ByVal ScaledSizeY As Long, ByVal DisplacementX As Long, ByVal DisplacementY As Long) As Long
  • Function RecorderSelectObjectByIndex(ByVal ClearFirst As Boolean, ByVal Index As Long) As Long
  • Function RecorderSelectObjectsByIndex(ByVal ClearFirst As Boolean, ByVal Index1 As Long, ByVal Index2 As Long, ByVal Index3 As Long, ByVal Index4 As Long, ByVal Index5 As Long) As Long
  • Function RecorderSelectPreselectedObjects(ByVal ClearFirst As Boolean) As Long
  • Function RecorderStorePreselectedObjects(ByVal ConvertPreset As Boolean) As Long
  • Function Redo() As Long
  • Function RedrawAllScreens() As Long
  • Function RedrawScreen() As Long
  • Function RegisterObject(ByVal ObjectID As String) As Boolean
  • Function RemoveAllGuidelines() As Long
  • Function RemoveFountainFillColor(ByVal Position As Long) As Long
  • Function RenameObjectDataField(ByVal OldFieldName As String, ByVal NewFieldName As String) As Long
  • Function RenameStyle(ByVal OldName As String, ByVal NewName As String) As Long
  • Function Repeat() As Long
  • Function RepeatLastCommand() As Long
  • Function ReplacePaletteColor(ByVal Index As Long, ByVal Name As String, ByVal ColorModel As Long, ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal V5 As Long, ByVal V6 As Long, ByVal V7 As Long) As Long
  • Function ResetTransfo() As Long
  • Function ResolveAllBitmapsLink() As Long
  • Function ResolveBitmapLink() As Long
  • Function ResumePainting() As Long
  • Function RevertToStyle() As Long
  • Function RotateObject(ByVal Angle As Long, ByVal UseObjectsCenter As Boolean, ByVal XCenter As Long, ByVal YCenter As Long) As Long
  • Function SavePalette(ByVal FileName As String, ByVal Overwrite As Boolean) As Long
  • Function SaveStyleAs(ByVal Style As String, ByVal Fill As Boolean, ByVal Outline As Boolean, ByVal TypeFace As Boolean, ByVal TypeStyle As Boolean, ByVal Size As Boolean, ByVal Justify As Boolean, ByVal Tabs As Boolean, ByVal Hyphenation As Boolean, ByVal SpaceChar As Boolean, ByVal SpaceWord As Boolean, ByVal SpaceLine As Boolean, ByVal BeforePara As Boolean, ByVal AfterPara As Boolean, ByVal Underline As Boolean, ByVal Overline As Boolean, ByVal StrikeOut As Boolean, ByVal BulletIndent As Boolean, ByVal FirstLineIndent As Boolean, ByVal RestOfLinesIndent As Boolean, ByVal RightMargin As Boolean, ByVal SuperOrSubScript As Boolean, ByVal Capitalize As Boolean, ByVal Bullet As Boolean) As Long
  • Function SaveStyleProp(ByVal StyleName As String, ByVal UseFill As Boolean, ByVal UseOutline As Boolean, ByVal UseFont As Long, ByVal UseAlignment As Long, ByVal UseSpacing As Long, ByVal UseLines As Long, ByVal UseIndentsAndMargins As Long, ByVal UseTextEffects As Long) As Long
  • Function SaveTemplate(ByVal StyleSheet As String) As Long
  • Function SelectAllObjects() As Long
  • Function SelectLayer(ByVal LayerName As String) As Long
  • Function SelectNextNode() As Long
  • Function SelectNextObject(ByVal SelectInsideGroup As Boolean) As Boolean
  • Function SelectNode(ByVal Index As Long, ByVal AddToSelection As Boolean) As Long
  • Function SelectNodeAt(ByVal X As Long, ByVal Y As Long, ByVal AddToSelection As Boolean) As Long
  • Function SelectObjectAtPoint(ByVal XPos As Long, ByVal YPos As Long, ByVal SelectInsideGroup As Boolean) As Boolean
  • Function SelectObjectOfCDRStaticID(ByVal CorelDRAWID As Long) As Boolean
  • Function SelectObjectOfType(ByVal Type As Long) As Long
  • Function SelectObjectsInRect(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long, ByVal IncludeIntersecting As Boolean) As Boolean
  • Function SelectPreviousObject(ByVal SelectInsideGroup As Boolean) As Boolean
  • Function Separate() As Long
  • Function SetApplyToDuplicate(ByVal ApplyToDuplicate As Boolean) As Long
  • Function SetArtisticText(ByVal String As String) As Long
  • Function SetBullet(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal SymbolLibrary As String, ByVal SymbolNumber As Long, ByVal PointSize As Long, ByVal BulletIndent As Long, ByVal VerticalShift As Long) As Long
  • Function SetCharacterAttributes(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal FontName As String, ByVal FontStyle As Long, ByVal PointSize As Long, ByVal Underline As Long, ByVal Overline As Long, ByVal StrikeOut As Long, ByVal Placement As Long, ByVal CharacterSpacing As Long, ByVal WordSpacing As Long, ByVal LineSpacing As Long, ByVal Alignment As Long) As Long
  • Function SetColorOverride(ByVal Override As Boolean) As Long
  • Function SetCornerRoundness(ByVal Roundness As Long, ByVal Roundness2 As Long, ByVal Roundness3 As Long, ByVal Roundness4 As Long) As Long
  • Function SetCurrentDocument() As Boolean
  • Function SetCurrentPage(ByVal CurrentPage As Long) As Long
  • Function SetCurrentPageName(ByVal Name As String) As Long
  • Function SetCurrentPageOrientation(ByVal Orient As Long) As Long
  • Function SetCurrentPageSize(ByVal Width As Long, ByVal Height As Long) As Long
  • Function SetCurrentWorkspace(ByVal Name As String) As Long
  • Function SetDocVisible(ByVal Show As Boolean) As Long
  • Function SetEllipseProperties(ByVal Arc As Boolean, ByVal StartAngle As Long, ByVal EndAngle As Long) As Long
  • Function SetErrorHandling(ByVal Msg As Boolean) As Boolean
  • Function SetFrameColumn(ByVal ColumnNumber As Long, ByVal Width As Long, ByVal GutterWidth As Long) As Long
  • Function SetFullScreenPreview(ByVal FullScreen As Boolean) As Long
  • Function SetIndents(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal FirstLine As Long, ByVal RestOfLines As Long, ByVal RightMargin As Long) As Long
  • Function SetLayerLocked(ByVal Locked As Boolean, ByVal LayerName As String, ByVal PageNum As Long) As Long
  • Function SetLayerPrintable(ByVal Printable As Boolean, ByVal LayerName As String, ByVal PageNum As Long) As Long
  • Function SetLayerVisible(ByVal Visible As Boolean, ByVal LayerName As String, ByVal PageNum As Long) As Long
  • Function SetMultiLayer(ByVal MultiLayer As Boolean) As Long
  • Function SetNodeType(ByVal Type As Long) As Long
  • Function SetObjectData(ByVal FieldName As String, ByVal FieldValue As String) As Long
  • Function SetOptionsForAllPages(ByVal AllPages As Boolean) As Long
  • Function SetOutlineArrow(ByVal ArrowType As Long) As Long
  • Function SetOutlineColor() As Long
  • Function SetOutlineMiscProperties(ByVal Type As Long, ByVal Style As Long, ByVal Corners As Long, ByVal LineCaps As Long, ByVal Aspect As Long, ByVal Angle As Long, ByVal BehindFill As Boolean, ByVal ScalePen As Boolean) As Long
  • Function SetOutlineWidth(ByVal Width As Long) As Long
  • Function SetPageLayout(ByVal LayoutType As Long) As Long
  • Function SetPageOrientation(ByVal Orient As Long) As Long
  • Function SetPageSize(ByVal Width As Long, ByVal Height As Long) As Long
  • Function SetPageSizeFromPrinter() As Long
  • Function SetPaperColor() As Long
  • Function SetParagraphSpacing(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal CharacterSpacing As Long, ByVal WordSpacing As Long, ByVal LineSpacing As Long, ByVal BeforeParagraph As Long, ByVal AfterParagraph As Long, ByVal Alignment As Long, ByVal AutoHyphenation As Boolean, ByVal HyphenHotZone As Long) As Long
  • Function SetPolygonProperties(ByVal Star As Boolean, ByVal Points As Long, ByVal Sharpness As Long) As Long
  • Function SetPosition(ByVal XPos As Long, ByVal YPos As Long) As Long
  • Function SetReferencePoint(ByVal ReferencePoint As Long) As Long
  • Function SetSegmentType(ByVal Type As Long) As Long
  • Function SetSize(ByVal XSize As Long, ByVal YSize As Long) As Long
  • Function SetTextString(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long, ByVal Text As String) As Long
  • Function SetToMasterLayer(ByVal Master As Boolean, ByVal LayerName As String) As Long
  • Function SetUserDataField(ByVal FieldName As String, ByVal FieldValue As String) As Long
  • Function SetVisible(ByVal Visible As Boolean) As Long
  • Function ShareExtrudeVP(ByVal ExtrudeIndex As Long, ByVal VPToShareIndex As Long, ByVal SharedVP As Boolean) As Long
  • Function ShowPageBorder(ByVal ShowBorder As Boolean) As Long
  • Function SkewObject(ByVal XAngle As Long, ByVal YAngle As Long, ByVal Reference As Long) As Long
  • Function SplitBlend(ByVal PositionX As Long, ByVal PositionY As Long) As Long
  • Function StartEditContents() As Long
  • Function StartOfRecording() As Long
  • Function StopEditContents() As Long
  • Function StoreColor(ByVal ColorModel As Long, ByVal V1 As Long, ByVal V2 As Long, ByVal V3 As Long, ByVal V4 As Long, ByVal V5 As Long, ByVal V6 As Long, ByVal V7 As Long, ByVal Position As Long) As Long
  • Function StraightenText(ByVal FirstSelectedChar As Long, ByVal LastSelectedChar As Long) As Long
  • Function StretchObject(ByVal XScaleNumerator As Double, ByVal XScaleDenominator As Double, ByVal YScaleNumerator As Double, ByVal YScaleDenominator As Double, ByVal HMirror As Boolean, ByVal VMirror As Boolean, ByVal ReferenceNum As Long) As Long
  • Function SuppressPainting(ByVal ShowDialog As Boolean) As Long
  • Function Trim(ByVal LeaveTarget As Boolean, ByVal LeaveModifiers As Boolean) As Long
  • Function Undo() As Long
  • Function Ungroup() As Long
  • Function UngroupAll() As Long
  • Function UnlockGuidelineByIndex(ByVal Index As Long) As Long
  • Function UnRegisterObject(ByVal ObjectID As String) As Boolean
  • Function UnSelectAll() As Long
  • Function UpdateBitmapLink() As Long
  • Function Weld(ByVal LeaveTarget As Boolean, ByVal LeaveModifiers As Boolean) As Long
  • Function ZoomIn() As Long
  • Function ZoomOut() As Long
  • Function ZoomToAllObjects() As Long
  • Function ZoomToHeight() As Long
  • Function ZoomToPage() As Long
  • Function ZoomToRectangle(ByVal Top As Long, ByVal Left As Long, ByVal Bottom As Long, ByVal Right As Long) As Long
  • Function ZoomToSelection() As Long
  • Function ZoomToWidth() As Long

Class CorelScriptFile

Properties:

  • Property Application As Object [r/o]
  • Property FileName As String [r/o]
  • Property Name As String [r/w]
  • Property Parent As Object [r/o]

Methods:

  • Sub Delete()
  • Sub Play([ByVal Document As Object = Nothing])
  • Sub Translate([ByVal Document As Object = Nothing])

Class CorelScriptTools

Methods:

  • Function AngleConvert(ByVal FromUnit As Long, ByVal ToUnit As Long, ByVal Value As Double) As Double
  • Function ASin(ByVal Value As Double) As Double
  • Sub BeginWaitCursor()
  • Function BuildDate(ByVal Year As Long, ByVal Month As Long, ByVal Day As Long) As Date
  • Function BuildTime(ByVal Hour As Long, ByVal Minute As Long, ByVal Second As Long) As Date
  • Function Dec(ByVal Hex As String) As Long
  • Sub EndWaitCursor()
  • Function FileAttr(ByVal FolderFile As String) As Long
  • Function FindFirstFolder(ByVal SearchCriteria As String, ByVal Attributes As Long) As String
  • Function FindNextFolder() As String
  • Function FormatTime(ByVal Time As Date, ByVal Format As String) As String
  • Function FromCentimeters(ByVal Value As Double) As Double
  • Function FromCiceros(ByVal Value As Double) As Double
  • Function FromDidots(ByVal Value As Double) As Double
  • Function FromInches(ByVal Value As Double) As Double
  • Function FromPicas(ByVal Value As Double) As Double
  • Function FromPoints(ByVal Value As Double) As Double
  • Function GetAppHandle() As Long
  • Function GetColor(ByRef Red As Long, ByRef Green As Long, ByRef Blue As Long) As Boolean
  • Function GetCommandLine() As String
  • Function GetCurrFolder() As String
  • Sub GetDateInfo(ByVal Date As Date, ByRef Year As Long, ByRef Month As Long, ByRef Day As Long, ByRef DayOfWeek As Long)
  • Function GetFileBox([ByVal Filter As String = "All Files (*.*)|*.*"], [ByVal Title As String = ""], [ByVal Type As Long = 0], [ByVal File As String = ""], [ByVal Extension As String = ""], [ByVal Folder As String = ""], [ByVal Button As String = ""]) As String
  • Function GetFolder([ByVal InitFolder As String = ""]) As String
  • Function GetFont(ByRef FaceName As String, ByRef PointSize As Long, ByRef Weight As Long, ByRef Italic As Boolean, ByRef Underline As Boolean, ByRef StrikeOut As Boolean, ByRef Red As Long, ByRef Green As Long, ByRef Blue As Long) As Boolean
  • Function GetProcessInfo(ByVal ProcessHandle As Long) As Long
  • Function GetScriptFolder() As String
  • Function GetTempFolder() As String
  • Sub GetTimeInfo(ByVal Time As Date, ByRef Hour As Long, ByRef Minute As Long, ByRef Second As Long)
  • Function GetType(ByVal Expression As Variant) As Long
  • Function GetVersion(ByVal Option As Long) As Long
  • Function GetWinHandle() As Long
  • Function Kill(ByVal FileName As String) As Boolean
  • Function LengthConvert(ByVal FromUnit As Long, ByVal ToUnit As Long, ByVal Value As Double) As Double
  • Function Log(ByVal Value As Double) As Double
  • Function MkFolder(ByVal Folder As String) As Boolean
  • Function RegistryQuery(ByVal MainKey As Long, ByVal SubKey As String, ByVal Value As String) As Variant
  • Function Rename(ByVal Src As String, ByVal Dst As String, [ByVal Overwrite As Long = 1]) As Boolean
  • Function RmFolder(ByVal Folder As String) As Boolean
  • Function ToCentimeters(ByVal Value As Double) As Double
  • Function ToCiceros(ByVal Value As Double) As Double
  • Function ToDidots(ByVal Value As Double) As Double
  • Function ToInches(ByVal Value As Double) As Double
  • Function ToPicas(ByVal Value As Double) As Double
  • Function ToPoints(ByVal Value As Double) As Double

Class CrossPoint

Properties:

  • Property Offset As Double [r/o]
  • Property PositionX As Double [r/o]
  • Property PositionY As Double [r/o]

Class CrossPoints

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As CrossPoint [r/o] [default]

Class Curve

Properties:

  • Property Closed As Boolean [r/w]
  • Property Length As Double [r/o]
  • Property Nodes As Nodes [r/o]
  • Property Segments As Segments [r/o]
  • Property Subpaths As Subpaths [r/o]

Methods:

  • Function CreateSubPath(ByVal X As Double, ByVal Y As Double) As SubPath
  • Function IsOnCurve(ByVal X As Double, ByVal Y As Double, [ByVal HotArea As Double = -1]) As cdrPositionOfPointOverShape
  • Sub ReverseDirection()
  • Function Selection() As NodeRange

Class DataField

Properties:

  • Property Application As Application [r/o]
  • Property DocDefault As Boolean [r/w]
  • Property DrawDefault As Boolean [r/w]
  • Property FieldWidth As Long [r/w]
  • Property Format As String [r/w]
  • Property FormatType As cdrDataFormatType [r/o]
  • Property Index As Long [r/o]
  • Property Name As String [r/w]
  • Property Parent As DataFields [r/o]
  • Property SummarizeGroup As Boolean [r/w]

Methods:

  • Sub Delete()
  • Sub Reorder(ByVal NewIndex As Long)

Class DataFields

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As DataField [r/o] [default]
  • Property Parent As Document [r/o]

Methods:

  • Function Add(ByVal Name As String, [ByVal Format As String], [ByVal DrawDefault As Boolean = False], [ByVal DocDefault As Boolean = False], [ByVal SummarizeGroup As Boolean = False]) As DataField

Class DataItem

Properties:

  • Property Application As Application [r/o]
  • Property DataField As DataField [r/o]
  • Property FormattedValue As String [r/o]
  • Property Parent As DataItems [r/o]
  • Property Value As Variant [r/w] [default]

Methods:

  • Sub Clear()

Class DataItems

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As DataItem [r/o] [default]
  • Property Parent As Shape [r/o]

Methods:

  • Function Add(ByVal DataField As DataField, [ByVal Value As Variant]) As DataItem
  • Sub Clear()
  • Sub CopyFrom(ByVal Shape As Shape)

Class Document

Properties:

  • Property Active As Boolean [r/o]
  • Property ActiveLayer As Layer [r/o]
  • Property ActivePage As Page [r/o]
  • Property ActivePowerClip As PowerClip [r/o]
  • Property ActiveShape As Shape [r/o]
  • Property ActiveWindow As Window [r/o]
  • Property Application As Application [r/o]
  • Property ApplyToDuplicate As Boolean [r/w]
  • Property CurvePrecision As Long [r/w]
  • Property DataFields As DataFields [r/o]
  • Property Dirty As Boolean [r/w]
  • Property DrawingOriginX As Double [r/w]
  • Property DrawingOriginY As Double [r/w]
  • Property EditAcrossLayers As Boolean [r/w]
  • Property FileName As String [r/o]
  • Property FilePath As String [r/o]
  • Property FullFileName As String [r/o]
  • Property Grid As Grid [r/o]
  • Property Index As Long [r/o]
  • Property Keywords As String [r/w]
  • Property Name As String [r/w]
  • Property Notes As String [r/w]
  • Property Pages As Pages [r/o]
  • Property Parent As Documents [r/o]
  • Property PDFSettings As PDFVBASettings [r/o]
  • Property PreserveSelection As Boolean [r/w]
  • Property PrintSettings As PrintSettings [r/o]
  • Property Properties As Properties [r/o]
  • Property ReferencePoint As cdrReferencePoint [r/w]
  • Property Resolution As Long [r/w]
  • Property Rulers As Rulers [r/o]
  • Property SelectionRange As ShapeRange [r/o]
  • Property ShapeEnumDirection As cdrShapeEnumDirection [r/w]
  • Property Title As String [r/o]
  • Property Unit As cdrUnit [r/w]
  • Property Views As Views [r/o]
  • Property Windows As Windows [r/o]
  • Property WorldScale As Double [r/w]

Methods:

  • Sub Activate()
  • Function AddPages(ByVal NumberOfPages As Long) As Page
  • Function AddPagesEx(ByVal NumberOfPages As Long, ByVal Width As Double, ByVal Height As Double) As Page
  • Sub BeginCommandGroup([ByVal CommandName As String])
  • Sub ClearSelection()
  • Sub Close()
  • Function CreateView(ByVal Name As String, ByVal OriginX As Double, ByVal OriginY As Double, [ByVal Zoom As Long = 0], [ByVal Page As Page = 0]) As View
  • Sub EndCommandGroup()
  • Sub Export(ByVal FileName As String, ByVal Filter As cdrFilter, [ByVal Range As cdrExportRange = cdrCurrentPage (1)], [ByVal Options As StructExportOptions = 0])
  • Function ExportBitmap(ByVal FileName As String, ByVal Filter As cdrFilter, [ByVal Range As cdrExportRange = cdrCurrentPage (1)], [ByVal ImageType As cdrImageType = cdrRGBColorImage (4)], [ByVal Width As Long = 0], [ByVal Height As Long = 0], [ByVal ResolutionX As Long = 72], [ByVal ResolutionY As Long = 72], [ByVal AntiAliasingType As cdrAntiAliasingType = cdrNormalAntiAliasing (1)], [ByVal Dithered As Boolean = False], [ByVal Transparent As Boolean = False], [ByVal UseColorProfile As Boolean = True], [ByVal Compression As cdrCompressionType = cdrCompressionNone (0)], [ByVal PaletteOptions As StructPaletteOptions]) As Object
  • Function ExportEx(ByVal FileName As String, ByVal Filter As cdrFilter, [ByVal Range As cdrExportRange = cdrCurrentPage (1)], [ByVal Options As StructExportOptions = 0], [ByVal PaletteOptions As StructPaletteOptions]) As Object
  • Function GetUserArea(ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double, ByRef ShiftState As Long, ByVal TimeOut As Long, ByVal Snap As Boolean, ByVal CursorShape As cdrCursorShape) As Long
  • Function GetUserClick(ByRef X As Double, ByRef Y As Double, ByRef ShiftState As Long, ByVal TimeOut As Long, ByVal Snap As Boolean, ByVal CursorShape As cdrCursorShape) As Long
  • Function InsertPages(ByVal NumberOfPages As Long, ByVal BeforePage As Boolean, ByVal Page As Long) As Page
  • Function InsertPagesEx(ByVal NumberOfPages As Long, ByVal BeforePage As Boolean, ByVal Page As Long, ByVal Width As Double, ByVal Height As Double) As Page
  • Sub PrintOut()
  • Sub PublishToPDF(ByVal FileName As String)
  • Sub Redo()
  • Sub Repeat()
  • Sub ResetSettings()
  • Sub ResolveAllBitmapsLinks()
  • Sub RestoreSettings([ByVal Tag As String])
  • Sub Save()
  • Sub SaveAs(ByVal FileName As String, [ByVal Options As StructSaveAsOptions = 0])
  • Sub SaveSettings([ByVal Tag As String])
  • Function Selection() As Shape
  • Sub Undo()

Events:

  • Event AfterPrint()
  • Event AfterSave(ByVal FileName As String)
  • Event AfterSaveAs(ByVal FileName As String)
  • Event BeforeClose()
  • Event BeforePrint()
  • Event BeforeSave()
  • Event BeforeSaveAs()
  • Event LayerCreated(ByRef Layer As Layer)
  • Event LayerDeleted(ByRef Layer As Layer)
  • Event LayerSelected(ByRef Layer As Layer)
  • Event PageCreated(ByRef Page As Page)
  • Event PageDeleted(ByRef Page As Page)
  • Event PageSelected(ByRef Page As Page)
  • Event SelectionChanged(ByRef Shape As Shape)
  • Event ShapeCreated(ByRef Shape As Shape)
  • Event ShapeDeleted(ByRef Shape As Shape)
  • Event ShapeMoved(ByRef Shape As Shape)

Class Documents

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Document [r/o] [default]
  • Property Parent As Application [r/o]

Class Effect

Properties:

Methods:


Class EffectArtistic

Properties:


Class EffectBlend

Properties:

  • Property AccelerateSize As Boolean [r/w]
  • Property Angle As Double [r/w]
  • Property Application As Application [r/o]
  • Property BlendGroup As Shape [r/o]
  • Property ColorAcceleration As Long [r/w]
  • Property ColorBlendType As cdrFountainFillBlendType [r/w]
  • Property EndShape As Shape [r/w]
  • Property EndShapeOffset As Double [r/w]
  • Property EndShapePoint As ShapePoint [r/w]
  • Property FullPath As Boolean [r/w]
  • Property LinkAcceleration As Boolean [r/w]
  • Property Loop As Boolean [r/w]
  • Property MapNodes As Boolean [r/w]
  • Property Mode As cdrBlendMode [r/w]
  • Property Parent As Effect [r/o]
  • Property Path As Shape [r/w]
  • Property RotateShapes As Boolean [r/w]
  • Property Spacing As Double [r/w]
  • Property SpacingAcceleration As Long [r/w]
  • Property StartShape As Shape [r/w]
  • Property StartShapeOffset As Double [r/w]
  • Property StartShapePoint As ShapePoint [r/w]
  • Property Steps As Long [r/w]

Methods:

  • Function CopyFrom(ByVal Source As EffectBlend) As Boolean
  • Function FuseEnd() As Boolean
  • Function FuseStart() As Boolean
  • Function Split(ByVal StepNo As Long) As Shape

Class EffectContour

Properties:

  • Property Application As Application [r/o]
  • Property ColorAcceleration As Long [r/w]
  • Property ColorBlendType As cdrFountainFillBlendType [r/w]
  • Property Direction As cdrContourDirection [r/w]
  • Property FillColor As Color [r/w]
  • Property FillColorTo As Color [r/w]
  • Property LinkAcceleration As Boolean [r/w]
  • Property Offset As Double [r/w]
  • Property OutlineColor As Color [r/w]
  • Property Parent As Effect [r/o]
  • Property SpacingAcceleration As Long [r/w]
  • Property Steps As Long [r/w]

Class EffectControlPath

Properties:


Class EffectDistortion

Properties:

Methods:

  • Sub CenterDistortion()

Class EffectDropShadow

Properties:

  • Property Application As Application [r/o]
  • Property Color As Color [r/w]
  • Property Fade As Long [r/w]
  • Property Feather As Long [r/w]
  • Property FeatherEdge As cdrEdgeType [r/w]
  • Property FeatherType As cdrFeatherType [r/w]
  • Property OffsetX As Double [r/w]
  • Property OffsetY As Double [r/w]
  • Property Opacity As Long [r/w]
  • Property Parent As Effect [r/o]
  • Property PerspectiveAngle As Double [r/w]
  • Property PerspectiveStretch As Double [r/w]
  • Property Type As cdrDropShadowType [r/w]

Methods:

  • Sub SetOffset(ByVal OffsetX As Double, ByVal OffsetY As Double)

Class EffectEnvelope

Properties:

Methods:

  • Sub CopyFrom(ByVal Source As EffectEnvelope)
  • Function CreateFrom(ByVal Shape As Shape) As Boolean
  • Sub Select(ByVal PresetIndex As Long)

Class EffectExtrude

Properties:

  • Property AngleX As Double [r/w]
  • Property AngleY As Double [r/w]
  • Property AngleZ As Double [r/w]
  • Property Application As Application [r/o]
  • Property BaseColor As Color [r/w]
  • Property BevelAngle As Double [r/w]
  • Property BevelColor As Color [r/w]
  • Property BevelDepth As Double [r/w]
  • Property BevelGroup As Shape [r/o]
  • Property Depth As Long [r/w]
  • Property ExtrudeGroup As Shape [r/o]
  • Property FaceShape As Shape [r/o]
  • Property FaceVisible As Boolean [r/o]
  • Property LightIntensity(ByVal Index As Long) As Long [r/w]
  • Property LightPosition(ByVal Index As Long) As cdrExtrudeLightPosition [r/w]
  • Property LightPresent(ByVal Index As Long) As Boolean [r/w]
  • Property Parent As Effect [r/o]
  • Property Shading As cdrExtrudeShading [r/w]
  • Property ShadingColor As Color [r/w]
  • Property ShowBevelOnly As Boolean [r/w]
  • Property Type As cdrExtrudeType [r/w]
  • Property UseBevel As Boolean [r/w]
  • Property UseExtrudeColorForBevel As Boolean [r/w]
  • Property UseFullColorRange As Boolean [r/w]
  • Property VanishingPoint As ExtrudeVanishingPoint [r/w]

Methods:

  • Sub CopyFrom(ByVal Source As EffectExtrude)
  • Sub Rotate(ByVal AngleX As Double, ByVal AngleY As Double, ByVal AngleZ As Double)
  • Sub SetBevel(ByVal Depth As Double, ByVal Angle As Double, ByVal ShowBevelOnly As Boolean)
  • Sub SetLight(ByVal Index As Long, ByVal Position As cdrExtrudeLightPosition, ByVal LightIntensity As Long)

Class EffectLens

Properties:

  • Property Application As Application [r/o]
  • Property Color As Color [r/w]
  • Property ColorMapPalette As cdrFountainFillBlendType [r/w]
  • Property FillColor As Color [r/w]
  • Property FromColor As Color [r/w]
  • Property Frozen As Boolean [r/o]
  • Property Magnification As Double [r/w]
  • Property OutlineColor As Color [r/w]
  • Property PaletteRotation As Long [r/w]
  • Property Parent As Effect [r/o]
  • Property Rate As Long [r/w]
  • Property RemoveFace As Boolean [r/w]
  • Property Shapes As Shapes [r/o]
  • Property ToColor As Color [r/w]
  • Property Type As cdrLensType [r/w]
  • Property UseFillColor As Boolean [r/w]
  • Property UseOutlineColor As Boolean [r/w]
  • Property UseViewPoint As Boolean [r/w]
  • Property ViewPointX As Double [r/w]
  • Property ViewPointY As Double [r/w]

Methods:

  • Sub Freeze()
  • Sub Unfreeze()
  • Function Ungroup() As ShapeRange

Class EffectPerspective

Properties:

  • Property Application As Application [r/o]
  • Property HorizVanishingPointX As Double [r/w]
  • Property HorizVanishingPointY As Double [r/w]
  • Property Parent As Effect [r/o]
  • Property UseHorizVanishingPoint As Boolean [r/w]
  • Property UseVertVanishingPoint As Boolean [r/w]
  • Property VertVanishingPointX As Double [r/w]
  • Property VertVanishingPointY As Double [r/w]

Class EffectPushPullDistortion

Properties:


Class Effects

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Effect [r/o] [default]
  • Property Parent As Shape [r/o]

Class EffectTextOnPath

Properties:


Class EffectTwisterDistortion

Properties:


Class EffectZipperDistortion

Properties:

  • Property Amplitude As Long [r/w]
  • Property Application As Application [r/o]
  • Property Frequency As Long [r/w]
  • Property Local As Boolean [r/w]
  • Property Parent As EffectDistortion [r/o]
  • Property Random As Boolean [r/w]
  • Property Smooth As Boolean [r/w]

Class Ellipse

Properties:

  • Property CenterX As Double [r/w]
  • Property CenterY As Double [r/w]
  • Property Clockwise As Boolean [r/w]
  • Property EndAngle As Double [r/w]
  • Property HRadius As Double [r/w]
  • Property StartAngle As Double [r/w]
  • Property Type As cdrEllipseType [r/w]
  • Property VRadius As Double [r/w]

Methods:

  • Sub GetCenterPosition(ByRef PositionX As Double, ByRef PositionY As Double)
  • Sub GetRadius(ByRef HRadius As Double, ByRef VRadius As Double)
  • Sub SetCenterPosition(ByVal PositionX As Double, ByVal PositionY As Double)
  • Sub SetRadius(ByVal HRadius As Double, [ByVal VRadius As Double = 0])

Class ExtrudeVanishingPoint

Properties:

Methods:


Class Fill

Properties:

Methods:

  • Function ApplyFountainFill([ByVal StartColor As Color = 0], [ByVal EndColor As Color = 0], [ByVal Type As cdrFountainFillType = cdrLinearFountainFill (1)], [ByVal Angle As Double = 0], [ByVal Steps As Long = 0], [ByVal EdgePad As Long = 0], [ByVal MidPoint As Long = 50], [ByVal BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend (0)]) As FountainFill
  • Sub ApplyNoFill()
  • Function ApplyPatternFill(ByVal Type As cdrPatternFillType, [ByVal FileName As String = ""], [ByVal PatternCanvasIndex As Long = 1], [ByVal FrontColor As Color = 0], [ByVal EndColor As Color = 0], [ByVal TransformWithShape As Boolean = False]) As PatternFill
  • Function ApplyPostscriptFill(ByVal IndexOrName As Variant) As PostScriptFill
  • Function ApplyTextureFill(ByVal TextureName As String, [ByVal LibraryName As String = ""]) As TextureFill
  • Sub ApplyUniformFill(ByVal Color As Color)

Class FontList

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As String [r/o] [default]
  • Property Parent As Object [r/o]

Class FountainColor

Properties:

  • Property Color As Color [r/w]
  • Property Position As Long [r/o]

Methods:

  • Sub Delete()
  • Sub Move(ByVal NewPosition As Long)

Class FountainColors

Properties:

  • Property Count As Long [r/o]
  • Property GrayLevel(ByVal Index As Long) As Long [r/w]
  • Property Item(ByVal Index As Long) As FountainColor [r/w] [default]

Methods:

  • Sub Add(ByVal Color As Color, ByVal Position As Long)
  • Sub AddGrayLevel(ByVal GrayLevel As Long, ByVal Position As Long)

Class FountainFill

Properties:

  • Property Angle As Double [r/o]
  • Property BlendType As cdrFountainFillBlendType [r/w]
  • Property Colors As FountainColors [r/w]
  • Property EdgePad As Long [r/o]
  • Property EndColor As Color [r/w]
  • Property EndX As Double [r/w]
  • Property EndY As Double [r/w]
  • Property MidPoint As Long [r/w]
  • Property StartColor As Color [r/w]
  • Property StartX As Double [r/w]
  • Property StartY As Double [r/w]
  • Property Steps As Long [r/w]
  • Property Type As cdrFountainFillType [r/w]

Methods:

  • Sub SetAngle(ByVal Angle As Double)
  • Sub SetEdgePad(ByVal EdgePad As Long)
  • Sub Translate(ByVal X As Double, ByVal Y As Double)

Class FrameWork

Properties:

  • Property CommandBars As CommandBars [r/o]
  • Property MainMenu As CommandBar [r/o]
  • Property Name As String [r/o] [default]
  • Property StatusBar As CommandBar [r/o]

Methods:

  • Sub ImportWorkspace(ByVal FileName As String)

Class GlobalDocument

Events:

  • Event AfterPrint()
  • Event AfterSave(ByVal FileName As String)
  • Event AfterSaveAs(ByVal FileName As String)
  • Event BeforeClose()
  • Event BeforePrint()
  • Event BeforeSave()
  • Event BeforeSaveAs()
  • Event CorelScriptStartPlaying()
  • Event CorelScriptStartRecording()
  • Event CorelScriptStopPlaying()
  • Event CorelScriptStopRecording(ByVal FileName As String)
  • Event LayerCreated(ByRef Layer As Layer)
  • Event LayerDeleted(ByRef Layer As Layer)
  • Event LayerSelected(ByRef Layer As Layer)
  • Event NewDocument(ByVal Document As Document)
  • Event OpenDocument(ByVal Document As Document)
  • Event PageCreated(ByRef Page As Page)
  • Event PageDeleted(ByRef Page As Page)
  • Event PageSelected(ByRef Page As Page)
  • Event Quit()
  • Event SelectionChanged(ByRef Shape As Shape)
  • Event ShapeCreated(ByRef Shape As Shape)
  • Event ShapeDeleted(ByRef Shape As Shape)
  • Event ShapeMoved(ByRef Shape As Shape)
  • Event Start()

Class GMSManager

Properties:

  • Property GMSPath As String [r/o]

Methods:

  • Function RunMacro(ByVal ModuleName As String, ByVal MacroName As String, ParamArray Parameters() As Variant) As Variant

Class Grid

Properties:

  • Property Application As Application [r/o]
  • Property Parent As Document [r/o]
  • Property Snap As Boolean [r/w]
  • Property SpacingX As Double [r/w]
  • Property SpacingY As Double [r/w]
  • Property Type As cdrGridType [r/w]
  • Property Visible As Boolean [r/w]

Methods:

  • Sub SetFrequency(ByVal GridX As Double, ByVal GridY As Double)

Class Guide

Properties:

  • Property Preset As Boolean [r/o]
  • Property Type As cdrGuideType [r/o]

Methods:

  • Sub MakeEditable()

Class Layer

Properties:

  • Property Application As Application [r/o]
  • Property Color As Color [r/w]
  • Property Editable As Boolean [r/w]
  • Property Master As Boolean [r/w]
  • Property MasterProperties As Properties [r/o]
  • Property Name As String [r/w]
  • Property OverrideColor As Boolean [r/w]
  • Property Parent As Layers [r/o]
  • Property Printable As Boolean [r/w]
  • Property Properties As Properties [r/o]
  • Property Shapes As Shapes [r/o]
  • Property Visible As Boolean [r/w]

Methods:

  • Sub Activate()
  • Function CreateArtisticText(ByVal Left As Double, ByVal Bottom As Double, ByVal Text As String) As Shape
  • Function CreateConnector(ByVal Start As ShapePoint, ByVal End As ShapePoint) As Shape
  • Function CreateCurve() As Shape
  • Function CreateCurveSegment(ByVal StartX As Double, ByVal StartY As Double, ByVal EndX As Double, ByVal EndY As Double, [ByVal StartingControlPointLength As Double = -1], [ByVal StartingControlPointAngle As Double = 0], [ByVal EndingControlPointLength As Double = -1], [ByVal EndingControlPointAngle As Double = 0]) As Shape
  • Function CreateEllipse(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, [ByVal StartAngle As Double = 90], [ByVal EndAngle As Double = 90], [ByVal Arc As Boolean = False]) As Shape
  • Function CreateEllipse2(ByVal CenterX As Double, ByVal CenterY As Double, ByVal Radius1 As Double, [ByVal Radius2 As Double = 0], [ByVal StartAngle As Double = 90], [ByVal EndAngle As Double = 90], [ByVal Arc As Boolean = False]) As Shape
  • Function CreateFreeConnector(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Shape
  • Function CreateGridBoxes(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, ByVal Wide As Long, ByVal High As Long) As Shape
  • Function CreateGuide(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double) As Shape
  • Function CreateGuideAngle(ByVal X As Double, ByVal Y As Double, ByVal Angle As Double) As Shape
  • Function CreateLineSegment(ByVal StartX As Double, ByVal StartY As Double, ByVal EndX As Double, ByVal EndY As Double) As Shape
  • Function CreateParagraphText(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, [ByVal Text As String]) As Shape
  • Function CreatePolygon(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, ByVal Sides As Long, [ByVal Subpaths As Long = 1], [ByVal Complexity As Long = 1], [ByVal Star As Boolean = False], [ByVal StarComplexity As Long = 50], [ByVal MaxComplexity As Long = 100]) As Shape
  • Function CreateRectangle(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, [ByVal CornerUL As Long = 0], [ByVal CornerUR As Long = 0], [ByVal CornerLR As Long = 0], [ByVal CornerLL As Long = 0]) As Shape
  • Function CreateRectangle2(ByVal X As Double, ByVal Y As Double, ByVal Width As Double, ByVal Height As Double, [ByVal RadiusUL As Double = 0], [ByVal RadiusUR As Double = 0], [ByVal RadiusLR As Double = 0], [ByVal RadiusLL As Double = 0]) As Shape
  • Function CreateSpiral(ByVal Left As Double, ByVal Top As Double, ByVal Right As Double, ByVal Bottom As Double, ByVal NumRevolutions As Long, ByVal SpiralType As cdrSpiralType, ByVal GrowthRate As Long) As Shape
  • Sub Delete()
  • Function FindShape([ByVal Name As String], [ByVal Type As cdrShapeType = cdrNoShape (0)], [ByVal StaticID As Long = 0], [ByVal Recursive As Boolean = True]) As Shape
  • Function FindShapes([ByVal Name As String], [ByVal Type As cdrShapeType = cdrNoShape (0)], [ByVal Recursive As Boolean = True]) As ShapeRange
  • Sub Import(ByVal FileName As String, [ByVal Filter As cdrFilter = cdrAutoSense (0)], [ByVal MaintainLayersAndPages As Boolean = False])
  • Sub MoveAbove(ByVal Layer As Layer)
  • Sub MoveBelow(ByVal Layer As Layer)
  • Function Paste() As Shape

Class Layers

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As Layer [r/o] [default]
  • Property Parent As Page [r/o]

Class Node

Properties:

  • Property AbsoluteIndex As Long [r/o]
  • Property Application As Application [r/o]
  • Property Index As Long [r/o]
  • Property IsEnding As Boolean [r/o]
  • Property Parent As Shape [r/o]
  • Property PositionX As Double [r/w]
  • Property PositionY As Double [r/w]
  • Property Segment As Segment [r/o]
  • Property SubPath As SubPath [r/o]
  • Property SubPathIndex As Long [r/o]
  • Property Type As cdrNodeType [r/w]

Methods:

  • Sub BreakApart()
  • Sub ConnectWith(ByVal Target As Node)
  • Sub Delete()
  • Function GetDistanceFrom(ByVal Node As Node) As Double
  • Sub GetPosition(ByRef PositionX As Double, ByRef PositionY As Double)
  • Sub JoinWith(ByVal Target As Node)
  • Sub Move([ByVal DeltaX As Double = 0], [ByVal DeltaY As Double = 0])
  • Function Next() As Node
  • Function Previous() As Node
  • Sub SetPosition(ByVal PositionX As Double, ByVal PositionY As Double)

Class NodeRange

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Node [r/o] [default]
  • Property Parent As Shape [r/o]
  • Property PositionX As Double [r/o]
  • Property PositionY As Double [r/o]
  • Property SegmentRange As SegmentRange [r/o]
  • Property SizeHeight As Double [r/o]
  • Property SizeWidth As Double [r/o]
  • Property Type As cdrNodeType [r/o]

Methods:

  • Sub Add(ByVal Node As Node)
  • Sub AddRange(ByVal NodeRange As NodeRange)
  • Sub AutoReduce(ByVal PrecisionMargin As Double)
  • Sub BreakApart()
  • Sub Delete()
  • Sub Move([ByVal DeltaX As Double = 0], [ByVal DeltaY As Double = 0], [ByVal AnchorIndex As Long = 1], [ByVal ElasticMode As Boolean = False])
  • Sub Remove(ByVal Index As Long)
  • Sub RemoveAll()
  • Sub Rotate(ByVal Angle As Double, [ByVal UseReferencePoint As Boolean = True], [ByVal RotationCenterX As Double = 0], [ByVal RotationCenterY As Double = 0])
  • Sub SetType(ByVal Type As cdrNodeType)
  • Sub Skew([ByVal AngleX As Double = 0], [ByVal AngleY As Double = 0], [ByVal UseReferencePoint As Boolean = True], [ByVal SkewAnchorX As Double = 0], [ByVal SkewAnchorY As Double = 0])
  • Sub Smoothen(ByVal Smoothness As Long)
  • Sub Stretch([ByVal RatioX As Single = 100], [ByVal RatioY As Single = 100], [ByVal UseReferencePoint As Boolean = True], [ByVal StretchAnchorX As Double = 0], [ByVal StretchAnchorY As Double = 0])

Class Nodes

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Node [r/o] [default]
  • Property Parent As Shape [r/o]

Methods:

  • Function All() As NodeRange
  • Function AllExcluding(ParamArray IndexArray() As Variant) As NodeRange
  • Function Range(ParamArray IndexArray() As Variant) As NodeRange

Class Outline

Properties:

  • Property BehindFill As Boolean [r/w]
  • Property Color As Color [r/w]
  • Property EndArrow As ArrowHead [r/w]
  • Property LineCaps As cdrOutlineLineCaps [r/w]
  • Property LineJoin As cdrOutlineLineJoin [r/w]
  • Property NibAngle As Double [r/w]
  • Property NibStretch As Long [r/w]
  • Property ScaleWithShape As Boolean [r/w]
  • Property StartArrow As ArrowHead [r/w]
  • Property Style As OutlineStyle [r/w]
  • Property Type As cdrOutlineType [r/w]
  • Property Width As Double [r/w]

Methods:

  • Function ConvertToObject() As Shape
  • Sub SetProperties(ByVal Width As Double, [ByVal Style As OutlineStyle = 0], [ByVal Color As Color = 0], [ByVal StartArrow As ArrowHead = 0], [ByVal EndArrow As ArrowHead = 0], [ByVal BehindFill As Boolean = False], [ByVal ScaleWithShape As Boolean = False], [ByVal LineCaps As cdrOutlineLineCaps = cdrOutlineButtLineCaps (0)], [ByVal LineJoin As cdrOutlineLineJoin = cdrOutlineMiterLineJoin (0)], [ByVal NibAngle As Double = 0], [ByVal NibStretch As Long = 100])

Class OutlineStyle

Properties:

  • Property DashCount As Long [r/w]
  • Property DashLength(ByVal Index As Long) As Long [r/w]
  • Property GapLength(ByVal Index As Long) As Long [r/w]
  • Property Index As Long [r/o]

Class OutlineStyles

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As OutlineStyle [r/o] [default]
  • Property Parent As Application [r/o]

Methods:


Class Page

Properties:

  • Property ActiveLayer As Layer [r/o]
  • Property Application As Application [r/o]
  • Property Background As cdrPageBackground [r/w]
  • Property Bleed As Double [r/w]
  • Property Color As Color [r/w]
  • Property Guides([ByVal Type As cdrGuideType = cdrAllGuides (-1)]) As ShapeRange [r/o]
  • Property Index As Long [r/o]
  • Property Layers As Layers [r/o]
  • Property Name As String [r/w]
  • Property Orientation As cdrPageOrientation [r/w]
  • Property Paper As String [r/o]
  • Property Parent As Pages [r/o]
  • Property PrintExportBackground As Boolean [r/w]
  • Property Properties As Properties [r/o]
  • Property Resolution As Long [r/w]
  • Property Shapes As Shapes [r/o]
  • Property SizeHeight As Double [r/w]
  • Property SizeWidth As Double [r/w]

Methods:

  • Sub Activate()
  • Function CreateLayer(ByVal LayerName As String) As Layer
  • Sub Delete()
  • Function FindShape([ByVal Name As String], [ByVal Type As cdrShapeType = cdrNoShape (0)], [ByVal StaticID As Long = 0], [ByVal Recursive As Boolean = True]) As Shape
  • Function FindShapes([ByVal Name As String], [ByVal Type As cdrShapeType = cdrNoShape (0)], [ByVal Recursive As Boolean = True]) As ShapeRange
  • Sub GetSize(ByRef Width As Double, ByRef Height As Double)
  • Sub MoveTo(ByVal Index As Long)
  • Function SelectShapesAtPoint(ByVal X As Double, ByVal Y As Double, ByVal SelectUnfilled As Boolean, [ByVal HotArea As Double = -1]) As Shape
  • Function SelectShapesFromRectangle(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal Touch As Boolean) As Shape
  • Sub SetSize(ByVal Width As Double, ByVal Height As Double)
  • Function TextFind(ByVal Text As String, ByVal CaseSensitive As Boolean) As Shape
  • Sub TextReplace(ByVal OldText As String, ByVal NewText As String, ByVal CaseSensitive As Boolean, [ByVal ReplaceSelectedOnly As Boolean = True])
  • Sub UnlockAllShapes()

Class Pages

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Page [r/o] [default]
  • Property Parent As Document [r/o]

Class Palette

Properties:

  • Property Application As Object [r/o]
  • Property Color(ByVal Index As Long) As Color [r/w]
  • Property ColorCount As Long [r/o]
  • Property DuplicatePresent As Boolean [r/o]
  • Property Name As String [r/w]
  • Property PaletteID As cdrPaletteID [r/o]
  • Property Parent As Object [r/o]
  • Property Type As cdrPaletteType [r/o]

Methods:

  • Sub AddColor(ByVal Color As Color)
  • Sub Close()
  • Function Colors() As Colors
  • Function GetIndexOfColor(ByVal Color As Color) As Long
  • Sub InsertColor(ByVal Index As Long, ByVal Color As Color)
  • Sub RemoveColor(ByVal Index As Long)
  • Sub Save()

Class Palettes

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As Palette [r/o] [default]
  • Property Parent As Object [r/o]

Methods:

  • Function Create(ByVal Name As String, [ByVal Overwrite As Boolean = False]) As Palette
  • Function CreateFromDocument(ByVal Name As String, [ByVal Overwrite As Boolean = False]) As Palette
  • Function CreateFromSelection(ByVal Name As String, [ByVal Overwrite As Boolean = False]) As Palette
  • Function Open(ByVal FileName As String) As Palette
  • Function OpenFixed(ByVal PaletteID As cdrPaletteID) As Palette

Class PatternCanvas

Properties:

  • Property Data As String [r/w] [default]
  • Property Height As Long [r/w]
  • Property Index As Long [r/o]
  • Property Pixel(ByVal X As Long, ByVal Y As Long) As Boolean [r/w]
  • Property Size As cdrPatternCanvasSize [r/w]
  • Property Width As Long [r/w]

Methods:

  • Sub Clear()
  • Sub CopyArea(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal X As Long, ByVal Y As Long)
  • Sub FillArea(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, [ByVal State As Boolean = True])
  • Sub FlipArea(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal Axes As cdrFlipAxes)
  • Sub Line(ByVal Flags As Integer, ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal Color As Boolean)
  • Sub PSet(ByVal Step As Integer, ByVal X As Long, ByVal Y As Long, ByVal Color As Boolean)
  • Sub PutCopy(ByVal PatternCanvas As PatternCanvas)
  • Sub RotateArea(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal Angle As Double)
  • Sub Select(ByVal Index As Long)

Class PatternCanvases

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As PatternCanvas [r/w] [default]

Methods:

  • Function Add(ByVal PatternCanvas As PatternCanvas) As Long
  • Sub Remove(ByVal Index As Long)

Class PatternFill

Properties:

  • Property BackColor As Color [r/w]
  • Property Canvas As PatternCanvas [r/w]
  • Property FilePath As String [r/o]
  • Property FrontColor As Color [r/w]
  • Property MirrorFill As Boolean [r/w]
  • Property OriginX As Double [r/w]
  • Property OriginY As Double [r/w]
  • Property RotationAngle As Double [r/w]
  • Property SkewAngle As Double [r/w]
  • Property TileHeight As Double [r/w]
  • Property TileOffset As Long [r/w]
  • Property TileOffsetType As cdrTileOffsetType [r/w]
  • Property TileWidth As Double [r/w]
  • Property TransformWithShape As Boolean [r/w]
  • Property Type As cdrPatternFillType [r/w]

Methods:

  • Function Load(ByVal FileName As String) As Boolean

Class PDFVBASettings

Properties:

  • Property Author As String [r/w]
  • Property BitmapCompression As pdfBitmapCompressionType [r/w]
  • Property Bleed As Integer [r/w]
  • Property Bookmarks As Boolean [r/w]
  • Property ColorMode As pdfColorMode [r/w]
  • Property ColorProfile As pdfColorProfile [r/w]
  • Property ColorResolution As Long [r/w]
  • Property ComplexFillsAsBitmaps As Boolean [r/w]
  • Property CompressText As Boolean [r/w]
  • Property CropMarks As Boolean [r/w]
  • Property DensitometerScales As Boolean [r/w]
  • Property DownsampleColor As Boolean [r/w]
  • Property DownsampleGray As Boolean [r/w]
  • Property DownsampleMono As Boolean [r/w]
  • Property EmbedBaseFonts As Boolean [r/w]
  • Property EmbedFonts As Boolean [r/w]
  • Property EPSAs As pdfEPSAs [r/w]
  • Property FileInformation As Boolean [r/w]
  • Property FountainSteps As Long [r/w]
  • Property GetEmbedFile As Boolean [r/o]
  • Property GetEmbedFilename As String [r/o]
  • Property GetEncoding As pdfEncodingType [r/o]
  • Property GrayResolution As Long [r/w]
  • Property Halftones As Boolean [r/w]
  • Property Hyperlinks As Boolean [r/w]
  • Property IncludeBleed As Boolean [r/w]
  • Property JPEGQualityFactor As Integer [r/w]
  • Property Keywords As String [r/w]
  • Property Linearize As Boolean [r/w]
  • Property MaintainOPILinks As Boolean [r/w]
  • Property MonoResolution As Long [r/w]
  • Property Overprints As Boolean [r/w]
  • Property PageRange As String [r/w]
  • Property pdfVersion As pdfVersion [r/w]
  • Property PublishRange As pdfExportRange [r/w]
  • Property RegistrationMarks As Boolean [r/w]
  • Property SetEmbedFile(ByVal Boolean) [w/o]
  • Property SetEmbedFilename(ByVal String) [w/o]
  • Property SetEncoding(ByVal pdfEncodingType) [w/o]
  • Property SpotColors As Boolean [r/w]
  • Property Startup As pdfDisplayOnStart [r/w]
  • Property Subject As String [r/w]
  • Property SubsetFonts As Boolean [r/w]
  • Property SubsetPct As Long [r/w]
  • Property TextAsCurves As Boolean [r/w]
  • Property Thumbnails As Boolean [r/w]
  • Property TrueTypeToType1 As Boolean [r/w]
  • Property UseColorProfile As Boolean [r/w]

Methods:

  • Function Load(ByVal SettingName As String) As Boolean
  • Sub Reset()
  • Function Save(ByVal SettingName As String) As Boolean
  • Function ShowDialog() As Boolean

Class Points

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ShapePoint [r/o] [default]
  • Property Parent As Shape [r/o]

Class Polygon

Properties:

  • Property Sharpness As Long [r/w]
  • Property Sides As Long [r/w]
  • Property Type As cdrPolygonType [r/w]

Class PostScriptFill

Properties:

  • Property Index As Long [r/o]
  • Property Name As String [r/o]
  • Property Properties(ByVal Index As Long) As Long [r/w]

Methods:

  • Sub Select(ByVal IndexOrName As Variant)
  • Sub SetProperties(ByVal Param1 As Long, [ByVal Param2 As Long = 0], [ByVal Param3 As Long = 0], [ByVal Param4 As Long = 0], [ByVal Param5 As Long = 0])

Class PowerClip

Properties:

  • Property Application As Application [r/o]
  • Property ContentsLocked As Boolean [r/w]
  • Property Parent As Shape [r/o]
  • Property Shapes As Shapes [r/o]

Methods:

  • Sub EnterEditMode()
  • Function ExtractShapes() As ShapeRange
  • Sub LeaveEditMode()

Class PrintDocuments

Properties:

  • Property Count As Long [r/o]

Class Printer

Properties:

  • Property ColorEnabled As Boolean [r/o]
  • Property Default As Boolean [r/o]
  • Property Description As String [r/o]
  • Property Name As String [r/o]
  • Property Port As String [r/o]
  • Property PostScriptEnabled As Boolean [r/o]
  • Property Ready As Boolean [r/o]
  • Property Type As String [r/o]

Methods:

  • Sub ShowDialog()

Class Printers

Properties:

  • Property Count As Long [r/o]
  • Property Default As Printer [r/o]
  • Property Item(ByVal nIndex As Long) As Printer [r/o] [default]

Class PrintJob

Properties:

Methods:

  • Sub AddDocument(ByVal Document As Document, [ByVal PageRange As String])
  • Sub Clear()
  • Sub PrintOut()

Class PrintOptions

Properties:

  • Property AppInfo As Boolean [r/w]
  • Property BitmapColorMode As PrnBitmapColorMode [r/w]
  • Property ColorMode As PrnColorMode [r/w]
  • Property ColorResolution As Long [r/w]
  • Property DownsampleColor As Boolean [r/w]
  • Property DownsampleGray As Boolean [r/w]
  • Property DownsampleMono As Boolean [r/w]
  • Property DriverInfo As Boolean [r/w]
  • Property FontInfo As Boolean [r/w]
  • Property FountainSteps As Long [r/w]
  • Property GrayResolution As Long [r/w]
  • Property JobInformation As Boolean [r/w]
  • Property LinkInfo As Boolean [r/w]
  • Property MarksToPage As Boolean [r/w]
  • Property MonoResolution As Long [r/w]
  • Property PrintBitmaps As Boolean [r/w]
  • Property PrintJobInfo As Boolean [r/w]
  • Property PrintText As Boolean [r/w]
  • Property PrintVectors As Boolean [r/w]
  • Property RasterizePage As Boolean [r/w]
  • Property RasterizeResolution As Long [r/w]
  • Property SepsInfo As Boolean [r/w]
  • Property TextInBlack As Boolean [r/w]
  • Property UseColorProfile As Boolean [r/w]

Class PrintPages

Properties:

  • Property Count As Long [r/o]

Class PrintPostScript

Properties:

  • Property AutoIncreaseFlatness As Boolean [r/w]
  • Property AutoIncreaseFountainSteps As Boolean [r/w]
  • Property ConformToDSC As Boolean [r/w]
  • Property DownloadType1 As Boolean [r/w]
  • Property Flatness As Long [r/w]
  • Property JPEGCompression As Boolean [r/w]
  • Property JPEGQuality As Long [r/w]
  • Property Level As PrnPostScriptLevel [r/w]
  • Property MaintainOPILinks As Boolean [r/w]
  • Property MaxPointsPerCurve As Long [r/w]
  • Property OptimizeFountainFills As Boolean [r/w]
  • Property PDFBookmarks As Boolean [r/w]
  • Property PDFHyperlinks As Boolean [r/w]
  • Property PDFStartup As PrnPDFStartup [r/w]
  • Property ResolveDCSLinks As Boolean [r/w]
  • Property ScreenFrequency As Long [r/w]
  • Property TrueTypeToType1 As Boolean [r/w]

Class PrintPrepress

Properties:

  • Property ColorCalibrationBar As Boolean [r/w]
  • Property CropMarks As Boolean [r/w]
  • Property Densities(ByVal Index As Long) As Long [r/w]
  • Property DensitometerScale As Boolean [r/w]
  • Property ExteriorCropMarks As Boolean [r/w]
  • Property FileInfo As Boolean [r/w]
  • Property InfoWithinPage As Boolean [r/w]
  • Property Invert As Boolean [r/w]
  • Property JobName As String [r/w]
  • Property Mirror As Boolean [r/w]
  • Property PageNumbers As Boolean [r/w]
  • Property RegistrationMarks As Boolean [r/w]
  • Property RegistrationStyle As PrnRegistrationStyle [r/w]

Class PrintSeparations

Properties:

  • Property AdvancedSettings As Boolean [r/w]
  • Property AlwaysOverprintBlack As Boolean [r/w]
  • Property AutoSpreadAmount As Double [r/w]
  • Property AutoSpreadFixed As Boolean [r/w]
  • Property AutoSpreading As Boolean [r/w]
  • Property AutoSpreadTextAbove As Double [r/w]
  • Property BasicScreen As String [r/w]
  • Property EmptyPlates As Boolean [r/w]
  • Property Enabled As Boolean [r/w]
  • Property HalftoneType As String [r/w]
  • Property Hexachrome As Boolean [r/w]
  • Property InColor As Boolean [r/w]
  • Property Plates As SeparationPlates [r/o]
  • Property PreserveOverprints As Boolean [r/w]
  • Property Resolution As Long [r/w]
  • Property ScreenTechnology As String [r/w]
  • Property SpotToCMYK As Boolean [r/w]

Class PrintSettings

Properties:

  • Property Collate As Boolean [r/w]
  • Property Copies As Long [r/w]
  • Property FileMode As PrnFileMode [r/w]
  • Property FileName As String [r/w]
  • Property ForMac As Boolean [r/w]
  • Property Options As PrintOptions [r/o]
  • Property PageRange As String [r/w]
  • Property PostScript As PrintPostScript [r/o]
  • Property PPDFile As String [r/w]
  • Property Prepress As PrintPrepress [r/o]
  • Property Printer As Printer [r/w]
  • Property PrintRange As PrnPrintRange [r/w]
  • Property PrintToFile As Boolean [r/w]
  • Property Separations As PrintSeparations [r/o]
  • Property Trapping As PrintTrapping [r/o]
  • Property UsePPD As Boolean [r/w]

Methods:

  • Function Load(ByVal FileName As String) As Boolean
  • Sub Reset()
  • Function Save(ByVal FileName As String) As Boolean
  • Function ShowDialog() As Boolean

Class PrintTrapping

Properties:

  • Property BlackColorLimit As Long [r/w]
  • Property BlackDensityLimit As Double [r/w]
  • Property BlackWidth As Double [r/w]
  • Property ColorScaling As Long [r/w]
  • Property Enabled As Boolean [r/w]
  • Property ImageTrap As PrnImageTrap [r/w]
  • Property InternalImageTrapping As Boolean [r/w]
  • Property Layers As TrapLayers [r/o]
  • Property MinResolution As Long [r/w]
  • Property ObjectsToImage As Boolean [r/w]
  • Property SlidingTrapLimit As Long [r/w]
  • Property StepLimit As Long [r/w]
  • Property Width As Double [r/w]

Class Properties

Properties:

  • Property Count As Long [r/o]
  • Property Index(ByVal Name As String, ByVal ID As Long) As Long [r/o]
  • Property Item(ByVal Name As String, ByVal ID As Long) As Variant [r/w] [default]
  • Property ItemByIndex(ByVal Index As Long) As Variant [r/o]

Methods:

  • Sub Delete(ByVal Name As String, ByVal ID As Long)
  • Sub DeleteByIndex(ByVal Index As Long)
  • Sub Description(ByVal Index As Long, ByRef Name As String, ByRef ID As Long)
  • Sub GetFile(ByVal Name As String, ByVal ID As Long, ByVal FileName As String)
  • Sub PutFile(ByVal Name As String, ByVal ID As Long, ByVal FileName As String)

Class RecentFile

Properties:

  • Property Application As Object [r/o]
  • Property FullName As String [r/w]
  • Property Index As Long [r/o]
  • Property Name As String [r/w]
  • Property Parent As RecentFiles [r/o]
  • Property Path As String [r/w]

Methods:

  • Sub Delete()
  • Function Open() As Object

Class RecentFiles

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As RecentFile [r/o] [default]
  • Property Maximum As Long [r/o]
  • Property Parent As Object [r/o]

Methods:

  • Function Add(ByVal Name As String, ByVal Path As String) As RecentFile

Class Rectangle

Properties:

  • Property CornerLowerLeft As Long [r/w]
  • Property CornerLowerRight As Long [r/w]
  • Property CornerUpperLeft As Long [r/w]
  • Property CornerUpperRight As Long [r/w]
  • Property EqualCorners As Boolean [r/o]
  • Property MaxRadius As Double [r/o]
  • Property RadiusLowerLeft As Double [r/w]
  • Property RadiusLowerRight As Double [r/w]
  • Property RadiusUpperLeft As Double [r/w]
  • Property RadiusUpperRight As Double [r/w]

Methods:

  • Sub SetRadius(ByVal Radius As Double)
  • Sub SetRoundness(ByVal Roundness As Long)

Class Rulers

Properties:


Class Segment

Properties:

  • Property AbsoluteIndex As Long [r/o]
  • Property Application As Application [r/o]
  • Property EndingControlPointAngle As Double [r/w]
  • Property EndingControlPointLength As Double [r/w]
  • Property EndingControlPointX As Double [r/w]
  • Property EndingControlPointY As Double [r/w]
  • Property EndNode As Node [r/o]
  • Property Index As Long [r/o]
  • Property Length As Double [r/o]
  • Property Parent As Shape [r/o]
  • Property StartingControlPointAngle As Double [r/w]
  • Property StartingControlPointLength As Double [r/w]
  • Property StartingControlPointX As Double [r/w]
  • Property StartingControlPointY As Double [r/w]
  • Property StartNode As Node [r/o]
  • Property SubPath As SubPath [r/o]
  • Property SubPathIndex As Long [r/o]
  • Property Type As cdrSegmentType [r/w]

Methods:

  • Function AddNodeAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Node
  • Function BreakApartAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Node
  • Function FindParamOffset(ByVal AbsoluteOffset As Double, ByRef ParamOffset As Double, [ByRef Remainder As Double]) As Boolean
  • Function GetAbsoluteOffset(ByVal ParamOffset As Double) As Double
  • Function GetBendPoints(ByRef Offset1 As Double, ByRef Offset2 As Double, [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Long
  • Function GetCurvatureAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Double
  • Function GetCurveSpeedAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Double
  • Function GetIntersections(ByVal Target As Segment, [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As CrossPoints
  • Function GetPeaks(ByVal Angle As Double, ByRef Offset1 As Double, ByRef Offset2 As Double, [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Long
  • Function GetPerpendicularAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Double
  • Sub GetPointPositionAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)], ByRef X As Double, ByRef Y As Double)
  • Function GetTangentAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset (2)]) As Double
  • Function Next() As Segment
  • Function Previous() As Segment

Class SegmentRange

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Segment [r/o] [default]
  • Property Length As Double [r/o]
  • Property NodeRange As NodeRange [r/o]
  • Property Parent As Shape [r/o]
  • Property Type As cdrSegmentType [r/o]

Methods:

  • Sub Add(ByVal Segment As Segment)
  • Sub AddNode()
  • Sub AddRange(ByVal SegmentRange As SegmentRange)
  • Sub Remove(ByVal Index As Long)
  • Sub RemoveAll()
  • Sub SetType(ByVal Type As cdrSegmentType)

Class Segments

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Segment [r/o] [default]
  • Property Parent As Shape [r/o]

Methods:


Class SeparationPlate

Properties:

  • Property Angle As Double [r/w]
  • Property Color As String [r/o]
  • Property Enabled As Boolean [r/w]
  • Property Frequency As Double [r/w]
  • Property OverprintGraphic As Boolean [r/w]
  • Property OverprintText As Boolean [r/w]
  • Property Type As PrnPlateType [r/o]

Class SeparationPlates

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As SeparationPlate [r/o] [default]

Class Shape

Properties:

  • Property AbsoluteHScale As Double [r/o]
  • Property AbsoluteSkew As Double [r/o]
  • Property AbsoluteVScale As Double [r/o]
  • Property Application As Application [r/o]
  • Property Bitmap As Bitmap [r/o]
  • Property CloneLink As CloneLink [r/o]
  • Property Clones As ShapeRange [r/o]
  • Property Connector As Connector [r/o]
  • Property Curve As Curve [r/o]
  • Property DrapeFill As Boolean [r/w]
  • Property Effect As Effect [r/o]
  • Property Effects As Effects [r/o]
  • Property Ellipse As Ellipse [r/o]
  • Property Fill As Fill [r/w]
  • Property Guide As Guide [r/o]
  • Property Layer As Layer [r/w]
  • Property Locked As Boolean [r/w]
  • Property Name As String [r/w]
  • Property Next([ByVal Level As cdrShapeLevel = cdrLevelPage (3)], [ByVal EnterGroups As Boolean = False], [ByVal Loop As Boolean = True]) As Shape [r/o]
  • Property ObjectData As DataItems [r/o]
  • Property OriginalHeight As Double [r/o]
  • Property OriginalWidth As Double [r/o]
  • Property Outline As Outline [r/o]
  • Property OverprintFill As Boolean [r/w]
  • Property OverprintOutline As Boolean [r/w]
  • Property Parent As Object [r/o]
  • Property ParentGroup As Shape [r/o]
  • Property Points As Points [r/o]
  • Property Polygon As Polygon [r/o]
  • Property PositionX As Double [r/w]
  • Property PositionY As Double [r/w]
  • Property PowerClip As PowerClip [r/o]
  • Property PowerClipParent As Shape [r/o]
  • Property Previous([ByVal Level As cdrShapeLevel = cdrLevelPage (3)], [ByVal EnterGroups As Boolean = False], [ByVal Loop As Boolean = True]) As Shape [r/o]
  • Property Properties As Properties [r/o]
  • Property Rectangle As Rectangle [r/o]
  • Property RotationAngle As Double [r/w]
  • Property RotationCenterX As Double [r/w]
  • Property RotationCenterY As Double [r/w]
  • Property Selected As Boolean [r/w]
  • Property Shapes As Shapes [r/o]
  • Property SizeHeight As Double [r/w]
  • Property SizeWidth As Double [r/w]
  • Property StaticID As Long [r/o]
  • Property Text As Text [r/o]
  • Property Transparency As Transparency [r/o]
  • Property Type As cdrShapeType [r/o]
  • Property URL As URL [r/o]

Methods:

  • Sub AddToPowerClip(ByVal Shape As Shape)
  • Sub BreakApart()
  • Sub ClearEffect(ByVal Type As cdrEffectType)
  • Function Clone([ByVal OffsetX As Double = 0], [ByVal OffsetY As Double = 0]) As Shape
  • Function Combine() As Shape
  • Function ConvertToBitmap([ByVal BitDepth As Long = 24], [ByVal Grayscale As Boolean = False], [ByVal Dithered As Boolean = True], [ByVal TransparentBG As Boolean = True], [ByVal Resolution As Long = 72], [ByVal AntiAliasing As cdrAntiAliasingType = cdrNormalAntiAliasing (1)], [ByVal UseColorProfile As Boolean = True]) As Shape
  • Function ConvertToBitmapEx([ByVal Mode As cdrImageType = cdrRGBColorImage (4)], [ByVal Dithered As Boolean = False], [ByVal Transparent As Boolean = False], [ByVal Resolution As Long = 72], [ByVal AntiAliasing As cdrAntiAliasingType = cdrNormalAntiAliasing (1)], [ByVal UseColorProfile As Boolean = True]) As Shape
  • Sub ConvertToCurves()
  • Sub Copy()
  • Function CreateArrowHead() As ArrowHead
  • Function CreateBlend(ByVal Shape As Shape, [ByVal Steps As Integer = 20], [ByVal ColorBlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend (0)], [ByVal Mode As cdrBlendMode = cdrBlendSteps (0)], [ByVal Spacing As Integer = 1], [ByVal Angle As Double = 0], [ByVal Loop As Boolean = False], [ByVal Path As Shape = 0], [ByVal RotateShapes As Boolean = False], [ByVal SpacingAccel As Long = 0], [ByVal ColorAccel As Long = 0], [ByVal AccelSize As Boolean = False]) As Effect
  • Function CreateContour([ByVal Direction As cdrContourDirection = cdrContourOutside (1)], [ByVal Offset As Double = 0.150000005960464], [ByVal Steps As Long = 1], [ByVal BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend (0)], [ByVal OutlineColor As Color = 0], [ByVal FillColor As Color = 0], [ByVal FillColor2 As Color = 0], [ByVal SpacingAccel As Long = 0], [ByVal ColorAccel As Long = 0]) As Effect
  • Function CreateDropShadow([ByVal Type As cdrDropShadowType = cdrDropShadowFlat (0)], [ByVal Opacity As Long = 50], [ByVal Feather As Long = 15], [ByVal OffsetX As Double = 0], [ByVal OffsetY As Double = 0], [ByVal Color As Color = 0], [ByVal FeatherType As cdrFeatherType = cdrFeatherAverage (3)], [ByVal FeatherEdge As cdrEdgeType = cdrEdgeLinear (0)], [ByVal PerspectiveAngle As Double = -45], [ByVal PerspectiveStretch As Double = 1], [ByVal Fade As Long = 1]) As Effect
  • Function CreateEnvelope(ByVal PresetIndex As Long, [ByVal Mode As cdrEnvelopeMode = cdrEnvelopePutty (2)], [ByVal KeepLines As Boolean = False]) As Effect
  • Function CreateExtrude(ByVal Type As cdrExtrudeType, ByVal VPType As cdrExtrudeVPType, ByVal VPX As Double, ByVal VPY As Double, [ByVal Depth As Double = 20], [ByVal Shading As cdrExtrudeShading = cdrExtrudeObjectFill (0)], [ByVal BaseColor As Color = 0], [ByVal ShadingColor As Color = 0], [ByVal BevelDepth As Double = 0], [ByVal BevelAngle As Double = 45], [ByVal BevelColor As Color = 0], [ByVal BevelOnly As Boolean = False]) As Effect
  • Function CreateLens(ByVal Type As cdrLensType, [ByVal RateOrMagnification As Double = 50], [ByVal Color1 As Color = 0], [ByVal Color2 As Color = 0], [ByVal ColorMapPalette As cdrFountainFillBlendType = cdrDirectFountainFillBlend (0)]) As Effect
  • Function CreatePerspective([ByVal HorizVanishPointX As Variant], [ByVal HorizVanishPointY As Variant], [ByVal VertVanishPointX As Variant], [ByVal VertVanishPointY As Variant]) As Effect
  • Function CreatePushPullDistortion(ByVal OriginX As Double, ByVal OriginY As Double, ByVal Amplitude As Long) As Effect
  • Sub CreateSelection()
  • Function CreateTwisterDistortion(ByVal OriginX As Double, ByVal OriginY As Double, ByVal Angle As Double) As Effect
  • Function CreateZipperDistortion(ByVal OriginX As Double, ByVal OriginY As Double, ByVal Amplitude As Long, ByVal Frequency As Long, [ByVal Random As Boolean = False], [ByVal Smooth As Boolean = False], [ByVal Local As Boolean = False]) As Effect
  • Sub Cut()
  • Sub Delete()
  • Function Duplicate([ByVal OffsetX As Double = 0], [ByVal OffsetY As Double = 0]) As Shape
  • Sub Flip(ByVal Axes As cdrFlipAxes)
  • Sub GetBoundingBox(ByRef X As Double, ByRef Y As Double, ByRef Width As Double, ByRef Height As Double, [ByVal UseOutline As Boolean = False])
  • Sub GetMatrix(ByRef d11 As Double, ByRef d12 As Double, ByRef d21 As Double, ByRef d22 As Double, ByRef tx As Double, ByRef ty As Double)
  • Sub GetPosition(ByRef PositionX As Double, ByRef PositionY As Double)
  • Sub GetSize(ByRef Width As Double, ByRef Height As Double)
  • Function Group() As Shape
  • Function Intersect(ByVal TargetShape As Shape, [ByVal LeaveSource As Boolean = True], [ByVal LeaveTarget As Boolean = True]) As Shape
  • Function IsOnShape(ByVal X As Double, ByVal Y As Double, [ByVal HotArea As Double = -1]) As cdrPositionOfPointOverShape
  • Sub Move(ByVal DeltaX As Double, ByVal DeltaY As Double)
  • Sub OrderBackOf(ByVal Shape As Shape)
  • Sub OrderBackOne()
  • Sub OrderForwardOne()
  • Sub OrderFrontOf(ByVal Shape As Shape)
  • Function OrderIsInFrontOf(ByVal Shape As Shape) As Boolean
  • Sub OrderReverse()
  • Sub OrderToBack()
  • Sub OrderToFront()
  • Sub RemoveFromContainer([ByVal Level As Long = 0])
  • Sub Rotate(ByVal Angle As Double)
  • Sub RotateEx(ByVal Angle As Double, ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub Separate()
  • Sub SetBoundingBox(ByVal X As Double, ByVal Y As Double, ByVal Width As Double, ByVal Height As Double, [ByVal KeepAspect As Boolean = False], [ByVal ReferencePoint As cdrReferencePoint = cdrCenter (9)])
  • Sub SetMatrix(ByVal d11 As Double, ByVal d12 As Double, ByVal d21 As Double, ByVal d22 As Double, ByVal tx As Double, ByVal ty As Double)
  • Sub SetPosition(ByVal PositionX As Double, ByVal PositionY As Double)
  • Sub SetRotationCenter(ByVal X As Double, ByVal Y As Double)
  • Sub SetSize([ByVal Width As Double = 0], [ByVal Height As Double = 0])
  • Sub SetSizeEx([ByVal Width As Double = 0], [ByVal Height As Double = 0], ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub Skew(ByVal AngleX As Double, ByVal AngleY As Double)
  • Sub SkewEx(ByVal AngleX As Double, ByVal AngleY As Double, ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub Stretch(ByVal StretchX As Double, [ByVal StretchY As Double = 0], [ByVal StretchCharactersSize As Boolean = False])
  • Sub StretchEx(ByVal StretchX As Double, [ByVal StretchY As Double = 0], ByVal CenterX As Double, ByVal CenterY As Double, [ByVal StretchCharactersSize As Boolean = False])
  • Function Trim(ByVal TargetShape As Shape, [ByVal LeaveSource As Boolean = True], [ByVal LeaveTarget As Boolean = False]) As Shape
  • Sub Ungroup()
  • Sub UngroupAll()
  • Function Weld(ByVal TargetShape As Shape, [ByVal LeaveSource As Boolean = False], [ByVal LeaveTarget As Boolean = False]) As Shape

Class ShapePoint

Properties:

  • Property Application As Application [r/o]
  • Property Node As Node [r/o]
  • Property Parent As Shape [r/o]
  • Property PositionX As Double [r/w]
  • Property PositionY As Double [r/w]
  • Property Type As cdrPointType [r/o]

Class ShapeRange

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As Shape [r/o] [default]
  • Property Parent As Application [r/o]
  • Property PositionX As Double [r/w]
  • Property PositionY As Double [r/w]
  • Property RotationCenterX As Double [r/w]
  • Property RotationCenterY As Double [r/w]
  • Property SizeHeight As Double [r/w]
  • Property SizeWidth As Double [r/w]

Methods:

  • Sub Add(ByVal Shape As Shape)
  • Sub AddRange(ByVal ShapeRange As ShapeRange)
  • Sub AddToPowerClip(ByVal Shape As Shape)
  • Sub AddToSelection()
  • Sub ApplyFountainFill([ByVal StartColor As Color = 0], [ByVal EndColor As Color = 0], [ByVal Type As cdrFountainFillType = cdrLinearFountainFill (1)], [ByVal Angle As Double = 0], [ByVal Steps As Long = 0], [ByVal EdgePad As Long = 0], [ByVal MidPoint As Long = 50], [ByVal BlendType As cdrFountainFillBlendType = cdrDirectFountainFillBlend (0)])
  • Sub ApplyNoFill()
  • Sub ApplyPatternFill(ByVal Type As cdrPatternFillType, [ByVal FileName As String = ""], [ByVal PatternCanvasIndex As Long = 1], [ByVal FrontColor As Color = 0], [ByVal EndColor As Color = 0], [ByVal TransformWithShape As Boolean = False])
  • Sub ApplyPostscriptFill(ByVal IndexOrName As Variant)
  • Sub ApplyTextureFill(ByVal TextureName As String, [ByVal LibraryName As String = ""])
  • Sub ApplyUniformFill(ByVal Color As Color)
  • Function Clone([ByVal OffsetX As Double = 0], [ByVal OffsetY As Double = 0]) As ShapeRange
  • Function Combine() As Shape
  • Sub ConvertOutlineToObject()
  • Function ConvertToBitmap([ByVal BitDepth As Long = 24], [ByVal Grayscale As Boolean = False], [ByVal Dithered As Boolean = True], [ByVal TransparentBG As Boolean = True], [ByVal Resolution As Long = 72], [ByVal AntiAliasing As cdrAntiAliasingType = cdrNormalAntiAliasing (1)], [ByVal UseColorProfile As Boolean = True]) As Shape
  • Function ConvertToBitmapEx([ByVal Mode As cdrImageType = cdrRGBColorImage (4)], [ByVal Dithered As Boolean = False], [ByVal Transparent As Boolean = False], [ByVal Resolution As Long = 72], [ByVal AntiAliasing As cdrAntiAliasingType = cdrNormalAntiAliasing (1)], [ByVal UseColorProfile As Boolean = True]) As Shape
  • Sub ConvertToCurves()
  • Sub Copy()
  • Sub CreateSelection()
  • Sub Cut()
  • Sub Delete()
  • Function Duplicate([ByVal OffsetX As Double = 0], [ByVal OffsetY As Double = 0]) As ShapeRange
  • Sub Flip(ByVal Axes As cdrFlipAxes)
  • Sub GetBoundingBox(ByRef X As Double, ByRef Y As Double, ByRef Width As Double, ByRef Height As Double, [ByVal UseOutline As Boolean = False])
  • Sub GetPosition(ByRef PositionX As Double, ByRef PositionY As Double)
  • Sub GetSize(ByRef Width As Double, ByRef Height As Double)
  • Function Group() As Shape
  • Function IndexOf(ByVal Shape As Shape) As Long
  • Sub Move(ByVal DeltaX As Double, ByVal DeltaY As Double)
  • Sub OrderBackOf(ByVal Shape As Shape)
  • Sub OrderBackOne()
  • Sub OrderForwardOne()
  • Sub OrderFrontOf(ByVal Shape As Shape)
  • Sub OrderReverse()
  • Sub OrderToBack()
  • Sub OrderToFront()
  • Sub Remove(ByVal Index As Long)
  • Sub RemoveAll()
  • Sub RemoveFromContainer([ByVal Level As Long = 0])
  • Sub RemoveFromSelection()
  • Sub Rotate(ByVal Angle As Double)
  • Sub RotateEx(ByVal Angle As Double, ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub SetBoundingBox(ByVal X As Double, ByVal Y As Double, ByVal Width As Double, ByVal Height As Double, [ByVal KeepAspect As Boolean = False], [ByVal ReferencePoint As cdrReferencePoint = cdrCenter (9)])
  • Sub SetOutlineProperties(ByVal Width As Double, [ByVal Style As OutlineStyle = 0], [ByVal Color As Color = 0], [ByVal StartArrow As ArrowHead = 0], [ByVal EndArrow As ArrowHead = 0], [ByVal BehindFill As Boolean = False], [ByVal ScaleWithShape As Boolean = False], [ByVal LineCaps As cdrOutlineLineCaps = cdrOutlineButtLineCaps (0)], [ByVal LineJoin As cdrOutlineLineJoin = cdrOutlineMiterLineJoin (0)], [ByVal NibAngle As Double = 0], [ByVal NibStretch As Long = 100])
  • Sub SetPosition(ByVal PositionX As Double, ByVal PositionY As Double)
  • Sub SetRotationCenter(ByVal X As Double, ByVal Y As Double)
  • Sub SetSize([ByVal Width As Double = 0], [ByVal Height As Double = 0])
  • Sub SetSizeEx([ByVal Width As Double = 0], [ByVal Height As Double = 0], ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub Skew(ByVal AngleX As Double, ByVal AngleY As Double)
  • Sub SkewEx(ByVal AngleX As Double, ByVal AngleY As Double, ByVal CenterX As Double, ByVal CenterY As Double)
  • Sub Stretch(ByVal StretchX As Double, [ByVal StretchY As Double = 0], [ByVal StretchCharactersSize As Boolean = False])
  • Sub StretchEx(ByVal StretchX As Double, [ByVal StretchY As Double = 0], ByVal CenterX As Double, ByVal CenterY As Double, [ByVal StretchCharactersSize As Boolean = False])
  • Sub UngroupAll()

Class Shapes

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As Shape [r/o] [default]
  • Property Parent As Object [r/o]

Methods:

  • Function All() As ShapeRange
  • Function AllExcluding(ParamArray IndexArray() As Variant) As ShapeRange
  • Function Range(ParamArray IndexArray() As Variant) As ShapeRange

Class StructAlignProperties

Properties:

  • Property Alignment As cdrAlignment [r/w]
  • Property CharacterRotation As Single [r/w]
  • Property FirstLineIndent As Double [r/w]
  • Property HorizontalCharacterShift As Long [r/w]
  • Property LeftIndent As Double [r/w]
  • Property MaxCharacterSpacing As Single [r/w]
  • Property MaxWordSpacing As Single [r/w]
  • Property MinWordSpacing As Single [r/w]
  • Property RightIndent As Double [r/w]
  • Property VerticalCharacterShift As Long [r/w]

Class StructExportOptions

Properties:

  • Property AntiAliasingType As cdrAntiAliasingType [r/w]
  • Property Compression As cdrCompressionType [r/w]
  • Property Dithered As Boolean [r/w]
  • Property ImageType As cdrImageType [r/w]
  • Property Overwrite As Boolean [r/w]
  • Property ResolutionX As Long [r/w]
  • Property ResolutionY As Long [r/w]
  • Property SizeX As Long [r/w]
  • Property SizeY As Long [r/w]
  • Property Transparent As Boolean [r/w]
  • Property UseColorProfile As Boolean [r/w]

Class StructFontProperties

Properties:


Class StructFountainFillProperties

Properties:

  • Property Angle As Double [r/w]
  • Property BlendType As cdrFountainFillBlendType [r/w]
  • Property CenterX As Long [r/w]
  • Property CenterY As Long [r/w]
  • Property ColorCount As Long [r/o]
  • Property EdgePad As Long [r/w]
  • Property FromColor As Color [r/w]
  • Property MidPoint As Long [r/w]
  • Property Steps As Long [r/w]
  • Property ToColor As Color [r/w]
  • Property Type As cdrFountainFillType [r/w]

Class StructHyphenationSettings

Properties:

  • Property BreakCapitalized As Boolean [r/w]
  • Property HotZone As Double [r/w]
  • Property MinCharactersAfter As Long [r/w]
  • Property MinCharactersBefore As Long [r/w]
  • Property MinWordLength As Long [r/w]
  • Property UseAutomaticHyphenation As Boolean [r/w]

Class StructPaletteOptions

Properties:

  • Property ColorSensitive As Boolean [r/w]
  • Property DitherIntensity As Long [r/w]
  • Property DitherType As cdrDitherType [r/w]
  • Property Importance As Long [r/w]
  • Property Lightness As Long [r/w]
  • Property NumColors As Long [r/w]
  • Property PaletteType As cdrImagePaletteType [r/w]
  • Property Smoothing As Long [r/w]
  • Property TargetColor As Long [r/w]
  • Property ToleranceA As Long [r/w]
  • Property ToleranceB As Long [r/w]

Class StructSaveAsOptions

Properties:

  • Property EmbedICCProfile As Boolean [r/w]
  • Property EmbedVBAProject As Boolean [r/w]
  • Property Filter As cdrFilter [r/w]
  • Property IncludeCMXData As Boolean [r/w]
  • Property Overwrite As Boolean [r/w]
  • Property Range As cdrExportRange [r/w]
  • Property ThumbnailSize As cdrThumbnailSize [r/w]
  • Property Version As cdrFileVersion [r/w]

Class StructSpaceProperties

Properties:

  • Property AfterParagraphSpacing As Single [r/w]
  • Property BeforeParagraphSpacing As Single [r/w]
  • Property CharacterSpacing As Single [r/w]
  • Property LineSpacing As Single [r/w]
  • Property LineSpacingType As cdrLineSpacingType [r/w]
  • Property WordSpacing As Single [r/w]

Class SubPath

Properties:

  • Property Application As Application [r/o]
  • Property Closed As Boolean [r/w]
  • Property EndNode As Node [r/o]
  • Property FirstSegment As Segment [r/o]
  • Property Index As Long [r/o]
  • Property LastSegment As Segment [r/o]
  • Property Length As Double [r/o]
  • Property Nodes As Nodes [r/o]
  • Property Parent As Shape [r/o]
  • Property PositionX As Double [r/w]
  • Property PositionY As Double [r/w]
  • Property Segments As Segments [r/o]
  • Property SizeHeight As Double [r/o]
  • Property SizeWidth As Double [r/o]
  • Property StartNode As Node [r/o]

Methods:

  • Function AddNodeAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Node
  • Function AppendCurveSegment([ByVal AppendAtBeginning As Boolean = False], ByVal X As Double, ByVal Y As Double, [ByVal StartingControlPointLength As Double = -1], [ByVal StartingControlPointAngle As Double = 0], [ByVal EndingControlPointLength As Double = -1], [ByVal EndingControlPointAngle As Double = 0]) As Segment
  • Function AppendLineSegment([ByVal AppendAtBeginning As Boolean = False], ByVal X As Double, ByVal Y As Double) As Segment
  • Function BreakApartAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Node
  • Sub Delete()
  • Function Extract([ByRef OldCurve As Shape]) As Shape
  • Function FindSegmentOffset(ByVal AbsoluteOffset As Double, ByRef Segment As Segment, ByRef ParamOffset As Double, [ByRef Remainder As Double]) As Boolean
  • Function GetCurvatureAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Double
  • Function GetCurveSpeedAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Double
  • Function GetIntersections(ByVal Target As SubPath, [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As CrossPoints
  • Function GetPerpendicularAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Double
  • Sub GetPointPositionAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)], ByRef X As Double, ByRef Y As Double)
  • Sub GetPosition(ByRef PositionX As Double, ByRef PositionY As Double)
  • Function GetSegmentAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)], [ByRef SegmentOffset As Double]) As Segment
  • Function GetTangentAt([ByVal Offset As Double = 0.5], [ByVal OffsetType As cdrSegmentOffsetType = cdrRelativeSegmentOffset (1)]) As Double
  • Function IsOnSubPath(ByVal X As Double, ByVal Y As Double, [ByVal HotArea As Double = -1]) As cdrPositionOfPointOverShape
  • Sub Move([ByVal DeltaX As Double = 0], [ByVal DeltaY As Double = 0])
  • Function Next() As SubPath
  • Function Previous() As SubPath
  • Sub ReverseDirection()
  • Function Selection() As NodeRange
  • Sub SetPosition(ByVal PositionX As Double, ByVal PositionY As Double)

Class Subpaths

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As SubPath [r/o] [default]
  • Property Parent As Shape [r/o]

Class Text

Properties:

  • Property AlignProperties([ByVal Frames As cdrTextFrames = cdrAllFrames (2)]) As StructAlignProperties [r/w]
  • Property AlignPropertiesInRange(ByVal StartIndex As Long, ByVal Count As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)]) As StructAlignProperties [r/w]
  • Property CharacterCount As Long [r/o]
  • Property Characters(ByVal StartIndex As Long, [ByVal Count As Long = 1]) As String [r/w]
  • Property Contents([ByVal Frames As cdrTextFrames = cdrAllFrames (2)]) As String [r/w]
  • Property FontProperties([ByVal Frames As cdrTextFrames = cdrAllFrames (2)]) As StructFontProperties [r/w]
  • Property FontPropertiesInRange(ByVal StartIndex As Long, ByVal Count As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)]) As StructFontProperties [r/w]
  • Property FramesInLink As Long [r/o]
  • Property HyphenationSettings([ByVal Frames As cdrTextFrames = cdrAllFrames (2)]) As StructHyphenationSettings [r/w]
  • Property HyphenationSettingsInRange(ByVal StartIndex As Long, ByVal Count As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)]) As StructHyphenationSettings [r/w]
  • Property IsHTMLCompatible As Boolean [r/o]
  • Property LineCount As Long [r/o]
  • Property Overflow As Boolean [r/o]
  • Property ParagraphCount As Long [r/o]
  • Property Paragraphs(ByVal StartIndex As Long, [ByVal Count As Long = 1]) As String [r/w]
  • Property SpaceProperties([ByVal Frames As cdrTextFrames = cdrAllFrames (2)]) As StructSpaceProperties [r/w]
  • Property SpacePropertiesInRange(ByVal StartIndex As Long, ByVal Count As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)]) As StructSpaceProperties [r/w]
  • Property Type As cdrTextType [r/o]
  • Property UnusedFramesInLink As Long [r/o]
  • Property WordCount As Long [r/o]
  • Property Words(ByVal StartIndex As Long, [ByVal Count As Long = 1]) As String [r/w]

Methods:

  • Sub ConvertToArtistic()
  • Sub ConvertToParagraph()
  • Sub ExportToFile(ByVal FileName As String, ByVal StartIndex As Long, ByVal Count As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)])
  • Function Find(ByVal Text As String, ByVal CaseSensitive As Boolean, [ByVal StartIndex As Long = 1], [ByVal WrapAround As Boolean = False], [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)]) As Long
  • Sub FitToPath(ByVal pPath As Shape)
  • Sub ImportFromFile(ByVal FileName As String, ByVal StartIndex As Long, [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)])
  • Sub LinkToFrame(ByVal pVal As Text)
  • Function MakeHTMLCompatible(ByVal HTML As Boolean) As Boolean
  • Sub Replace(ByVal OldText As String, ByVal NewText As String, ByVal CaseSensitive As Boolean, [ByVal StartIndex As Long = 1], [ByVal ReplaceAll As Boolean = False], [ByVal WrapAround As Boolean = False], [ByVal IndexingType As cdrTextIndexingType = cdrCharacterIndexing (0)])

Class TextureFill

Properties:

  • Property LibraryName As String [r/o]
  • Property MaximumTileWidth As Long [r/w]
  • Property MirrorFill As Boolean [r/w]
  • Property OriginX As Double [r/w]
  • Property OriginY As Double [r/w]
  • Property Properties As TextureFillProperties [r/o]
  • Property Resolution As Long [r/w]
  • Property RotationAngle As Double [r/w]
  • Property SkewAngle As Double [r/w]
  • Property StyleName As String [r/o]
  • Property TextureName As String [r/o]
  • Property TileHeight As Double [r/w]
  • Property TileOffset As Long [r/w]
  • Property TileOffsetType As cdrTileOffsetType [r/w]
  • Property TileWidth As Double [r/w]
  • Property TransformWithShape As Boolean [r/w]

Methods:

  • Sub Select(ByVal Texture As String, [ByVal Library As String = ""])
  • Sub SetProperties(ParamArray SettingArray() As Variant)

Class TextureFillProperties

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As TextureFillProperty [r/o] [default]

Class TextureFillProperty

Properties:

  • Property Name As String [r/o]
  • Property Type As cdrTexturePropertyType [r/o]
  • Property Value As Variant [r/w] [default]

Class Transparency

Properties:

  • Property Application As Object [r/o]
  • Property AppliedTo As cdrTransparencyAppliedTo [r/w]
  • Property End As Long [r/w]
  • Property Fountain As FountainFill [r/w]
  • Property Frozen As Boolean [r/o]
  • Property Parent As Object [r/o]
  • Property Pattern As PatternFill [r/w]
  • Property Start As Long [r/w]
  • Property Texture As TextureFill [r/w]
  • Property Type As cdrTransparencyType [r/o]
  • Property Uniform As Long [r/w]

Methods:

  • Function ApplyFountainTransparency([ByVal Start As Long = 0], [ByVal End As Long = 100], [ByVal Type As cdrFountainFillType = cdrLinearFountainFill (1)], [ByVal Angle As Double = 0], [ByVal Steps As Long = 0], [ByVal EdgePad As Long = 0], [ByVal MidPoint As Long = 50]) As FountainFill
  • Sub ApplyNoTransparency()
  • Function ApplyPatternTransparency(ByVal Type As cdrPatternFillType, [ByVal FileName As String = "0"], [ByVal PatternCanvasIndex As Long = 1], [ByVal Front As Long = 0], [ByVal Back As Long = 100], [ByVal TransformWithShape As Boolean = False]) As PatternFill
  • Function ApplyTextureTransparency(ByVal TextureName As String, [ByVal LibraryName As String = "0"]) As TextureFill
  • Sub ApplyUniformTransparency(ByVal Value As Long)
  • Sub Freeze()
  • Sub Unfreeze()

Class TrapLayer

Properties:

  • Property Color As String [r/o]
  • Property Density As Double [r/w]
  • Property Order As Long [r/w]
  • Property TrapType As PrnTrapType [r/w]
  • Property Type As PrnPlateType [r/o]

Class TrapLayers

Properties:

  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As TrapLayer [r/o]

Class URL

Properties:

  • Property Address As String [r/w]
  • Property AltComment As String [r/w]
  • Property BookMark As String [r/w]
  • Property Region As cdrURLRegion [r/w]
  • Property TargetFrame As String [r/w]

Class View

Properties:

  • Property Application As Application [r/o]
  • Property Name As String [r/w]
  • Property OriginX As Double [r/w]
  • Property OriginY As Double [r/w]
  • Property Page As Page [r/w]
  • Property Parent As Views [r/o]
  • Property UsePage As Boolean [r/w]
  • Property UseZoom As Boolean [r/w]
  • Property Zoom As Double [r/w]

Methods:

  • Sub Activate()
  • Sub Delete()

Class Views

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As View [r/o] [default]
  • Property Parent As Document [r/o]

Methods:

  • Function AddActiveView(ByVal Name As String) As View

Class Window

Properties:

  • Property Active As Boolean [r/o]
  • Property ActiveView As ActiveView [r/o]
  • Property Application As Object [r/o]
  • Property Caption As String [r/o]
  • Property Document As Document [r/o]
  • Property FullScreen As Boolean [r/w]
  • Property Height As Long [r/w]
  • Property Index As Long [r/o]
  • Property Left As Long [r/w]
  • Property Next As Window [r/o]
  • Property Page As Object [r/o]
  • Property Parent As Windows [r/o]
  • Property Previous As Window [r/o]
  • Property Top As Long [r/w]
  • Property Width As Long [r/w]
  • Property WindowState As cdrWindowState [r/w]

Methods:

  • Sub Activate()
  • Sub Close()
  • Function NewWindow() As Window
  • Sub Refresh()

Class Windows

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Window [r/o] [default]
  • Property Parent As Object [r/o]

Methods:


Class Workspace

Properties:

  • Property Active As Boolean [r/o]
  • Property Application As Object [r/o]
  • Property Default As Boolean [r/o]
  • Property Description As String [r/o]
  • Property Name As String [r/o]
  • Property Parent As Workspaces [r/o]

Methods:

  • Sub Activate()

Class Workspaces

Properties:

  • Property Application As Object [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal IndexOrName As Variant) As Workspace [r/o] [default]
  • Property Parent As Object [r/o]

Enum cdrAddinFilter

  • cdrAddinFilterNone As Long=0
  • cdrAddinFilterWhileDrawing As Long=1
  • cdrAddinFilterShapeCreated As Long=2
  • cdrAddinFilterNew As Long=4
  • cdrAddinFilterExecute As Long=8

Enum cdrAlignment

  • cdrNoAlignment As Long=0
  • cdrLeftAlignment As Long=1
  • cdrRightAlignment As Long=2
  • cdrCenterAlignment As Long=3
  • cdrFullJustifyAlignment As Long=4
  • cdrForceJustifyAlignment As Long=5
  • cdrMixedAlignment As Long=6

Enum cdrAntiAliasingType

  • cdrNoAntiAliasing As Long=0
  • cdrNormalAntiAliasing As Long=1
  • cdrSupersampling As Long=2

Enum cdrBlendMode

  • cdrBlendSteps As Long=0
  • cdrBlendSpacing As Long=1

Enum cdrColorType

  • cdrColorPantone As Long=1
  • cdrColorCMYK As Long=2
  • cdrColorCMY As Long=4
  • cdrColorRGB As Long=5
  • cdrColorHSB As Long=6
  • cdrColorHLS As Long=7
  • cdrColorBlackAndWhite As Long=8
  • cdrColorGray As Long=9
  • cdrColorYIQ As Long=11
  • cdrColorLab As Long=12
  • cdrColorPantoneHex As Long=14
  • cdrColorRegistration As Long=20
  • cdrColorSpot As Long=25
  • cdrColorMixed As Long=99

Enum cdrCompressionType

  • cdrCompressionNone As Long=0
  • cdrCompressionLZW As Long=1
  • cdrCompressionPackBits As Long=2
  • cdrCompressionHuffman As Long=3
  • cdrCompressionCCITT3_1d As Long=4
  • cdrCompressionCCITT3_2d As Long=5
  • cdrCompressionCCITT4 As Long=6
  • cdrCompressionRLE_LW As Long=7
  • cdrCompressionJPEG As Long=8

Enum cdrContourDirection

  • cdrContourInside As Long=0
  • cdrContourOutside As Long=1
  • cdrContourToCenter As Long=2

Enum cdrCursorShape

  • cdrCursorWinAppStarting As Long=0
  • cdrCursorWinArrow As Long=1
  • cdrCursorWinCross As Long=2
  • cdrCursorWinHelp As Long=3
  • cdrCursorWinIbeam As Long=4
  • cdrCursorWinNo As Long=5
  • cdrCursorWinSizeAll As Long=6
  • cdrCursorWinSizeNeSw As Long=7
  • cdrCursorWinSizeNs As Long=8
  • cdrCursorWinSizeNwSe As Long=9
  • cdrCursorWinSizeWe As Long=10
  • cdrCursorWinUpArrow As Long=11
  • cdrCursorWinWait As Long=12
  • cdrCursorSmallcrosshair As Long=1
  • cdrCursorPick As Long=5
  • cdrCursorNodeEdit As Long=6
  • cdrCursorEyeDrop As Long=34
  • cdrCursorExtPick As Long=60
  • cdrCursorPickNone As Long=79
  • cdrCursorPenJoin As Long=91
  • cdrCursorPickOvertarget As Long=107
  • cdrCursorTrimSingle As Long=139
  • cdrCursorWeldSingle As Long=141
  • cdrCursorIntersectSingle As Long=143

Enum cdrDataFormatType

  • cdrFormatGeneral As Long=0
  • cdrFormatDataTime As Long=1
  • cdrFormatLinearAngular As Long=2
  • cdrFormatNumeric As Long=3

Enum cdrDistortionType

  • cdrDistortionPushPull As Long=0
  • cdrDistortionZipper As Long=1
  • cdrDistortionTwister As Long=2

Enum cdrDitherType

  • cdrDitherNone As Long=0
  • cdrDitherOrdered As Long=1
  • cdrDitherJarvis As Long=2
  • cdrDitherStucki As Long=3
  • cdrDitherFloyd As Long=4

Enum cdrDropShadowType

  • cdrDropShadowFlat As Long=0
  • cdrDropShadowBottom As Long=1
  • cdrDropShadowTop As Long=2
  • cdrDropShadowLeft As Long=3
  • cdrDropShadowRight As Long=4

Enum cdrEdgeType

  • cdrEdgeLinear As Long=0
  • cdrEdgeSquared As Long=1
  • cdrEdgeFlat As Long=2
  • cdrEdgeInverseSquared As Long=3
  • cdrEdgeMesa As Long=4
  • cdrEdgeGaussian As Long=5

Enum cdrEffectType

  • cdrBlend As Long=0
  • cdrExtrude As Long=1
  • cdrEnvelope As Long=2
  • cdrTextOnPath As Long=3
  • cdrControlPath As Long=4
  • cdrDropShadow As Long=5
  • cdrContour As Long=6
  • cdrDistortion As Long=7
  • cdrPerspective As Long=8
  • cdrLens As Long=9

Enum cdrEllipseType

  • cdrEllipse As Long=0
  • cdrArc As Long=1
  • cdrPie As Long=2

Enum cdrEnvelopeMode

  • cdrEnvelopeHorizontal As Long=0
  • cdrEnvelopeOriginal As Long=1
  • cdrEnvelopePutty As Long=2
  • cdrEnvelopeVertical As Long=3

Enum cdrExportRange

  • cdrAllPages As Long=0
  • cdrCurrentPage As Long=1
  • cdrSelection As Long=2

Enum cdrExtrudeLightPosition

  • cdrLightFrontTopLeft As Long=0
  • cdrLightFrontTop As Long=1
  • cdrLightFrontTopRight As Long=2
  • cdrLightFrontLeft As Long=3
  • cdrLightFrontCenter As Long=4
  • cdrLightFrontRight As Long=5
  • cdrLightFrontBottomLeft As Long=6
  • cdrLightFrontBottom As Long=7
  • cdrLightFrontBottomRight As Long=8
  • cdrLightBackTopLeft As Long=9
  • cdrLightBackTop As Long=10
  • cdrLightBackTopRight As Long=11
  • cdrLightBackRight As Long=14
  • cdrLightBackBottomRight As Long=17

Enum cdrExtrudeShading

  • cdrExtrudeObjectFill As Long=0
  • cdrExtrudeSolidFill As Long=1
  • cdrExtrudeColorShading As Long=2

Enum cdrExtrudeType

  • cdrExtrudeSmallBack As Long=0
  • cdrExtrudeSmallFront As Long=1
  • cdrExtrudeBigBack As Long=2
  • cdrExtrudeBigFront As Long=3
  • cdrExtrudeBackParallel As Long=4
  • cdrExtrudeFrontParallel As Long=5

Enum cdrExtrudeVPType

  • cdrVPLockedToShape As Long=0
  • cdrVPLockedToPage As Long=1
  • cdrVPShared As Long=2

Enum cdrFeatherType

  • cdrFeatherInside As Long=0
  • cdrFeatherMiddle As Long=1
  • cdrFeatherOutside As Long=2
  • cdrFeatherAverage As Long=3

Enum cdrFileVersion

  • cdrCurrentVersion As Long=0
  • cdrVersion5 As Long=5
  • cdrVersion6 As Long=6
  • cdrVersion7 As Long=7
  • cdrVersion8 As Long=8
  • cdrVersion9 As Long=9
  • cdrVersion10 As Long=10

Enum cdrFillType

  • cdrNoFill As Long=0
  • cdrUniformFill As Long=1
  • cdrFountainFill As Long=2
  • cdrPostscriptFill As Long=3
  • cdrMonoBitmapFill As Long=4
  • cdrReservedFill As Long=5
  • cdrColorBitmapFill As Long=6
  • cdrVectorFill As Long=7
  • cdrTextureFill As Long=8
  • cdrPatternFill As Long=9

Enum cdrFilter

  • cdrAutoSense As Long=0
  • cdrBMP As Long=769
  • cdrPCX As Long=770
  • cdrTGA As Long=771
  • cdrTIFF As Long=772
  • cdrGIF As Long=773
  • cdrJPEG As Long=774
  • cdrPCD As Long=775
  • cdrPSD As Long=788
  • cdrPP As Long=789
  • cdrPIC As Long=790
  • cdrMAC As Long=791
  • cdrOS2BMP As Long=792
  • cdrEPSPhotoPaint As Long=804
  • cdrRAWPhotoPaint As Long=805
  • cdrFPX As Long=806
  • cdrRIFF As Long=807
  • cdrPICT4 As Long=808
  • cdrWPG As Long=1287
  • cdrPSEncapsulated As Long=1289
  • cdrPSInterpreted As Long=1290
  • cdrOS2Metafile As Long=1291
  • cdrCMF As Long=1295
  • cdrDXF As Long=1296
  • cdrRND As Long=1297
  • cdrTTF As Long=1302
  • cdrAT1 As Long=1303
  • cdrWPG2 As Long=1304
  • cdrBarista As Long=1312
  • cdrPDFPlaceable As Long=1314
  • cdrVSD As Long=1315
  • cdrPICTWithEPS As Long=1316
  • cdrDWG As Long=1328
  • cdrAVI As Long=1536
  • cdrCMV As Long=1539
  • cdrSHW As Long=1540
  • cdrCCH As Long=1541
  • cdrQTM As Long=1542
  • cdrCFL As Long=1550
  • cdrMPEG As Long=1551
  • cdrQTVR As Long=1560
  • cdrCPT As Long=1792
  • cdrCMX6 As Long=1793
  • cdrCMX5 As Long=1794
  • cdrCDR As Long=1795
  • cdrCDX As Long=1796
  • cdrCPX As Long=1797
  • cdrCCD As Long=1798
  • cdrCPT7 As Long=1799
  • cdrCDT As Long=1800
  • cdrPAT As Long=1801
  • cdrCPT9 As Long=1808
  • cdrCPH As Long=1803
  • cdrSWF As Long=1343
  • cdrSVG As Long=1345
  • cdrFH As Long=1344
  • cdrSCT As Long=776
  • cdrIMG As Long=787
  • cdrPNG As Long=802
  • cdrCGM As Long=1280
  • cdrPLT As Long=1281
  • cdrDRW As Long=1282
  • cdrGEM As Long=1284
  • cdrPIF As Long=1285
  • cdrPICT As Long=1288
  • cdrWMF As Long=1294
  • cdrSCD As Long=1298
  • cdrEMF As Long=1300
  • cdrEPS As Long=1289
  • cdrWI As Long=793
  • cdrXPM As Long=809
  • cdrWVL As Long=793
  • cdrAI As Long=1305
  • cdrHPGL As Long=1281
  • cdrCPT10 As Long=1808
  • cdrCAL As Long=800
  • cdrCLK As Long=1802
  • cdr3DMF As Long=1559
  • cdrTXT As Long=2048
  • cdrRTF As Long=2053
  • cdrDOC As Long=2068
  • cdrWord2000 As Long=2068
  • cdrWord95 As Long=2049
  • cdrWord2 As Long=2050
  • cdrWord55 As Long=2051
  • cdrMacWord5 As Long=2052
  • cdrWP4 As Long=2058
  • cdrWP50 As Long=2057
  • cdrWP51 As Long=2056
  • cdrWP9 As Long=2055
  • cdrWPD As Long=2055
  • cdrWSW As Long=2059
  • cdrWSD As Long=2061
  • cdrWordStar2000 As Long=2061
  • cdrWordStar7 As Long=2060
  • cdrXY As Long=2062
  • cdrSAM As Long=2063
  • cdrXLS As Long=2065
  • cdrLotus123 As Long=2066
  • cdrWK As Long=2066
  • cdrWPM As Long=2072
  • cdrICO As Long=784
  • cdrCUR As Long=785
  • cdrEXE As Long=786
  • cdrXCF As Long=816
  • cdrPNM As Long=817
  • cdrPP4 As Long=789
  • cdrPP5 As Long=803
  • cdrFMV As Long=1329
  • cdrMET As Long=1291
  • cdrNAP As Long=1292
  • cdrGIFAnimation As Long=1558

Enum cdrFittedOrientation

  • cdrRotateOrientation As Long=0
  • cdrVerticalSkewOrientation As Long=1
  • cdrHorizontalSkewOrientation As Long=2
  • cdrUprightOrientation As Long=3

Enum cdrFittedPlacement

  • cdrLeftPlacement As Long=0
  • cdrRightPlacement As Long=1
  • cdrCenterPlacement As Long=2

Enum cdrFittedQuadrant

  • cdrLeftQuadrant As Long=0
  • cdrRightQuadrant As Long=1
  • cdrTopQuadrant As Long=2
  • cdrBottomQuadrant As Long=3

Enum cdrFittedVertPlacement

  • cdrCustomVertPlacement As Long=0
  • cdrBaselineVertPlacement As Long=1
  • cdrAscenderVertPlacement As Long=2
  • cdrDescenderVertPlacement As Long=3
  • cdrCenterVertPlacement As Long=4

Enum cdrFlipAxes

  • cdrFlipHorizontal As Long=1
  • cdrFlipVertical As Long=2
  • cdrFlipBoth As Long=3

Enum cdrFontCase

  • cdrNormalFontCase As Long=0
  • cdrSmallCapsFontCase As Long=1
  • cdrAllCapsFontCase As Long=2
  • cdrMixedFontCase As Long=3

Enum cdrFontLine

  • cdrNoFontLine As Long=0
  • cdrSingleThinFontLine As Long=1
  • cdrSingleThinWordFontLine As Long=2
  • cdrSingleThickFontLine As Long=3
  • cdrSingleThickWordFontLine As Long=4
  • cdrDoubleThinFontLine As Long=5
  • cdrDoubleThinWordFontLine As Long=6
  • cdrMixedFontLine As Long=7

Enum cdrFontPosition

  • cdrNormalFontPosition As Long=0
  • cdrSubscriptFontPosition As Long=1
  • cdrSuperscriptFontPosition As Long=2
  • cdrMixedFontPosition As Long=3

Enum cdrFontStyle

  • cdrNormalFontStyle As Long=0
  • cdrBoldFontStyle As Long=1
  • cdrItalicFontStyle As Long=2
  • cdrBoldItalicFontStyle As Long=3
  • cdrThinFontStyle As Long=4
  • cdrThinItalicFontStyle As Long=5
  • cdrExtraLightFontStyle As Long=6
  • cdrExtraLightItalicFontStyle As Long=7
  • cdrMediumFontStyle As Long=8
  • cdrMediumItalicFontStyle As Long=9
  • cdrSemiBoldFontStyle As Long=10
  • cdrSemiBoldItalicFontStyle As Long=11
  • cdrExtraBoldFontStyle As Long=12
  • cdrExtraBoldItalicFontStyle As Long=13
  • cdrHeavyFontStyle As Long=14
  • cdrHeavyItalicFontStyle As Long=15
  • cdrMixedFontStyle As Long=16

Enum cdrFountainFillBlendType

  • cdrDirectFountainFillBlend As Long=0
  • cdrRainbowCWFountainFillBlend As Long=1
  • cdrRainbowCCWFountainFillBlend As Long=2
  • cdrCustomFountainFillBlend As Long=3

Enum cdrFountainFillType

  • cdrLinearFountainFill As Long=1
  • cdrRadialFountainFill As Long=2
  • cdrConicalFountainFill As Long=3
  • cdrSquareFountainFill As Long=4

Enum cdrGridType

  • cdrGridDot As Long=0
  • cdrGridLine As Long=1

Enum cdrGuideType

  • cdrAllGuides As Long=-1
  • cdrHorizontalGuide As Long=0
  • cdrVerticalGuide As Long=1
  • cdrSlantedGuide As Long=2

Enum cdrImagePaletteType

  • cdrPaletteUniform As Long=0
  • cdrPaletteStdVGA As Long=1
  • cdrPaletteAdaptive As Long=2
  • cdrPaletteOptimized As Long=3
  • cdrPaletteBlackBody As Long=4
  • cdrPaletteGrayscale As Long=5
  • cdrPaletteSystem As Long=6
  • cdrPaletteIE As Long=7
  • cdrPaletteNetscape As Long=8
  • cdrPaletteCustom As Long=9

Enum cdrImageType

  • cdrBlackAndWhiteImage As Long=0
  • cdr16ColorsImage As Long=1
  • cdrGrayscaleImage As Long=2
  • cdrPalettedImage As Long=3
  • cdrRGBColorImage As Long=4
  • cdrCMYKColorImage As Long=5
  • cdrDuotoneImage As Long=6

Enum cdrLensType

  • cdrLensMagnify As Long=0
  • cdrLensFishEye As Long=1
  • cdrLensWireframe As Long=2
  • cdrLensColorLimit As Long=3
  • cdrLensColorAdd As Long=4
  • cdrLensInvert As Long=5
  • cdrLensBrighten As Long=6
  • cdrLensTintedGrayscale As Long=7
  • cdrLensHeatMap As Long=8
  • cdrLensTransparency As Long=9
  • cdrLensCustomColorMap As Long=10

Enum cdrLineSpacingType

  • cdrPercentOfCharacterHeightLineSpacing As Long=0
  • cdrPointLineSpacing As Long=1
  • cdrPercentOfPointSizeLineSpacing As Long=2
  • cdrMixedLineSpacing As Long=3

Enum cdrNodeType

  • cdrCuspNode As Long=0
  • cdrSmoothNode As Long=1
  • cdrSymmetricalNode As Long=2
  • cdrMixedNodes As Long=3

Enum cdrOptimization

  • cdrOptimizationOff As Long=0
  • cdrOptimizationOn As Long=1

Enum cdrOutlineLineCaps

  • cdrOutlineButtLineCaps As Long=0
  • cdrOutlineRoundLineCaps As Long=1
  • cdrOutlineSquareLineCaps As Long=2

Enum cdrOutlineLineJoin

  • cdrOutlineMiterLineJoin As Long=0
  • cdrOutlineRoundLineJoin As Long=1
  • cdrOutlineBevelLineJoin As Long=2

Enum cdrOutlineType

  • cdrNoOutline As Long=0
  • cdrOutline As Long=1

Enum cdrPageBackground

  • cdrPageBackgroundNone As Long=0
  • cdrPageBackgroundSolid As Long=1
  • cdrPageBackgroundBitmap As Long=2

Enum cdrPageOrientation

  • cdrPortrait As Long=0
  • cdrLandscape As Long=1

Enum cdrPaletteID

  • cdrTRUMATCH As Long=1
  • cdrPANTONEProcess As Long=2
  • cdrPANTONECorel8 As Long=3
  • cdrUniform As Long=7
  • cdrFOCOLTONE As Long=8
  • cdrSpectraMaster As Long=9
  • cdrTOYO As Long=10
  • cdrDIC As Long=11
  • cdrPANTONEHexCoated As Long=12
  • cdrPANTONEHexUncoated As Long=24
  • cdrLab As Long=13
  • cdrNetscapeNavigator As Long=14
  • cdrInternetExplorer As Long=15
  • cdrPANTONECoated As Long=17
  • cdrPANTONEUncoated As Long=18
  • cdrPANTONEMetallic As Long=20
  • cdrPANTONEPastelCoated As Long=21
  • cdrPANTONEPastelUncoated As Long=22
  • cdrHKS As Long=23
  • cdrCustom As Long=0

Enum cdrPaletteType

  • cdrFixedPalette As Long=0
  • cdrCustomPalette As Long=1

Enum cdrPanoseMatchingType

  • cdrPanosePrompt As Long=0
  • cdrPanoseTemporary As Long=1
  • cdrPanosePermanent As Long=2

Enum cdrPatternCanvasSize

  • cdrPatternCanvas16x16 As Long=0
  • cdrPatternCanvas32x32 As Long=1
  • cdrPatternCanvas64x64 As Long=2
  • cdrPatternCanvasCustom As Long=3

Enum cdrPatternFillType

  • cdrTwoColorPattern As Long=0
  • cdrFullColorPattern As Long=1
  • cdrBitmapPattern As Long=2

Enum cdrPointType

  • cdrShapePoint As Long=0
  • cdrFreePoint As Long=1

Enum cdrPolygonType

  • cdrPolygon As Long=0
  • cdrStar As Long=1

Enum cdrPositionOfPointOverShape

  • cdrOutsideShape As Long=0
  • cdrOnMarginOfShape As Long=1
  • cdrInsideShape As Long=2

Enum cdrPresetPoint

  • cdrTopLeftPoint As Long=-1
  • cdrTopPoint As Long=-2
  • cdrTopRightPoint As Long=-3
  • cdrRightPoint As Long=-4
  • cdrBottomRightPoint As Long=-5
  • cdrBottomPoint As Long=-6
  • cdrBottomLeftPoint As Long=-7
  • cdrLeftPoint As Long=-8
  • cdrCenterPoint As Long=-9
  • cdrFirstPoint As Long=-10
  • cdrLastPoint As Long=-11

Enum cdrReferencePoint

  • cdrTopRight As Long=1
  • cdrTopMiddle As Long=2
  • cdrTopLeft As Long=3
  • cdrMiddleLeft As Long=4
  • cdrBottomLeft As Long=5
  • cdrBottomMiddle As Long=6
  • cdrBottomRight As Long=7
  • cdrMiddleRight As Long=8
  • cdrCenter As Long=9

Enum cdrSegmentOffsetType

  • cdrAbsoluteSegmentOffset As Long=0
  • cdrRelativeSegmentOffset As Long=1
  • cdrParamSegmentOffset As Long=2

Enum cdrSegmentType

  • cdrLineSegment As Long=0
  • cdrCurveSegment As Long=1
  • cdrMixedSegments As Long=2

Enum cdrShapeEnumDirection

  • cdrShapeEnumTopFirst As Long=0
  • cdrShapeEnumBottomFirst As Long=1

Enum cdrShapeLevel

  • cdrLevelGroup As Long=0
  • cdrLevelContainer As Long=1
  • cdrLevelLayer As Long=2
  • cdrLevelPage As Long=3
  • cdrLevelDocument As Long=4

Enum cdrShapeType

  • cdrNoShape As Long=0
  • cdrRectangleShape As Long=1
  • cdrEllipseShape As Long=2
  • cdrCurveShape As Long=3
  • cdrPolygonShape As Long=4
  • cdrBitmapShape As Long=5
  • cdrTextShape As Long=6
  • cdrGroupShape As Long=7
  • cdrSelectionShape As Long=8
  • cdrGuidelineShape As Long=9
  • cdrBlendGroupShape As Long=10
  • cdrExtrudeGroupShape As Long=11
  • cdrOLEObjectShape As Long=12
  • cdrContourGroupShape As Long=13
  • cdrLinearDimensionShape As Long=14
  • cdrBevelGroupShape As Long=15
  • cdrDropShadowGroupShape As Long=16
  • cdr3DObjectShape As Long=17
  • cdrArtisticMediaGroupShape As Long=18
  • cdrConnectorShape As Long=19
  • cdrMeshFillShape As Long=20

Enum cdrSpiralType

  • cdrSymmetric As Long=0
  • cdrLogarithmic As Long=1

Enum cdrTextFrames

  • cdrThisFrameOnly As Long=0
  • cdrStartAtThisFrame As Long=1
  • cdrAllFrames As Long=2

Enum cdrTextIndexingType

  • cdrCharacterIndexing As Long=0
  • cdrWordIndexing As Long=1
  • cdrParagraphIndexing As Long=2

Enum cdrTextType

  • cdrArtisticText As Long=0
  • cdrParagraphText As Long=1
  • cdrArtisticFittedText As Long=2
  • cdrParagraphFittedText As Long=3

Enum cdrTexturePropertyType

  • cdrTexturePropertyNumeric As Long=0
  • cdrTexturePropertyColorRGB As Long=1
  • cdrTexturePropertyColorHSB As Long=2
  • cdrTexturePropertyColorCMYK As Long=3

Enum cdrThumbnailSize

  • cdrNoThumbnail As Long=0
  • cdr1KMonoThumbnail As Long=1
  • cdr5KColorThumbnail As Long=2
  • cdr10KColorThumbnail As Long=3

Enum cdrTileOffsetType

  • cdrTileOffsetRow As Long=0
  • cdrTileOffsetColumn As Long=1

Enum cdrTools

  • cdrToolNone As Long=0
  • cdrToolPick As Long=1
  • cdrToolNodeEdit As Long=2
  • cdrToolKnife As Long=64
  • cdrToolBezierKnife As Long=81
  • cdrToolEraser As Long=68
  • cdrToolDrawRectangle As Long=3
  • cdrToolDrawEllipse As Long=4
  • cdrToolDrawText As Long=7
  • cdrToolDrawFreehand As Long=5
  • cdrToolDrawNaturalPen As Long=103
  • cdrToolDrawBezier As Long=6
  • cdrToolHorizontalDimension As Long=54
  • cdrToolVerticalDimension As Long=55
  • cdrToolAutoDimension As Long=110
  • cdrToolSlantedDimension As Long=56
  • cdrToolLeaderText As Long=57
  • cdrToolAngledDimension As Long=58
  • cdrToolConnectorLines As Long=59
  • cdrToolDrawPolygon As Long=60
  • cdrToolDrawSpiral As Long=62
  • cdrToolDrawGrid As Long=63
  • cdrToolZoom As Long=66
  • cdrToolPan As Long=67
  • cdrToolFill As Long=71
  • cdrToolTransparency As Long=72
  • cdrToolInteractiveExtrude As Long=73
  • cdrToolBlend As Long=74
  • cdrToolRotate As Long=75
  • cdrToolReflect As Long=76
  • cdrToolScale As Long=77
  • cdrToolSkew As Long=78
  • cdrToolDistortion As Long=79
  • cdrToolContour As Long=113
  • cdrToolInsertHTMLFormObject As Long=111
  • cdrToolDropShadow As Long=80
  • cdrToolDrawConnector As Long=115
  • cdrToolEyeDropper As Long=119

Enum cdrTransparencyAppliedTo

  • cdrApplyToFill As Long=0
  • cdrApplyToOutline As Long=1
  • cdrApplyToFillAndOutline As Long=2

Enum cdrTransparencyType

  • cdrNoTransparency As Long=0
  • cdrUniformTransparency As Long=1
  • cdrFountainTransparency As Long=2
  • cdrPatternTransparency As Long=3
  • cdrTextureTransparency As Long=4

Enum cdrUnit

  • cdrTenthMicron As Long=0
  • cdrInch As Long=1
  • cdrFoot As Long=2
  • cdrMillimeter As Long=3
  • cdrCentimeter As Long=4
  • cdrPixel As Long=5
  • cdrMile As Long=6
  • cdrMeter As Long=7
  • cdrKilometer As Long=8
  • cdrDidots As Long=9
  • cdrAgate As Long=10
  • cdrYard As Long=11
  • cdrPica As Long=12
  • cdrCicero As Long=13
  • cdrPoint As Long=14
  • cdrUnitQ As Long=15
  • cdrUnitH As Long=16

Enum cdrURLRegion

  • cdrURLRegionDefault As Long=0
  • cdrURLRegionRectangle As Long=1
  • cdrURLRegionShape As Long=2

Enum cdrViewType

  • cdrSimpleWireframeView As Long=0
  • cdrWireframeView As Long=1
  • cdrDraftView As Long=2
  • cdrNormalView As Long=3
  • cdrEnhancedView As Long=4

Enum cdrWindowArrangeStyle

  • cdrTileHorizontally As Long=0
  • cdrTileVertically As Long=1
  • cdrCascade As Long=2

Enum cdrWindowState

  • cdrWindowNormal As Long=1
  • cdrWindowMaximized As Long=3
  • cdrWindowMinimized As Long=2
  • cdrWindowRestore As Long=9

Enum cuiBarPosition

  • cuiBarLeft As Long=0
  • cuiBarTop As Long=1
  • cuiBarRight As Long=2
  • cuiBarBottom As Long=3
  • cuiBarFloating As Long=4

Enum cuiBarProtection

  • cuiBarNoProtection As Long=0
  • cuiBarNoCustomize As Long=1
  • cuiBarNoMove As Long=4
  • cuiBarNoChangeVisible As Long=8
  • cuiBarNoChangeDock As Long=16
  • cuiBarNoVerticalDock As Long=32
  • cuiBarNoHorizontalDock As Long=64

Enum cuiBarType

  • cuiBarTypeNormal As Long=0
  • cuiBarTypeMenuBar As Long=1
  • cuiBarTypePopup As Long=2
  • cuiBarTypeStatusBar As Long=3
  • cuiBarTypePropertyBar As Long=4

Enum pdfBitmapCompressionType

  • pdfNone As Long=0
  • pdfLZW As Long=1
  • pdfJPEG As Long=2
  • pdfZIP As Long=3

Enum pdfColorMode

  • pdfRGB As Long=0
  • pdfCMYK As Long=1
  • pdfGrayscale As Long=2
  • pdfNative As Long=3

Enum pdfColorProfile

  • pdfCompositeProfile As Long=0
  • pdfSeparationProfile As Long=1

Enum pdfDisplayOnStart

  • pdfPageOnly As Long=0
  • pdfFullScreen As Long=1
  • PDFBookmarks As Long=2
  • pdfThumbnails As Long=3

Enum pdfEncodingType

  • pdfASCII85 As Long=0
  • pdfBinary As Long=1

Enum pdfEPSAs

  • pdfPostscript As Long=0
  • pdfPreview As Long=1

Enum pdfExportRange

  • pdfWholeDocument As Long=0
  • pdfCurrentPage As Long=1
  • pdfSelection As Long=2
  • pdfPageRange As Long=3

Enum pdfVersion

  • pdfVersion12 As Long=0
  • pdfVersion13 As Long=1
  • pdfVersionPDFX1 As Long=2

Enum PrnBitmapColorMode

  • prnBitmapCMYK As Long=0
  • prnBitmapRGB As Long=1
  • prnBitmapGrayscale As Long=2

Enum PrnColorMode

  • prnModeFullColor As Long=0
  • prnModeGrayscale As Long=1
  • prnModeBlack As Long=2

Enum PrnFileMode

  • prnSingleFile As Long=0
  • prnSeparatePages As Long=1
  • prnSeparatePlates As Long=2

Enum PrnImageTrap

  • prnTrapNormal As Long=0
  • prnTrapSpread As Long=1
  • prnTrapChoke As Long=2
  • prnTrapCenter As Long=3

Enum PrnPDFStartup

  • prnPDFFullScreen As Long=0
  • prnPDFPageOnly As Long=1
  • prnPDFThumbnails As Long=2
  • prnPDFOutlines As Long=3

Enum PrnPlateType

  • prnCyan As Long=0
  • prnMagenta As Long=1
  • prnYellow As Long=2
  • prnBlack As Long=3
  • prnOrange As Long=4
  • prnGreen As Long=5
  • prnSpot As Long=6

Enum PrnPostScriptLevel

  • prnPSLevel1 As Long=1
  • prnPSLevel2 As Long=2
  • prnPSLevel3 As Long=3

Enum PrnPrintRange

  • prnWholeDocument As Long=0
  • prnCurrentPage As Long=1
  • prnSelection As Long=2
  • prnPageRange As Long=3

Enum PrnRegistrationStyle

  • prnStandard As Long=0
  • prnLong As Long=1
  • prnSquare As Long=2
  • prnHalfInverted As Long=3
  • prnCorel As Long=4

Enum PrnTrapType

  • prnLayerNormal As Long=0
  • prnLayerTransparent As Long=1
  • prnLayerOpaque As Long=2
  • prnLayerOpaqueIgnore As Long=3

[ CorelDRAW VBA Specifics | Using VBA with Corel Applications | Oberon Home Page ]

Copyright 2000 by Alex Vakulenko. All rights reserved.
This page was last revised on 10/24/00.