Creating new specific document

[hvw]

The purpose is after correcting a photo or picture to make following steps:
1. make a new document with specific size and resolution
2. selecting borders to indicate the frame borders
3. original photo is kept in first window (if you have to restart)

Many thanks for helping (Sorry for the Dutch varables)

Code Userform
Private Sub OK_Knop_Click()

If OB20x30 = True Then
Breedte = 20: Hoogte = 30: Keuzegrootte = 1
ElseIf OB30x45 = True Then
Breedte = 30: Hoogte = 45: Keuzegrootte = 1
ElseIf OB40x60 = True Then
Breedte = 40: Hoogte = 60: Keuzegrootte = 1
ElseIf OB50x75 = True Then
Breedte = 50: Hoogte = 75: Keuzegrootte = 1
Else: Keuzegrootte = 0
End If

If OB_Hor = True Then
B = Breedte ' Omkeren breedte & Hoogte
H = Hoogte
Hoogte = B
Breedte = H
Keuzeligging = 1
End If

If OB_Vert = True Then
Ligging = "Hor": Keuzeligging = 1
End If

If FrmtBreedte <> "" And FrmtHoogte <> "" Then
Frmt = 1
Breedte = CInt(FrmtBreedte)
Hoogte = CInt(FrmtHoogte)
End If

If (Keuzegrootte = 1 And Keuzeligging = 1 And Frmt = 0) Or _
(Keuzegrootte = 0 And Keuzeligging = 0 And Frmt = 1) Then
Ingave = "OK"
Else
Ingave = "Verkeerd"
End If

Slip = 0.3
HulplijnB = 30
HulplijnL = 30

If Canvas = True Then
Slip = 0.7
HulplijnB = 69
HulplijnL = 69
End If

If CvBlind = True Then
Slip = 4.2
HulplijnB = 414
HulplijnL = 414
End If

Breedte = (Breedte + Slip) / 25.4 * 10 * 250
Hoogte = (Hoogte + Slip) / 25.4 * 10 * 250

If CvBlind = True Then
HulplijnR = Breedte - 414
HulplijnO = Hoogte - 414
ElseIf Canvas = True Then
HulplijnR = Breedte - 69
HulplijnO = Hoogte - 69
Else
HulplijnR = Breedte - 30
HulplijnO = Hoogte - 30
End If

Unload Keuzevenster

End Sub
---------------------------
Code
Public Ingave As String
Public Breedte As Long, Hoogte As Long
Public HulplijnB As Long, HulplijnL As Long, HulplijnO As Long, HulplijnR As Long
Dim Hulplijn As Guide, Doc As Document
Sub Vergroting()

Keuzevenster.Show

If Ingave = "OK" Then
Else
MsgBox ("Verkeerde ingave")
Keuzevenster.Show
End If

With Application.CorelScript
.EditCopy
.EditPasteDocument
End With

ActiveWindow.RulersVisible = True
ActiveDocument.SetResolution (250)

ActiveWindow.WindowState = cdrWindowMaximized
ActiveDocument.Resample Breedte, Hoogte, True

Set Hulplijn = ActiveDocument.CreateGuide(pntGuideHorizontal, 0, HulplijnB)
Set Hulplijn = ActiveDocument.CreateGuide(pntGuideHorizontal, 0, HulplijnO)
Set Hulplijn = ActiveDocument.CreateGuide(pntGuideVertical, HulplijnL, 0)
Set Hulplijn = ActiveDocument.CreateGuide(pntGuideVertical, HulplijnR, 0)

Set Doc = ActiveDocument

Doc.Mask.SelectAll

With Application.CorelScript
CorelScript.EditCopy
?????????????????
CorelScript.EditPasteObject
End With

End Sub
----------------
?????????
Here I would like to fill the background with a specific color

[shelbym]

To create a document you would do something like this:

Dim doc As Document
Set doc = CreateDocument(600, 800, cdrImageRGB)

Hope that helps,

-Shelby