| Name | Type | Description |
|---|---|---|
| NumberOfPages |
Long
|
|
| Width |
Double
|
|
| Height |
Double
|
Sub DocumentOpen()
Dim doc As Document
Set doc = OpenDocument("C:\Flower.cdr")
With doc
.AddPagesEx 1, 10, 10
.ActiveLayer.CreateEllipse(0, 3, 5, 1).Fill.UniformColor.CMYKAssign 0, 100, 100, 0
.Save
End With
End Sub