My current photo editing software (Microsoft PhotoDRaw) has the ability to do this and wondering if I can achieve the same in CorelDraw X5 or PhotoPaint Pro X3. I just reinstalled both and need to start using them since PhotoDraw only work up till Windows XP and I use Virtual Machine to run it.
Here you go. If say I open a new project to any page size of my choice and import any image (any size) into the page. Is there a way I can automatically fit the page to the image size in either CorelDraw X5or PhotoPaint X3? That is, if my default page size is letter (8.5"x11") and I import an image that is 2.2"x5", can I automatically fit the default page to the fit the image at 2.2"x5"? Really very handy too. Can I also do the reverse image to paper size? If I can do either, where do I go?
Thanks.
Hi.
Try this macro. I tested in X6
Sub itemsToPage() doPageAndItemSizing FalseEnd SubSub pageToItems() doPageAndItemSizing TrueEnd SubSub togglePageBorder() If ActiveDocument.Properties("PageBorder", 1) Then ActiveDocument.Properties("PageBorder", 1) = False Else ActiveDocument.Properties("PageBorder", 1) = True End If Application.FrameWork.Automation.Invoke "77f7f9eb-3e06-4899-9a8b-80d9e2aa68d3"End SubPrivate Sub doPageAndItemSizing(bPgToItem As Boolean) Dim sr As ShapeRange Dim w#, h# Set sr = ActiveSelectionRange If sr.Count = 0 Then MsgBox "Make a selection. Exiting...", vbCritical, "GDG": Exit Sub If Not ActiveDocument.Properties("PageBorder", 1) Then ActiveDocument.Properties("PageBorder", 1) = True Application.FrameWork.Automation.Invoke "77f7f9eb-3e06-4899-9a8b-80d9e2aa68d3" End If If bPgToItem Then sr.GetSize w, h ActivePage.SetSize w, h Else ActivePage.GetSize w, h sr.SetSize w, h End If sr.SetPositionEx cdrBottomLeft, 0, 0End Sub
~John
RunFlaCruiser
Thanks for the Macro you sent me. Honestly, I tried running it but could not. I thought I could with the AutoCAD's LISP experience, but this is a different method. I printed out all the help infor on CoredDraw X5 marcro, but still could not. I added it in the manager but the final extension is different from what the marcro import needs.
Please could you give me more directions on how to use the code you sent me.
Thanks for your time.
This very short video will give you some basics:
http://community.coreldraw.com/forums/t/35227.aspx
This page will tell you exactly how step by step:
http://www.gdgmacros.com/getting_started_with_macros.php
John,
I checked out your tutorial(s) and just like a charm, the code you sent worked well. I love it. I sure will use your tutorials to create other recordings.
However, what I am really looking for is shown in the included video clip. The application I used is Microsoft PhotoDraw which is only compatible till Windows XP which I run on my VMWarre Virtual Machine. I would like to eliminate that from my system is I can use Corel instead.
In the video, the paper fits to the image or image fits to paper (of any size) automatically. Just wondering if it is possible in CorelDraw X5 or PhotoPaint X3.
Oka
Sure.
I kinda figured you would want to leave the image proportional so I was expecting this.
Just change:
If bPgToItem Then sr.GetSize w, h ActivePage.SetSize w, h Else ActivePage.GetSize w, h sr.SetSize w, h End If
to:
If bPgToItem Then sr.GetSize w, h ActivePage.SetSize w, h Else ActivePage.GetSize w, h sr.SetSize w End If
I didn't test again but that should do it.
Hello John,
I replaced the section as isntructed and got this error: