| Name | Type | Description |
|---|---|---|
| FileName |
String
|
|
| CodePage |
Long
|
Specifies the document encoding (code page or character set) to use for the document. |
Sub DocumentOpen()
Dim doc As Document
Set doc = OpenDocument("C:\Flower.cdr")
With doc
.AddPages (1)
.ActiveLayer.CreateEllipse(0, 3, 5, 1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0
.Save
End With
End SubSub DocumentOpen()
Dim doc As Document
Set doc = OpenDocument("C:\Flower.des")
With doc
.AddPages (1)
.ActiveLayer.CreateEllipse(0, 3, 5, 1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0
.Save
End With
End Sub