AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |
Back to Blog
Export eps macro corel vba3/11/2023 ![]() ![]() In CallFunction SUB you can call and put the results in their places like "txtCDRFile. If you click to receive only the string of name of file and folder I believe it should be a Function. CDR and Initial folders, but try this code (a simplified one) to see if your performance improve. ![]() I believe you need to use FileDialog without setting an Excel Application. TxtCDRFile.Text = objFileDialog.SelectedItems(1)ĬDRInitialFolder = Left(txtCDRFile.Text, InStrRev(txtCDRFile.Text, "\"))įirst of all, I guess you are in some UserForm, in Office (Access or Excel). 'show the dialog and exit if Cancel is pressed Visual Basic 5 GPL-3.0 5 0 1 Updated on Aug 25, 2017. Visual Basic 5 GPL-3.0 8 0 0 Updated on Jan 20, 2018. ![]() 'add a filter, all filters must start with an asterisk CdrTools is a large collection of simple macros for daily work in CorelDRAW. Set objFileDialog = (msoFileDialogType.msoFileDialogFilePicker) Any ideas? Private Sub cmdCDRFile_Click()ĭim objFileDialogFilters As Office.FileDialogFilters Also, many times, it causes the application to freeze completely. It will pull up the dialogue, however, I have to use Alt Tab to see it. I am using the following code for a file open dialogue to open a CDR file in CorelDraw.
0 Comments
Read More
Leave a Reply. |