AboutNeal Ziring Expertise Experienced user of versions 5, 6, 7, 8, 9, 10, 11, 12, and X3 mostly for
web page graphics, some photo retouching, some technical document
illustration. Right now I only have versions 12 and X3 available to me,
so I'll be best at answering questions about those.
Question QUESTION: Is it possible to print the file path for an inserted image in a corel picture. For e.g. i need to insert two pictures per page but i need the file path for both the pics as well. Manually keying in the path is driving me nuts. I would really appreciate some help on this.
ANSWER: Deepak,
There is no simple, trivial way to do what you have asked.
There are a couple of ways, but none of them is very easy.
I'll describe two methods.
1. Manual (but faster than typing)
Click on the Import button, and a file dialog will pop up.
Select the image you want, then right-click on it. Choose
Properties from the popup menu. In the Properties dialog,
find the Location field, and run your mouse horizontally
over it from left to right; this will highlight the full
path of the file. Right-click on the highlighted text and
choose Copy from the popup menu. Click on OK to dismiss
the Properties dialog, and then click on OK to import the
image. Position it and size it as usual.
Then, click on the Text tool, and adjust the font and size.
Click where you want the file path to go, then type Ctrl-V
to paste the file path.
2. Automatic (more work, but automated)
To automate this process, you will have to create a CorelScript
or Visual Basic script that automates the process of importing
an image and putting the text under it. This will require some
modest skill with writing CorelScript or VBA macros. (I have
very little skill with that. Unfortunately, the CorelScript
recorder in PhotoPaint X3 is not capable enough to do the job
alone.)
Here is a sample script that does some of the work.
It creates an imported image object and a text image object,
which you then have to position.
WITHOBJECT "CorelPHOTOPAINT.Automation.13"
REM set the next line to the size of your base image
.SetDocumentInfo 3000, 1500
Flt$ = "Bitmap files|*.bmp;*.tif;*.jpg;*.png;*.gif"
Filename$=GETFILEBOX(Flt$,"Select a file to import")
REM change 300,400 below to half the size of your imported image
.FileImport Filename$, 0, 0, 0, 0, 0, 300, 400, 0, 0, 0, 0
REM set 115,748 below to the spot where you want the text to start
.TextTool 115, 748, FALSE, TRUE, 0
REM set the text fill color and size below to your preference
.TextSetting "Fill", "255,0,0"
.TextSetting "Font", "Arial"
.TextSetting "TypeSize", "11"
.TextSetting "Direction", "0"
.TextAppend Filename$
.TextRender
END WITHOBJECT
Save the text above as a text file named "ImagePlusPath.csc" into
your Application Data\Corel\Graphics 13\User PHOTOPaint\scripts
folder.
Create a new blank image in PhotoPaint. The choose
Tools->Run Corel Script from the main menu bar. A file dialog
will pop up, use it to select ImagePlusPath.csc and hit OK.
Another file browser will pop up to let you select an image to
import. Choose your image and then hit OK. It will be imported
and the path inserted as an object.
Much better macro code could be written if you learned how.
Anyway, those are my two solutions. I hope one of them meets your
needs.
...nz
---------- FOLLOW-UP ----------
QUESTION: Hi i tried creating the txt file with the script you have given but the Coreldraw suit 12 that i have does not recognise this as a script file since the extention is ImagePlusPath.csc.txt
i need a *.csc file but dont know how to make one. could you teach me please
Answer Deepak,
That script should work in Corel PhotoPaint 12. You just need
to rename the file from "ImagePlusPath.csc.txt" to
"ImagePlusPath.csc". You can do this in Windows Explorer, or
in the Command shell using the command
