Links and Resources

Open Source Macro Projects

Moss Country — Sat, 09 Mar 2013 13:30:23 GMT

Current revision posted to Links and Resources by Moss Country on 3/9/2013 8:30:23 AM

Open Source Macro Projects

Filed under: VBA, macros, Open Source

Here you'll find Macros, which are free to use, to elaborate or simply to learn from.

No matter if you are a macro user or a macro developer, if you are interessted joining an existing project and contributing your knowledge, experience or simply your feedback,

go ahead and check it out!

BUT, before you start using or co-developing an Open Source Macro, MAKE SURE you've read the bounded License!

Open Source Macro Projects

mo — Thu, 22 Mar 2012 14:08:04 GMT

Revision 1 posted to Links and Resources by mo on 3/22/2012 10:08:04 AM

Here you'll find Macros, which are free to use, to elaborate or simply to learn from.

No matter if you are a macro user or a macro developer, if you are interessted joining an existing project and contributing your knowledge, experience or simply your feedback,

go ahead and check it out!

BUT, before you start using or co-developing an Open Source Macro, MAKE SURE you've read the bounded License!

Handcrafted with care in CorelDraw

albcl115 — Sat, 16 Feb 2013 04:04:42 GMT

Current revision posted to Links and Resources by albcl115 on 2/15/2013 11:04:42 PM

Handcrafted with care in CorelDraw

Filed under: Handcrafted with care, Great Designs shared, Corel Draw, tag, label, inspiration, campaign, artworks

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworks.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘Great Designs Shared’ campaign, you can visit this link

Handcrafted with care in CorelDraw

Gerard Metrailler — Thu, 10 Jan 2013 20:31:27 GMT

Revision 5 posted to Links and Resources by Gerard Metrailler on 1/10/2013 3:31:27 PM

Handcrafted with care in CorelDraw

Filed under: Handcrafted with care, Great Designs shared, Corel Draw, tag, label, inspiration, campaign, artworks

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworksjust like Trustedessays.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘Great Designs Shared’ campaign, you can visit this link

Additional

* Saksuk

Handcrafted with care in CorelDraw

jeremypo — Tue, 11 Dec 2012 18:37:16 GMT

Revision 4 posted to Links and Resources by jeremypo on 12/11/2012 1:37:16 PM

Handcrafted with care in CorelDraw

Filed under: Handcrafted with care, Great Designs shared, Corel Draw, tag, label, inspiration, campaign, artworks

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworks just like Trustedessays.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘Great Designs Shared’ campaign, you can visit this link

Additional

* Saksuk

Handcrafted with care in CorelDraw

NeilTovar — Thu, 23 Aug 2012 08:11:49 GMT

Revision 3 posted to Links and Resources by NeilTovar on 8/23/2012 4:11:49 AM

Handcrafted with care in CorelDraw

Filed under: Handcrafted with care, Great Designs shared, Corel Draw, tag, label, inspiration, campaign, artworks

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworks just like Trustedessays.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘Great Designs Shared’ campaign, you can visit this link

Handcrafted with care in CorelDraw

corelX — Mon, 09 Jul 2012 08:40:46 GMT

Revision 2 posted to Links and Resources by corelX on 7/9/2012 4:40:46 AM

Handcrafted with care in CorelDraw

Filed under: Handcrafted with care, Great Designs shared, Corel Draw, tag, label, inspiration, campaign, artworks

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworks.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘GGreat Designs Shared’ campaign, you can visit this link

Handcrafted with care in CorelDraw

corelX — Mon, 09 Jul 2012 08:40:08 GMT
Revision 1 posted to Links and Resources by corelX on 7/9/2012 4:40:08 AM

This is in response to CorelDraw’s " Great Designs Shared" Campaign.

This campaign encourages CorelDraw users to share and tag their artworks.

such as flyers, signs, billboards, embroideries or graphics designs, on Flickr or Facebook that will fuel the inspiration of other CorelDraw users.

For more information about CorelDraw’s ‘GGreat Designs Shared’ campaign, you can visit this link

QR Creator Macro

Gerard Metrailler — Thu, 10 Jan 2013 21:34:59 GMT
Current revision posted to Links and Resources by Gerard Metrailler on 1/10/2013 4:34:59 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.4.0) - date added: 06-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.3.0) - date added: 03-23-2012

QRCode-Macro BETA (v. 0.2.0) - date added:03-22-2012

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Code Output selectable as Bitmap or Vector Shape

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

Kernel32

License:

GNU GPL

Memutihkan Ketiak Surat Pengunduran Diri Saksuk

QR Creator Macro

jeremypo — Tue, 18 Dec 2012 09:36:01 GMT
Revision 10 posted to Links and Resources by jeremypo on 12/18/2012 4:36:01 AM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.4.0) - date added: 06-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.3.0) - date added: 03-23-2012

QRCode-Macro BETA (v. 0.2.0) - date added:03-22-2012

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Code Output selectable as Bitmap or Vector Shape

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

Kernel32

License:

GNU GPL

Memutihkan Ketiak Surat Pengunduran Diri Saksuk

QR Creator Macro

mo — Sat, 23 Jun 2012 23:12:48 GMT
Revision 9 posted to Links and Resources by mo on 6/23/2012 7:12:48 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.4.0) - date added: 06-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.3.0) - date added: 03-23-2012

QRCode-Macro BETA (v. 0.2.0) - date added:03-22-2012

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Code Output selectable as Bitmap or Vector Shape

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit)x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

Kernel32

License:

GNU GPL

QR Creator Macro

mo — Sat, 23 Jun 2012 18:13:30 GMT
Revision 8 posted to Links and Resources by mo on 6/23/2012 2:13:30 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.3.00.4.0) - date added: 03-23-201206-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.3.0) - date added: 03-23-2012

QRCode-Macro BETA (v. 0.2.0) - date added:03-22-2012

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Code Output selectable as Bitmap or Vector Shape

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

Kernel32

License:

GNU GPL

QR Creator Macro

mo — Fri, 23 Mar 2012 16:33:46 GMT
Revision 7 posted to Links and Resources by mo on 3/23/2012 12:33:46 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.2.00.3.0) - date added:03-23-2012added: 03-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.2.0) - date added:03-22-2012

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Fri, 23 Mar 2012 14:24:11 GMT
Revision 6 posted to Links and Resources by mo on 3/23/2012 10:24:11 AM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.2.0) - date added:03-23-2012

Old Releases:

QRCode-Macro BETA (v. 0.1.0) - date added:03-22-2012

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Win 7 (x32bit and x64bit):

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Thu, 22 Mar 2012 16:38:47 GMT
Revision 5 posted to Links and Resources by mo on 3/22/2012 12:38:47 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.1.0)

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Thu, 22 Mar 2012 16:26:55 GMT
Revision 4 posted to Links and Resources by mo on 3/22/2012 12:26:55 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.1.0)

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Thu, 22 Mar 2012 16:22:29 GMT
Revision 3 posted to Links and Resources by mo on 3/22/2012 12:22:29 PM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

To report bugs or get critism for your code contribution, use this thread instead: http://coreldraw.com/forums/t/31931.aspx

Current Release:

QRCode-Macro BETA (v. 0.1.0)

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Thu, 22 Mar 2012 15:02:19 GMT
Revision 2 posted to Links and Resources by mo on 3/22/2012 11:02:19 AM

QR Creator Macro

Filed under: VBA, macro, QR, Code

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

Current Release:

QRCode-Macro BETA (v. 0.1.0)

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

Dependencies:

urlmon

wininet.dll

shell32.dll

License:

GNU GPL

QR Creator Macro

mo — Thu, 22 Mar 2012 14:37:08 GMT
Revision 1 posted to Links and Resources by mo on 3/22/2012 10:37:08 AM

Now it's easy to create QR codes directly in CorelDRAW! The QR Code Macro is based on the QR Code Generator from the ZXing project, which support many types of QR Codes.

Current Release:

QRCode-Macro BETA (v. 0.1.0)

Features:

Supports following QR data formats:
Text Message, URL, Email, Phone Number, SMS and VCard

Tested:

Win XP (x32bit):

CorelDRAW X5

CorelDRAW X6

License:

GNU GPL

Resources

Gerard Metrailler — Thu, 10 Jan 2013 21:34:24 GMT
Current revision posted to Links and Resources by Gerard Metrailler on 1/10/2013 4:34:24 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version (GMS.TXT): [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/6052.QRCode_2D00_Macro_2D00_B040.gms.txt:680:1000]

older versions:

BETA 0.3.0

BETA 0.2.0

BETA 0.1.0

Additional link

Memutihkan Ketiak

Surat Pengunduran Diri

Saksuk

Resources

jeremypo — Tue, 18 Dec 2012 09:36:59 GMT
Revision 11 posted to Links and Resources by jeremypo on 12/18/2012 4:36:59 AM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version (GMS.TXT): [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/6052.QRCode_2D00_Macro_2D00_B040.gms.txt:680:1000]

older versions:

BETA 0.3.0

BETA 0.2.0

BETA 0.1.0

Additional link

Memutihkan Ketiak

Surat Pengunduran Diri

Saksuk

Resources

mo — Sat, 23 Jun 2012 18:09:09 GMT
Revision 10 posted to Links and Resources by mo on 6/23/2012 2:09:09 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version (GMS.TXT): [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/2642.QRCode_2D00_Macro_2D00_v0.3.0.gms.txt:680:1000]View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/6052.QRCode_2D00_Macro_2D00_B040.gms.txt:680:1000]

older versions:

BETA 0.3.0

BETA 0.2.0

BETA 0.1.0

Resources

mo — Fri, 23 Mar 2012 16:34:44 GMT
Revision 9 posted to Links and Resources by mo on 3/23/2012 12:34:44 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version : QRCode-Macro BETA 0.3.0(GMS.TXT): [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/2642.QRCode_2D00_Macro_2D00_v0.3.0.gms.txt:680:1000]

older versions:

BETA 0.2.0

BETA 0.1.0

Resources

mo — Fri, 23 Mar 2012 16:32:35 GMT
Revision 8 posted to Links and Resources by mo on 3/23/2012 12:32:35 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version: QRCode-Macro BETA 0.3.0

GMS.TXT: [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/2642.QRCode_2D00_Macro_2D00_v0.3.0.gms.txt:680:1000]

older versions:

[resources:/cfs-file.ashx/__key/CommunityServer.Components.PostAttachments/00.00.15.03.27/QRCode_2D00_Macro.gms.txt|BETA

BETA 0.2.0]

BETA 0.1.0

Resources

mo — Fri, 23 Mar 2012 16:26:00 GMT
Revision 7 posted to Links and Resources by mo on 3/23/2012 12:26:00 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version: QRCode-Macro BETA 0.3.0

GMS.TXT: [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/2642.QRCode_2D00_Macro_2D00_v0.3.0.gms.txt:680:1000]

older versions:

[[resources:/cfs-file.ashx/__key/CommunityServer.Components.PostAttachments/00.00.15.03.27/QRCode_2D00_Macro.gms.txt|BETA 0.2.0]resources:/cfs-file.ashx/__key/CommunityServer.Components.PostAttachments/00.00.15.03.27/QRCode_2D00_Macro.gms.txt|BETA 0.2.0]

BETA 0.1.0

Resources

mo — Fri, 23 Mar 2012 16:25:34 GMT
Revision 6 posted to Links and Resources by mo on 3/23/2012 12:25:34 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version: QRCode-Macro BETA 0.2.00.3.0

GMS.TXT: [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/1104.QRCode_2D00_Macro_2D00_v0.2.0.gms.txt:680:1000]View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/2642.QRCode_2D00_Macro_2D00_v0.3.0.gms.txt:680:1000]

older versions:

[[resources:/cfs-file.ashx/__key/CommunityServer.Components.PostAttachments/00.00.15.03.27/QRCode_2D00_Macro.gms.txt|BETA 0.2.0]]

BETA 0.1.0

Resources

mo — Fri, 23 Mar 2012 14:19:08 GMT
Revision 5 posted to Links and Resources by mo on 3/23/2012 10:19:08 AM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version: http://coreldraw.com/media/p/150284.aspx QRCode-Macro BETA 0.2.0

GMS.TXT: [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/4214.QRCode_2D00_Macro.gms.txt:680:1000]View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/1104.QRCode_2D00_Macro_2D00_v0.2.0.gms.txt:680:1000]

older versions: none BETA 0.1.0

Resources

mo — Thu, 22 Mar 2012 16:32:23 GMT
Revision 4 posted to Links and Resources by mo on 3/22/2012 12:32:23 PM

Resources

[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current version: http://coreldraw.com/media/p/150284.aspx

GMS.TXT: [View:http://coreldraw.com/cfs-file.ashx/__key/CommunityServer.Wikis.Components.Files/resources/4214.QRCode_2D00_Macro.gms.txt:680:1000]

older versions: none

Resources

mo — Thu, 22 Mar 2012 16:20:55 GMT
Revision 3 posted to Links and Resources by mo on 3/22/2012 12:20:55 PM

Resources

Link to
[PLEASE NOTE: if you have altered the code, make sure it's tested by some people. To get your Code revised and granted, use this thread instead:http://coreldraw.com/forums/t/31931.aspx. This place should ONLY list the current and out-of-date versions!]

current versionGMS: http://coreldraw.com/media/p/150284.aspx

older versions: none

Resources

mo — Thu, 22 Mar 2012 15:27:17 GMT
Revision 2 posted to Links and Resources by mo on 3/22/2012 11:27:17 AM

Resources

Link to the current version GMS: http://coreldraw.com/media/p/150284.aspx

Resources

mo — Thu, 22 Mar 2012 14:55:38 GMT
Revision 1 posted to Links and Resources by mo on 3/22/2012 10:55:38 AM

Link to the current version GMS:

Source Code

Gerard Metrailler — Thu, 10 Jan 2013 21:33:38 GMT
Current revision posted to Links and Resources by Gerard Metrailler on 1/10/2013 4:33:38 PM

Source Code

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'# from the ZXing Project

'# Copyright (C) 2012 Maurice Beumers and Shelby Moore

'#

'# This program is free software; you can redistribute it and/or modify it under the

'# terms of the GNU General Public License as published by the Free Software Foundation;

'# either version 3 of the License, or (at your option) any later version.

'#

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'# See the GNU General Public License for more details.

'#

'# For the GNU General Public License, see http://www.gnu.org/licenses/gpl-3.0.

'#

'#

'# BUGFIXES:

'# 03-22-2012 added Support for Win 7 x32 and Win 7 x64

'# 03-23-2012 deleted redundant manual preview reload, reload now forced with textbox update

'# corrected the gpl links, added a link to the online QR generator

'# fixed the textboxes to support multiline input

'# integrated a flag to process only if a connection to the online qr generator exists

'# 06-23-2012 fixed: if the "Save As" dialog is canceled, the macro should not process further

'# added the basic vector processing (tracing)

'# added bitmap conversion: imported RGB to Monochrome

'# improved processing to remove the unnecessary white space around the QR code

'# fixed bug with umlauts: has utf-8 support now for the online url query

'# added booster and grouped the processing to one document action: "Make QR Code"

'# added/fixed: when proxy shape isn't square, the process is stopped (Code isn't readable when streched)

'# added automatic powerclipping, when a square powerclip container is selected

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$, SaveFlag As Boolean

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Support for Win 7 x32 and Win 7 x64

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As LongPtr, ByVal dwflags As LongPtr, _

ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, _

ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As LongPtr, _

ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Private Declare Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As Long, ByVal dwflags As Long, _

ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _

ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _

ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

#End If

Const SW_SHOWNORMAL = 1

Private Const CP_UTF8 = 65001

'#####----qr code preview reload by textbox update----#####

Private Sub bAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bAdr_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bName_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bNote_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bOrg_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhone_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lMsg.Caption = "Message to enter (curr. length: " & bSMSText.TextLength & "; " & 160 - bSMSText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lText.Caption = "Text to enter (curr. length: " & bText.TextLength & "; " & 300 - bText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bTitle_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bToEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bURL_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bWeb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub comboCharEncod_Change()

getQRCode

End Sub

Private Sub comboErrCode_Change()

getQRCode

End Sub

'#####----textbox update ends----#####

Private Sub cmdCreate_Click()

Dim s1 As Shape, s2 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#, trset As TraceSettings, tsr As ShapeRange, pwr As PowerClip

' If the link to the online generator is empty, we have to asume the boxes are also empty:

If OnlineFile = "" Then: MsgBox "No Data to process yet": GoTo GoOn:

'Oh, we need a valid connection of course!

'Comment the next line out when running in debug mode, cause the "QROnline_DocumentComplete" event doesnt trigger in debug mode

If SaveFlag = False Then: MsgBox "connecting to Online Code Generator. Wait a few seconds or check your internet connection.": GoTo GoOn:

'TURBO!!!

boostStart "Make QR Code"

On Error GoTo ErrorMe:

'If a shape is selected, force the imported qr code image to adopt position and size

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

'No place yet to store the downloaded code image? So promt a window where to save it

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "qrcode.png")

End If

'If the "Save As" dialog was canceled, stop processing

If LocalFile = "" Then GoTo GoOn:

'NOW download the image from the online generator:

DownloadFile

'Import stuff...

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

'prepare vector tracing...

If ActiveShape.Type = cdrBitmapShape Then

Set trset = ActiveShape.Bitmap.Trace(cdrTraceClipart, , , cdrColorMixed, cdrCustom, 2, True, True, True)

With trset

.DetailLevelPercent = 100

.BackgroundRemovalMode = cdrTraceBackgroundAutomatic

.CornerSmoothness = 0

.DeleteOriginalObject = True

.RemoveBackground = True

.RemoveEntireBackColor = True

.RemoveOverlap = True

.SetColorCount 2

.SetColorMode cdrColorGray, cdrCustom

.Smoothing = 0

.TraceType = cdrTraceClipart

End With

Set tsr = trset.Finish

tsr.Ungroup

Set s2 = tsr.Combine

End If

'set the code image/shape size and position to the proxy shape, delete the proxy shape

If Not s1 Is Nothing Then

s2.SetPositionEx cdrCenter, x, y

If ImageResize(s2, w, h, x, y) = False Then GoTo GoOn:

If optBitmap = True Then

Set s2 = s2.ConvertToBitmapEx(cdrBlackAndWhiteImage, False, False, ActiveDocument.Resolution, cdrNoAntiAliasing, True)

End If

'check if the proxy shape is a powerclip container, if yes, paste the code image/shape into it

Set pwr = Nothing: Set pwr = s1.PowerClip

On Error GoTo 0

If Not pwr Is Nothing Then

s2.Cut

pwr.EnterEditMode

ActiveLayer.Paste

pwr.LeaveEditMode

Else

s1.Delete

End If

End If

GoOn:

'TURBO END

boostFinish True

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

'prepare the URL query for the online generator...

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

SaveFlag = False

'connect to online generator:

QROnline.Navigate OnlineFile

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

'Prevent Scrollbars in the QR Code preview window

QROnline.Document.body.Scroll = "no"

SaveFlag = True

On Error GoTo 0

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L (recommended, low, ~7%)"

ErrCodeArray(1, 0) = "M (middle, ~15%)"

ErrCodeArray(2, 0) = "Q (quality, ~25%)"

ErrCodeArray(3, 0) = "H (high, ~30%)"

comboErrCode.List() = ErrCodeArray

comboErrCode.ControlTipText = "Error Correction Code. Select how many lost data (in percent) should be compensateable."

CharEncodeArray(0, 0) = "UTF-8 (recommended)"

CharEncodeArray(1, 0) = "ISO-8859-1 (ASCII only)"

CharEncodeArray(2, 0) = "SHIFT_JIS (Japanese)"

comboCharEncod.List() = CharEncodeArray

comboCharEncod.ControlTipText = "Charset Code. Use ISO-8859-1 for very old QR Readers."

End Sub

Private Sub UserForm_Activate()

'show a blank preview at startup

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResize(s1 As Shape, w#, h#, x#, y#) As Boolean

If w <> h Then

MsgBox "The Proxy Shape must be square in order to create a readable QR Code": ImageResize = False

Else

s1.SizeWidth = w

s1.SizeHeight = h

ImageResize = True

End If

End Function

Private Function UTF16To8(ByVal UTF16 As String) As String

Dim sBuffer As String

Dim lLength As Long

If UTF16 <> "" Then

lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, 0, 0, 0, 0)

sBuffer = Space$(lLength)

lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)

sBuffer = StrConv(sBuffer, vbUnicode)

UTF16To8 = Left$(sBuffer, lLength - 1)

Else

UTF16To8 = ""

End If

End Function

Private Function URLEncode(StringVal As String, Optional SpaceAsPlus As Boolean = True, Optional UTF8Encode As Boolean = True) As String

' Converting Macro input to an URL Query String

Dim StringValCopy$, StringLen&

StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)

StringLen = Len(StringValCopy)

If StringLen > 0 Then

ReDim Result(StringLen) As String

Dim I As Long, CharCode As Integer

Dim Char As String, Space As String

If SpaceAsPlus Then Space = "+" Else Space = "%20"

For I = 1 To StringLen

Char = Mid$(StringValCopy, I, 1)

CharCode = Asc(Char)

Select Case CharCode

Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126

Result(I) = Char

Case 32

Result(I) = Space

Case 0 To 15

Result(I) = "%0" & Hex(CharCode)

Case Else

Result(I) = "%" & Hex(CharCode)

End Select

Next I

URLEncode = Join(Result, "")

End If

End Function

Sub boostStart(Optional ByVal unDo As String = "")

On Error Resume Next

If unDo <> "" Then ActiveDocument.BeginCommandGroup unDo

Optimization = True

EventsEnabled = False

ActiveDocument.SaveSettings

'ActiveDocument.PreserveSelection = False

End Sub

Sub boostFinish(Optional ByVal endUndoGroup As Boolean = False)

On Error Resume Next

'ActiveDocument.PreserveSelection = True

ActiveDocument.RestoreSettings

EventsEnabled = True

Optimization = False

ActiveWindow.Refresh

Refresh

If endUndoGroup Then ActiveDocument.EndCommandGroup

End Sub

Private Sub lQRG_Click()

Dim GPLstring$

'opens the link to the online QR Code generator

GPLstring = "http://zxing.appspot.com/generator/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub lGPL_Click()

Dim GPLstring$

'opens the link to the online GPL license

GPLstring = "http://www.gnu.org/licenses/gpl-3.0"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Additional Link

Memutihkan Ketiak Surat Pengunduran Diri Saksuk

Source Code

jeremypo — Tue, 18 Dec 2012 09:37:45 GMT
Revision 8 posted to Links and Resources by jeremypo on 12/18/2012 4:37:45 AM

Source Code

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'# from the ZXing Project

'# Copyright (C) 2012 Maurice Beumers and Shelby Moore

'#

'# This program is free software; you can redistribute it and/or modify it under the

'# terms of the GNU General Public License as published by the Free Software Foundation;

'# either version 3 of the License, or (at your option) any later version.

'#

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'# See the GNU General Public License for more details.

'#

'# For the GNU General Public License, see http://www.gnu.org/licenses/gpl-3.0.

'#

'#

'# BUGFIXES:

'# 03-22-2012 added Support for Win 7 x32 and Win 7 x64

'# 03-23-2012 deleted redundant manual preview reload, reload now forced with textbox update

'# corrected the gpl links, added a link to the online QR generator

'# fixed the textboxes to support multiline input

'# integrated a flag to process only if a connection to the online qr generator exists

'# 06-23-2012 fixed: if the "Save As" dialog is canceled, the macro should not process further

'# added the basic vector processing (tracing)

'# added bitmap conversion: imported RGB to Monochrome

'# improved processing to remove the unnecessary white space around the QR code

'# fixed bug with umlauts: has utf-8 support now for the online url query

'# added booster and grouped the processing to one document action: "Make QR Code"

'# added/fixed: when proxy shape isn't square, the process is stopped (Code isn't readable when streched)

'# added automatic powerclipping, when a square powerclip container is selected

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$, SaveFlag As Boolean

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Support for Win 7 x32 and Win 7 x64

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As LongPtr, ByVal dwflags As LongPtr, _

ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, _

ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As LongPtr, _

ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Private Declare Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As Long, ByVal dwflags As Long, _

ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _

ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _

ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

#End If

Const SW_SHOWNORMAL = 1

Private Const CP_UTF8 = 65001

'#####----qr code preview reload by textbox update----#####

Private Sub bAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bAdr_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bName_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bNote_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bOrg_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhone_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lMsg.Caption = "Message to enter (curr. length: " & bSMSText.TextLength & "; " & 160 - bSMSText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lText.Caption = "Text to enter (curr. length: " & bText.TextLength & "; " & 300 - bText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bTitle_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bToEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bURL_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bWeb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub comboCharEncod_Change()

getQRCode

End Sub

Private Sub comboErrCode_Change()

getQRCode

End Sub

'#####----textbox update ends----#####

Private Sub cmdCreate_Click()

Dim s1 As Shape, s2 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#, trset As TraceSettings, tsr As ShapeRange, pwr As PowerClip

' If the link to the online generator is empty, we have to asume the boxes are also empty:

If OnlineFile = "" Then: MsgBox "No Data to process yet": GoTo GoOn:

'Oh, we need a valid connection of course!

'Comment the next line out when running in debug mode, cause the "QROnline_DocumentComplete" event doesnt trigger in debug mode

If SaveFlag = False Then: MsgBox "connecting to Online Code Generator. Wait a few seconds or check your internet connection.": GoTo GoOn:

'TURBO!!!

boostStart "Make QR Code"

On Error GoTo ErrorMe:

'If a shape is selected, force the imported qr code image to adopt position and size

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

'No place yet to store the downloaded code image? So promt a window where to save it

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "qrcode.png")

End If

'If the "Save As" dialog was canceled, stop processing

If LocalFile = "" Then GoTo GoOn:

'NOW download the image from the online generator:

DownloadFile

'Import stuff...

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

'prepare vector tracing...

If ActiveShape.Type = cdrBitmapShape Then

Set trset = ActiveShape.Bitmap.Trace(cdrTraceClipart, , , cdrColorMixed, cdrCustom, 2, True, True, True)

With trset

.DetailLevelPercent = 100

.BackgroundRemovalMode = cdrTraceBackgroundAutomatic

.CornerSmoothness = 0

.DeleteOriginalObject = True

.RemoveBackground = True

.RemoveEntireBackColor = True

.RemoveOverlap = True

.SetColorCount 2

.SetColorMode cdrColorGray, cdrCustom

.Smoothing = 0

.TraceType = cdrTraceClipart

End With

Set tsr = trset.Finish

tsr.Ungroup

Set s2 = tsr.Combine

End If

'set the code image/shape size and position to the proxy shape, delete the proxy shape

If Not s1 Is Nothing Then

s2.SetPositionEx cdrCenter, x, y

If ImageResize(s2, w, h, x, y) = False Then GoTo GoOn:

If optBitmap = True Then

Set s2 = s2.ConvertToBitmapEx(cdrBlackAndWhiteImage, False, False, ActiveDocument.Resolution, cdrNoAntiAliasing, True)

End If

'check if the proxy shape is a powerclip container, if yes, paste the code image/shape into it

Set pwr = Nothing: Set pwr = s1.PowerClip

On Error GoTo 0

If Not pwr Is Nothing Then

s2.Cut

pwr.EnterEditMode

ActiveLayer.Paste

pwr.LeaveEditMode

Else

s1.Delete

End If

End If

GoOn:

'TURBO END

boostFinish True

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

'prepare the URL query for the online generator...

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

SaveFlag = False

'connect to online generator:

QROnline.Navigate OnlineFile

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

'Prevent Scrollbars in the QR Code preview window

QROnline.Document.body.Scroll = "no"

SaveFlag = True

On Error GoTo 0

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L (recommended, low, ~7%)"

ErrCodeArray(1, 0) = "M (middle, ~15%)"

ErrCodeArray(2, 0) = "Q (quality, ~25%)"

ErrCodeArray(3, 0) = "H (high, ~30%)"

comboErrCode.List() = ErrCodeArray

comboErrCode.ControlTipText = "Error Correction Code. Select how many lost data (in percent) should be compensateable."

CharEncodeArray(0, 0) = "UTF-8 (recommended)"

CharEncodeArray(1, 0) = "ISO-8859-1 (ASCII only)"

CharEncodeArray(2, 0) = "SHIFT_JIS (Japanese)"

comboCharEncod.List() = CharEncodeArray

comboCharEncod.ControlTipText = "Charset Code. Use ISO-8859-1 for very old QR Readers."

End Sub

Private Sub UserForm_Activate()

'show a blank preview at startup

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResize(s1 As Shape, w#, h#, x#, y#) As Boolean

If w <> h Then

MsgBox "The Proxy Shape must be square in order to create a readable QR Code": ImageResize = False

Else

s1.SizeWidth = w

s1.SizeHeight = h

ImageResize = True

End If

End Function

Private Function UTF16To8(ByVal UTF16 As String) As String

Dim sBuffer As String

Dim lLength As Long

If UTF16 <> "" Then

lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, 0, 0, 0, 0)

sBuffer = Space$(lLength)

lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)

sBuffer = StrConv(sBuffer, vbUnicode)

UTF16To8 = Left$(sBuffer, lLength - 1)

Else

UTF16To8 = ""

End If

End Function

Private Function URLEncode(StringVal As String, Optional SpaceAsPlus As Boolean = True, Optional UTF8Encode As Boolean = True) As String

' Converting Macro input to an URL Query String

Dim StringValCopy$, StringLen&

StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)

StringLen = Len(StringValCopy)

If StringLen > 0 Then

ReDim Result(StringLen) As String

Dim I As Long, CharCode As Integer

Dim Char As String, Space As String

If SpaceAsPlus Then Space = "+" Else Space = "%20"

For I = 1 To StringLen

Char = Mid$(StringValCopy, I, 1)

CharCode = Asc(Char)

Select Case CharCode

Case 97 To 122, 65 To 90, 48 To 57, 45, 46, 95, 126

Result(I) = Char

Case 32

Result(I) = Space

Case 0 To 15

Result(I) = "%0" & Hex(CharCode)

Case Else

Result(I) = "%" & Hex(CharCode)

End Select

Next I

URLEncode = Join(Result, "")

End If

End Function

Sub boostStart(Optional ByVal unDo As String = "")

On Error Resume Next

If unDo <> "" Then ActiveDocument.BeginCommandGroup unDo

Optimization = True

EventsEnabled = False

ActiveDocument.SaveSettings

'ActiveDocument.PreserveSelection = False

End Sub

Sub boostFinish(Optional ByVal endUndoGroup As Boolean = False)

On Error Resume Next

'ActiveDocument.PreserveSelection = True

ActiveDocument.RestoreSettings

EventsEnabled = True

Optimization = False

ActiveWindow.Refresh

Refresh

If endUndoGroup Then ActiveDocument.EndCommandGroup

End Sub

Private Sub lQRG_Click()

Dim GPLstring$

'opens the link to the online QR Code generator

GPLstring = "http://zxing.appspot.com/generator/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub lGPL_Click()

Dim GPLstring$

'opens the link to the online GPL license

GPLstring = "http://www.gnu.org/licenses/gpl-3.0"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Additional Link

Memutihkan Ketiak Surat Pengunduran Diri Saksuk

Source Code

mo — Sat, 23 Jun 2012 18:01:50 GMT
Revision 7 posted to Links and Resources by mo on 6/23/2012 2:01:50 PM

Source Code

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'# from the ZXing Project

'# Copyright (C) 2012 Maurice Beumers and Shelby Moore

'#

'# This program is free software; you can redistribute it and/or modify it under the

'# terms of the GNU General Public License as published by the Free Software Foundation;

'# either version 3 of the License, or (at your option) any later version.

'#

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'# See the GNU General Public License for more details.

'#

'# For the GNU General Public License, see http://www.gnu.org/licenses/gpl-3.0.

'#

'#

'# BUGFIXES:

'# 03-22-2012 added Support for Win 7 x32 and Win 7 x64

'# 03-23-2012 deleted redundant manual preview reload, reload now forced with textbox update

'# corrected the gpl links, added a link to the online QR generator

'# fixed the textboxes to support multiline input

'# integrated a flag to process only if a connection to the online qr generator exists

'# 06-23-2012 fixed: if the "Save As" dialog is canceled, the macro should not process further

'# added the basic vector processing (tracing)

'# added bitmap conversion: imported RGB to Monochrome

'# improved processing to remove the unnecessary white space around the QR code

'# fixed bug with umlauts: has utf-8 support now for the online url query

'# added booster and grouped the processing to one document action: "Make QR Code"

'# added/fixed: when proxy shape isn't square, the process is stopped (Code isn't readable when streched)

'# added automatic powerclipping, when a square powerclip container is selected

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$, SaveFlag As Boolean

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Support for Win 7 x32 ands and Win 7 x64

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

Private Declare PtrSafe Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As LongPtr, ByVal dwflags As LongPtr, _

ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, _

ByVal lpMultiByteStr As LongPtr, ByVal cchMultiByte As LongPtr, _

ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Private Declare Function WideCharToMultiByte Lib "Kernel32" ( _

ByVal CodePage As Long, ByVal dwflags As Long, _

ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, _

ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, _

ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

#End If

Const SW_SHOWNORMAL = 1

Private Const CP_UTF8 = 65001

'#####----qr code preview reload by textbox update----#####

Private Sub bAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bAdr_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bName_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bNote_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bOrg_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhone_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lMsg.Caption = "Message to enter (curr. length: " & bSMSText.TextLength & "; " & 160 - bSMSText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

lText.Caption = "Text to enter (curr. length: " & bText.TextLength & "; " & 300 - bText.TextLength & " Chars left.)"

getQRCode

End Sub

Private Sub bTitle_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bToEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bURL_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bWeb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub comboCharEncod_Change()

getQRCode

End Sub

Private Sub comboErrCode_Change()

getQRCode

End Sub

'#####----textbox update ends----#####

Private Sub cmdCreate_Click()

Dim s1 As Shape, s2 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#h#, trset As TraceSettings, tsr As ShapeRange, pwr As PowerClip

' If the link to the online generator is empty, we have to asume the boxes are also empty:

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit SubGoTo GoOn:

'Oh, we need a valid connection of course!

'Comment the next line out when running in debug mode, cause the "QROnline_DocumentComplete" event doesnt trigger in debug mode

If SaveFlag = False Then: MsgBox "connecting to Online Code Generator. Wait a few seconds or check your internet connection.": Exit SubGoTo GoOn:

'TURBO!!!

boostStart "Make QR Code"

On Error GoTo ErrorMe:

'If a shape is selected, force the imported qr code image to adopt position and size

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

'No place yet to store the downloaded code image? So promt a window where to save it

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")"qrcode.png")

End If

'If the "Save As" dialog was canceled, stop processing

If LocalFile = "" Then GoTo GoOn:

'NOW download the image from the online generator:

DownloadFile

'Import stuff...

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

'prepare vector tracing...

If ActiveShape.Type = cdrBitmapShape Then

Set trset = ActiveShape.Bitmap.Trace(cdrTraceClipart, , , cdrColorMixed, cdrCustom, 2, True, True, True)

With trset

.DetailLevelPercent = 100

.BackgroundRemovalMode = cdrTraceBackgroundAutomatic

.CornerSmoothness = 0

.DeleteOriginalObject = True

.RemoveBackground = True

.RemoveEntireBackColor = True

.RemoveOverlap = True

.SetColorCount 2

.SetColorMode cdrColorGray, cdrCustom

.Smoothing = 0

.TraceType = cdrTraceClipart

End With

Set tsr = trset.Finish

tsr.Ungroup

Set s2 = tsr.Combine

End If

'set the code image image/shape size and position to the proxy shape, delete the proxy shape

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx

s2.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape

If ImageResize(s2, w, h, x, y) = False Then GoTo GoOn:

If optBitmap = True Then

Set s2 = s2.ConvertToBitmapEx(cdrBlackAndWhiteImage, False, False, ActiveDocument.Resolution, cdrNoAntiAliasing, True)

End If

'ActiveShape check if the proxy shape is a powerclip container, if yes, paste the code image/shape into it

Set pwr = Nothing: Set pwr = s1.PowerClip

On Error GoTo 0

If Not pwr Is Nothing Then

s2.Cut

pwr.EnterEditMode

ActiveLayer.Paste

pwr.LeaveEditMode

Else

s1.Delete

End If

End If

GoOn:

'TURBO END

boostFinish True

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

'prepare the URL query for the online generator...

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

SaveFlag = False

'connect to online generator:

QROnline.Navigate OnlineFile

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

'Prevent Scrollbars in the QR Code preview window

QROnline.Document.body.Scroll = "no"

SaveFlag = True

On Error GoTo 0

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L""L (recommended, low, ~7%)"

ErrCodeArray(1, 0) = "M""M (middle, ~15%)"

ErrCodeArray(2, 0) = "Q""Q (quality, ~25%)"

ErrCodeArray(3, 0) = "H""H (high, ~30%)"

comboErrCode.List() = ErrCodeArray

comboErrCode.ControlTipText = "Error Correction Code. Select how many lost data (in percent) should be compensateable."

CharEncodeArray(0, 0) = "UTF-8""UTF-8 (recommended)"

CharEncodeArray(1, 0) = "ISO-8859-1""ISO-8859-1 (ASCII only)"

CharEncodeArray(2, 0) = "SHIFT_JIS""SHIFT_JIS (Japanese)"

comboCharEncod.List() = CharEncodeArray

comboCharEncod.ControlTipText = "Charset Code. Use ISO-8859-1 for very old QR Readers."

End Sub

Private Sub UserForm_Activate()

'show a blank preview at startup

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 ImageResize(s1 As Shape, w#, h#, x#, y#) As Boolean

If s1.SizeHeight > s1.SizeWidth w <> h Then

s1.SizeWidth

MsgBox "The Proxy Shape must be square in order to create a readable QR Code": ImageResize = (h / s1.SizeHeight) * False

Else

s1.SizeWidth = w

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight

ImageResize = True

End If

End Function

Private Function UTF16To8(ByVal UTF16 As String) As String

Dim sBuffer As String

Dim lLength As Long

If UTF16 <> "" Then

s1.SizeHeight

lLength = (w / s1.SizeWidthWideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, 0, 0, 0, 0)* s1.SizeHeight

s1.SizeWidth

sBuffer = w

Else

s1.SizeWidth Space$(lLength)

lLength = w

s1.SizeHeight WideCharToMultiByte(CP_UTF8, 0, StrPtr(UTF16), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)

sBuffer = hStrConv(sBuffer, vbUnicode)

UTF16To8 = Left$(sBuffer, lLength - 1)

Else

UTF16To8 = ""

End If

End Function

Private Function URLEncode(StringToEncode$URLEncode(StringVal As String, Optional SpaceAsPlus As Boolean = True, Optional UTF8Encode As Boolean = True) As String

' Converting Macro input to an URL Query String

Dim TempAns$StringValCopy$, CurChr StringLen&

StringValCopy = IIf(UTF8Encode, UTF16To8(StringVal), StringVal)

StringLen = Len(StringValCopy)

If StringLen > 0 Then

ReDim Result(StringLen) As String

Dim I As Long, CharCode As Integer

CurChr

Dim Char As String, Space As String

If SpaceAsPlus Then Space = "+" Else Space = "%20"

For I = 1

Do Until CurChr - To StringLen

Char = Mid$(StringValCopy, I, 1)

CharCode = Len(StringToEncodeAsc(Char)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))CharCode

Case 48 97 To 57122, 65 To 90, 97 48 To 122

TempAns = TempAns & Mid$(StringToEncode57, CurChr45, 146, 95, 126

Result(I) = Char

Case 32

TempAns

Result(I) = TempAns Space

Case 0 To 15

Result(I) = "%0" & "+"Hex(CharCode)

Case Else

TempAns

Result(I) = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1))Hex(CharCode)

End Select

CurChr = CurChr + 1

Loop

Next I

URLEncode = TempAnsJoin(Result, "")

End If

End Function

Sub boostStart(Optional ByVal unDo As String = "")

On Error Resume Next

If unDo <> "" Then ActiveDocument.BeginCommandGroup unDo

Optimization = True

EventsEnabled = False

ActiveDocument.SaveSettings

'ActiveDocument.PreserveSelection = False

End Sub

Sub boostFinish(Optional ByVal endUndoGroup As Boolean = False)

On Error Resume Next

'ActiveDocument.PreserveSelection = True

ActiveDocument.RestoreSettings

EventsEnabled = True

Optimization = False

ActiveWindow.Refresh

Refresh

If endUndoGroup Then ActiveDocument.EndCommandGroup

End Sub

Private Sub lQRG_Click()

Dim GPLstring$

'opens the link to the online QR Code generator

GPLstring = "http://zxing.appspot.com/generator/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub lGPL_Click()

Dim GPLstring$

'opens the link to the online GPL license

GPLstring = "http://www.gnu.org/licenses/gpl-3.0"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Source Code

mo — Fri, 23 Mar 2012 16:18:29 GMT
Revision 6 posted to Links and Resources by mo on 3/23/2012 12:18:29 PM

Source Code

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'# from the ZXing Project

'# Copyright (C) 2012 Maurice Beumers

'#

'# This program is free software; you can redistribute it and/or modify it under the

'# terms of the GNU General Public License as published by the Free Software Foundation;

'# either version 3 of the License, or (at your option) any later version.

'#

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'# See the GNU General Public License for more details.

'#

'# For the GNU General Public License, see http://www.gnu.org/licenses/http://www.gnu.org/licenses/gpl-3.0.

'#

'#

'# BUGFIXES:

'# 03-22-2012 added Support for Win 7 x32 and Win 7 x64

'# 03-23-2012 deleted redundant manual preview reload, reload now forced with textbox update

'# corrected the gpl links, added a link to the online QR generator

'# fixed the textboxes to support multiline input

'# integrated a flag to process only if a connection to the online qr generator exists

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$, SaveFlag As Boolean

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Suppert Support for Win 7 x32 ands Win 7 x64support

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

#End If

Const SW_SHOWNORMAL = 1

'#####----qr code preview reload by textbox update----#####

Private Sub bAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bAdr_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bName_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bNote_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bOrg_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhone_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bTitle_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bToEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bURL_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bWeb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

'#####----textbox update ends----#####

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

' If the link to the online generator is empty, we have to asume the boxes are also empty:

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

'Oh, we need a valid connection of course!

If SaveFlag = False Then: MsgBox "connecting to Online Code Generator. Wait a few seconds or check your internet connection.": Exit Sub

'If a shape is selected, force the imported code image to adopt position and size

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

'No place yet to store the downloaded code image? So promt a window where to save it

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

'NOW download the image from the online generator:

DownloadFile

'Import stuff...

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

'set the code image size and position to the proxy shape, delete the proxy shape

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

'prepare the URL query for the online generator...

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

SaveFlag = False

'connect to online generator:

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

'Prevent Scrollbars in the QR Code preview window

QROnline.Document.body.Scroll = "no"

SaveFlag = True

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

'show a blank preview at startup

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

Private Function URLEncode(StringToEncode$) As String

' Converting Macro input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lQRG_Click()

Dim GPLstring$

'opens the link to the online QR Code generator

GPLstring = "http://zxing.appspot.com/generator/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub lGPL_Click()

Dim GPLstring$

'opens the link to the online GPL license

GPLstring = "http://www.gnu.org/licenses/""http://www.gnu.org/licenses/gpl-3.0"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Source Code

mo — Fri, 23 Mar 2012 14:13:25 GMT
Revision 5 posted to Links and Resources by mo on 3/23/2012 10:13:25 AM

Source Code

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator #

'# from the ZXing Project #

'# Copyright (C) 2012 Maurice Beumers #

'# #

'# This program is free software; you can redistribute it and/or modify it under the #

'# terms of the GNU General Public License as published by the Free Software Foundation; #

'# either version 3 of the License, or (at your option) any later version. #

'# #

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;#

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.#

'# See the GNU General Public License for more details. #

'# #

'# For the GNU General Public License, see http://www.gnu.org/licenses/. #

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Suppert for Win 7 x32 ands Win 7 x64 support

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

#End If

Const SW_SHOWNORMAL = 1

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

DownloadFile

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

QROnline.Document.body.Scroll = "no"

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

' Converting Macro input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lGPL_Click()

Dim GPLstring$

GPLstring = "http://www.gnu.org/licenses/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Source Code

mo — Fri, 23 Mar 2012 14:09:21 GMT
Revision 4 posted to Links and Resources by mo on 3/23/2012 10:09:21 AM

SourcesSource Code

Here

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator #

'# from the ZXing Project #

'# Copyright (C) 2012 Maurice Beumers #

'# #

'# This program is free software; you can redistribute it and/or modify it under the #

'll find # terms of the sources GNU General Public License as published by the Free Software Foundation; #

'# either version 3 of the current and older versionsLicense, or (at your option) any later version.

Current Source #

'# #

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; #

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. #

'# See the GNU General Public License for more details. #

'# #

'# For the GNU General Public License, see http://www.gnu.org/licenses/. #

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

#End If

Const SW_SHOWNORMAL = 1

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

DownloadFile

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

QROnline.Document.body.Scroll = "no"

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

' Converting Macro BETA 0.1.0input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lGPL_Click()

Dim GPLstring$

GPLstring = "http://www.gnu.org/licenses/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Sources

mo — Thu, 22 Mar 2012 16:36:41 GMT
Revision 3 posted to Links and Resources by mo on 3/22/2012 12:36:41 PM

Sources

Here you'll find the sources of the current and older versions.

Current Source: QR Code Macro BETA 0.1.0

Sources

mo — Thu, 22 Mar 2012 16:35:08 GMT
Revision 2 posted to Links and Resources by mo on 3/22/2012 12:35:08 PM

SourceSources

-- frQRCM.frm --

'

'QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'from the ZXing Project

'Copyright (C) 2012 Maurice Beumers

'

'This program is free software;
Here youcan redistribute it and/or modify it under the'terms of the GNU General Public License as published by the Free Software Foundation;

'either version 3 of the License, or (at your option) any later version.

'

'This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'without even ll find the implied warranty sources of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'See the GNU General Public License for more details.

'

'For the GNU General Public License, see http://www.gnu.org/licenses/.

'

Option Explicit

Private OnlineFile$, LocalFile$

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Const SW_SHOWNORMAL = 1

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save current and Open The QR Code from", 1, "chart.png")

End If

DownloadFile

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFullolder versions.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error

Current Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

QROnline.Document.body.Scroll = "no"

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

' Converting Macro input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lGPL_Click()

Dim GPLstring$

GPLstring = "http://www.gnu.org/licenses/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End SubBETA 0.1.0

Source

mo — Thu, 22 Mar 2012 14:59:28 GMT
Revision 1 posted to Links and Resources by mo on 3/22/2012 10:59:28 AM

-- frQRCM.frm --

'

'QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'from the ZXing Project

'Copyright (C) 2012 Maurice Beumers

'

'This program is free software; you can redistribute it and/or modify it under the

'terms of the GNU General Public License as published by the Free Software Foundation;

'either version 3 of the License, or (at your option) any later version.

'

'This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'See the GNU General Public License for more details.

'

'For the GNU General Public License, see http://www.gnu.org/licenses/.

'

Option Explicit

Private OnlineFile$, LocalFile$

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Const SW_SHOWNORMAL = 1

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

DownloadFile

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

QROnline.Document.body.Scroll = "no"

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

' Converting Macro input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lGPL_Click()

Dim GPLstring$

GPLstring = "http://www.gnu.org/licenses/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

BETA 0.2.0

mo — Sat, 23 Jun 2012 18:00:50 GMT
Current revision posted to Links and Resources by mo on 6/23/2012 2:00:50 PM

--- frmQRCM ---

'###############################################################################################

'# QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'# from the ZXing Project

'# Copyright (C) 2012 Maurice Beumers

'#

'# This program is free software; you can redistribute it and/or modify it under the

'# terms of the GNU General Public License as published by the Free Software Foundation;

'# either version 3 of the License, or (at your option) any later version.

'#

'# This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'# without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'# See the GNU General Public License for more details.

'#

'# For the GNU General Public License, see http://www.gnu.org/licenses/gpl-3.0.

'#

'#

'# BUGFIXES:

'# 03-22-2012 added Support for Win 7 x32 and Win 7 x64

'# 03-23-2012 deleted redundant manual preview reload, reload now forced with textbox update

'# corrected the gpl links, added a link to the online QR generator

'# fixed the textboxes to support multiline input

'# integrated a flag to process only if a connection to the online qr generator exists

'###############################################################################################

Option Explicit

Private OnlineFile$, LocalFile$, SaveFlag As Boolean

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

'# Updated by Shelby Moore

'# added Support for Win 7 x32 ands Win 7 x64

#If VBA7 Then

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As LongPtr, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As LongPtr, _

ByVal lpfnCB As LongPtr) As Long

Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As LongPtr, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As LongPtr) As LongPtr

#Else

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

#End If

Const SW_SHOWNORMAL = 1

'#####----qr code preview reload by textbox update----#####

Private Sub bAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bAdr_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bName_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bNote_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bOrg_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhone_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSAC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSCC_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSPhoneNmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bSMSText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bTitle_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bToEmail_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bURL_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

Private Sub bWeb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

getQRCode

End Sub

'#####----textbox update ends----#####

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

' If the link to the online generator is empty, we have to asume the boxes are also empty:

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

'Oh, we need a valid connection of course!

If SaveFlag = False Then: MsgBox "connecting to Online Code Generator. Wait a few seconds or check your internet connection.": Exit Sub

'If a shape is selected, force the imported code image to adopt position and size

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

'No place yet to store the downloaded code image? So promt a window where to save it

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

'NOW download the image from the online generator:

DownloadFile

'Import stuff...

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

'set the code image size and position to the proxy shape, delete the proxy shape

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

'prepare the URL query for the online generator...

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

SaveFlag = False

'connect to online generator:

QROnline.Navigate OnlineFile

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

'Prevent Scrollbars in the QR Code preview window

QROnline.Document.body.Scroll = "no"

SaveFlag = True

On Error GoTo 0

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

'show a blank preview at startup

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

Private Function URLEncode(StringToEncode$) As String

' Converting Macro input to an URL Query String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lQRG_Click()

Dim GPLstring$

'opens the link to the online QR Code generator

GPLstring = "http://zxing.appspot.com/generator/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub lGPL_Click()

Dim GPLstring$

'opens the link to the online GPL license

GPLstring = "http://www.gnu.org/licenses/gpl-3.0"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Bugfixes

mo — Sat, 23 Jun 2012 17:58:25 GMT
Current revision posted to Links and Resources by mo on 6/23/2012 1:58:25 PM

Bugfixes

[PLEASE don't list your issues with this macro here! Use this thread instead:http://coreldraw.com/forums/t/31931.aspx]

03-22-2012: added support for Win 7 OS, x32bit and x64bit (CorelDRAW X6), by Shelby Moore

03-23-2012:   deleted redundant manual preview reload, reload now forced with textbox update

corrected the gpl links, added a link to the online QR generator

fixed the textboxes to support multiline input

integrated a flag to process only if a connection to the online qr generator exists

06-23-2012:   dfixed: if the "Save As" dialog is canceled, the macro should not process further

added the basic vector processing (tracing)

added bitmap conversion: imported RGB to Monochrome

improved processing to remove the unnecessary white space around the QR code

fixed bug with umlauts: has utf-8 support now for the online url query

added booster and grouped the processing to one document action: "Make QR Code"

added/fixed: when proxy shape isn't square, the process is stopped (Code isn't readable when stretched)

added automatic powerclipping, when a square powerclip container is selected

Bugfixes

mo — Fri, 23 Mar 2012 16:20:45 GMT
Revision 4 posted to Links and Resources by mo on 3/23/2012 12:20:45 PM

Bugfixes

[PLEASE don't list your issues with this macro here! Use this thread instead:http://coreldraw.com/forums/t/31931.aspx]

03-22-2012: added support for Win 7 OS, x32bit and x64bit (CorelDRAW X6), by Shelby Moore

03-23-2012:   deleted redundant manual preview reload, reload now forced with textbox update

corrected the gpl links, added a link to the online QR generator

fixed the textboxes to support multiline input

integrated a flag to process only if a connection to the online qr generator exists

Bugfixes

mo — Fri, 23 Mar 2012 14:26:11 GMT
Revision 3 posted to Links and Resources by mo on 3/23/2012 10:26:11 AM

Bugfixes

[PLEASE don't list your issues with this macro here! Use this thread instead:http://coreldraw.com/forums/t/31931.aspx]

03-22-2012: added support for Win 7 OS, x32bit and x64bit (CorelDRAW X6), by Shelby Moore

Bugfixes

mo — Thu, 22 Mar 2012 16:16:43 GMT
Revision 2 posted to Links and Resources by mo on 3/22/2012 12:16:43 PM

BugsBugfixes

None yet
[PLEASE don't list your issues with this macro here! Use this thread instead:http://coreldraw.com/forums/t/31931.aspx]

Bugs

mo — Thu, 22 Mar 2012 15:03:07 GMT
Revision 1 posted to Links and Resources by mo on 3/22/2012 11:03:07 AM

None yet

Fluid - CorelDRAW Master

Richard Reilly — Thu, 14 Jun 2012 22:50:16 GMT
Current revision posted to Links and Resources by Richard Reilly on 6/14/2012 6:50:16 PM

Keep an eye out for my Tips, Tutorials & Webinars

http://www.fluiddsn.com

https://www.facebook.com/Fluiddsn

@fluiddsn

https://twitter.com/#!/Fluiddsn

http://www.flickr.com/people/fluiddsn/

CorelDRAW helps students

CorneliusLan — Thu, 10 May 2012 16:49:19 GMT
Current revision posted to Links and Resources by CorneliusLan on 5/10/2012 12:49:19 PM

CorelDRAW helps students

Filed under: Coreldraw, help, Coreldraw with Photoshop, coreldraw thumbnails

Overview

Many schools are widely uses CorelDRAW for lessons, and so why:

It's easy to use

Simple interface

Big opportunity.

For most students, writing their graphic home tasks are harder than research papers writing. They sleep late partying with college mates and wake up late to attend lectures or even go to the library. They do not find time to do their research and as a result that end up having poorly done term papers always consulted to do the work on their behalf.

Main specifications

OS Required: Microsoft Windows 2000,
Microsoft Windows XP Tablet PC Edition,
Microsoft Windows XP

Min Processor Type: 600 MHz

Peripheral / Interface Devices: XGA monitor,
CD-ROM

System Requirements Details: Pentium III - RAM 256 MB - HD 200 MB (Source: http://reviews.cnet.com/graphics-and-publishing/coreldraw-graphics-suite-x3/4507-3626_7-31682938.html)

So, with CorelDRAW hand-make writing now more automated. It became original and pretty. Junior designers can use it for writing new models of wears or other things. Painters like to paint art images. And photographers can use it together with photoshop

They are always misinformed when it comes to academic calendar but always on the forefront when it comes to social events and functions. Despite their don’t care attitude towards their study, they focus more on when the next party will be held, they always organize functions such as proms and work very hard to invite big artists to come and perform at these events.

Conclusion

As years passes by, most students come to the realize that time has just gone by swiftly having done things which are not significant. This is the time when a student is about to clear school. Many students tend to work hard during their final years at least to try and make a change in their lives. make life more easy and interesting with new features.

They try to mend broken relationship and revive them with their college mates which never took off in their earlier years. This trend is evident in almost every college, education and social life among students is something intertwined. Education takes place in the society; it is the society which determines what kind of education in to be offered in a school.

One cannot operate effectively without the other. It’s up to us as student to balance between studies and social life. Overdoing one will have adverse effects over the other. The primary reason as to why we join universities is to study; I think that should be given first priority in everything we do colleges in and universities.

CorelDRAW also can help in future life. Knowledges will help to find a job and make career like a designer, photographer etc.

Related links:

Official site

Tutorials

CorelDraw on wiki

Research papers source

CorelDRAW helps students

CorneliusLan — Thu, 10 May 2012 16:48:18 GMT
Revision 3 posted to Links and Resources by CorneliusLan on 5/10/2012 12:48:18 PM

CorelDRAW helps students

Filed under: Coreldraw, help, Coreldraw with Photoshop, coreldraw thumbnails

Overview

Many schools are widely uses CorelDRAW for lessons, and so why:

It's easy to use

Simple interface

Big opportunity.

For most students, writing their graphic home tasks are harder than research papers writing. They sleep late partying with college mates and wake up late to attend lectures or even go to the library. They do not find time to do their research and as a result that end up having poorly done term papers always consulted to do the work on their behalf.

But

Main specifications

OS Required: Microsoft Windows 2000,
Microsoft Windows XP Tablet PC Edition,
Microsoft Windows XP

Min Processor Type: 600 MHz

Peripheral / Interface Devices: XGA monitor,
CD-ROM

System Requirements Details: Pentium III - RAM 256 MB - HD 200 MB (Source: http://reviews.cnet.com/graphics-and-publishing/coreldraw-graphics-suite-x3/4507-3626_7-31682938.html)

So, with CorelDRAW hand-make writing now more automated. It became original and pretty. Junior designers can use it for writing new models of wears or other things. Painters like to paint art images. And photographers can use it together with photoshop

They are always misinformed when it comes to academic calendar but always on the forefront when it comes to social events and functions. Despite their don’t care attitude towards their study, they focus more on when the next party will be held, they always organize functions such as proms and work very hard to invite big artists to come and perform at these events.

Conclusion

As years passes by, most students come to the realize that time has just gone by swiftly having done things which are not significant. This is the time when a student is about to clear school. Many students tend to work hard during their final years at least to try and make a change in their lives. make life more easy and interesting with new features.

They try to mend broken relationship and revive them with their college mates which never took off in their earlier years. This trend is evident in almost every college, education and social life among students is something intertwined. Education takes place in the society; it is the society which determines what kind of education in to be offered in a school.

One cannot operate effectively without the other. It’s up to us as student to balance between studies and social life. Overdoing one will have adverse effects over the other. The primary reason as to why we join universities is to study; I think that should be given first priority in everything we do colleges in and universities.

CorelDRAW also can help in future life. Knowledges will help to find a job and make career like a designer, photographer etc.

Related links:

[[resources:http://www.corel.com|Official site]]

Official site

Tutorials

[[resources:CorelDraw

CorelDraw on wiki|http://en.wikipedia.org/wiki/CorelDRAW]]wiki

Research papers source

CorelDRAW helps students

CorneliusLan — Thu, 10 May 2012 16:36:10 GMT
Revision 2 posted to Links and Resources by CorneliusLan on 5/10/2012 12:36:10 PM

CorelDRAW helps students

Filed under: Coreldraw, help, Coreldraw with Photoshop, coreldraw thumbnails

Many schools are widely uses CorelDRAW for lessons, and so why:

It's easy to use

Simple interface

Big opportunity.

For most students, writing their graphic home tasks are harder than research papers writing. They sleep late partying with college mates and wake up late to attend lectures or even go to the library. They do not find time to do their research and as a result that end up having poorly done term papers always consulted to do the work on their behalf.

But with CorelDRAW hand-make writing now more automated. It became original and pretty. Junior designers can use it for writing new models of wears or other things. Painters like to paint art images. And photographers can use it together with photoshop

They are always misinformed when it comes to academic calendar but always on the forefront when it comes to social events and functions. Despite their don’t care attitude towards their study, they focus more on when the next party will be held, they always organize functions such as proms and work very hard to invite big artists to come and perform at these events.

As years passes by, most students come to the realize that time has just gone by swiftly having done things which are not significant. This is the time when a student is about to clear school. Many students tend to work hard during their final years at least to try and make a change in their lives.

They try to mend broken relationship and revive them with their college mates which never took off in their earlier years. This trend is evident in almost every college, education and social life among students is something intertwined. Education takes place in the society; it is the society which determines what kind of education in to be offered in a school.

One cannot operate effectively without the other. It’s up to us as student to balance between studies and social life. Overdoing one will have adverse effects over the other. The primary reason as to why we join universities is to study; I think that should be given first priority in everything we do colleges in and universities.

CorelDRAW also can help in future life. Knowledges will help to find a job and make career like a designer, photographer etc.

Related links:

[[resources:coreldraw.com/|Official [resources:http://www.corel.com|Official site]]

Tutorials

[[resources:http://en.wikipedia.org/wiki/CorelDRAW|Wiki about Corel draw][resources:CorelDraw on wiki|http://en.wikipedia.org/wiki/CorelDRAW]]

[[resources:http://www.corel.com/corel/jump/us/en/800382//|Tutorials]]

CorelDRAW helps students

CorneliusLan — Thu, 10 May 2012 16:31:14 GMT
Revision 1 posted to Links and Resources by CorneliusLan on 5/10/2012 12:31:14 PM

Many schools are widely uses CorelDRAW for lessons, and so why:

It's easy to use

Simple interface

Big opportunity.

For most students, writing their graphic home tasks are harder than research papers writing. They sleep late partying with college mates and wake up late to attend lectures or even go to the library. They do not find time to do their research and as a result that end up having poorly done term papers always consulted to do the work on their behalf.

But with CorelDRAW hand-make writing now more automated. It became original and pretty. Junior designers can use it for writing new models of wears or other things. Painters like to paint art images. And photographers can use it together with photoshop

They are always misinformed when it comes to academic calendar but always on the forefront when it comes to social events and functions. Despite their don’t care attitude towards their study, they focus more on when the next party will be held, they always organize functions such as proms and work very hard to invite big artists to come and perform at these events.

As years passes by, most students come to the realize that time has just gone by swiftly having done things which are not significant. This is the time when a student is about to clear school. Many students tend to work hard during their final years at least to try and make a change in their lives.

They try to mend broken relationship and revive them with their college mates which never took off in their earlier years. This trend is evident in almost every college, education and social life among students is something intertwined. Education takes place in the society; it is the society which determines what kind of education in to be offered in a school.

One cannot operate effectively without the other. It’s up to us as student to balance between studies and social life. Overdoing one will have adverse effects over the other. The primary reason as to why we join universities is to study; I think that should be given first priority in everything we do colleges in and universities.

CorelDRAW also can help in future life. Knowledges will help to find a job and make career like a designer, photographer etc.

Related links:

[[resources:coreldraw.com/|Official site]]

[[resources:http://en.wikipedia.org/wiki/CorelDRAW|Wiki about Corel draw]]

[[resources:http://www.corel.com/corel/jump/us/en/800382//|Tutorials]]

Development/Contribution Codex for Open Source Macro Projects

mo — Fri, 23 Mar 2012 12:35:05 GMT
Current revision posted to Links and Resources by mo on 3/23/2012 8:35:05 AM

Development/Contribution Codex for Open Source Macro Projects

Filed under: VBA, macro

The following Codex is a collection of loose "guidelines", intended to maintain an organized structure for elaborating Open Source Macro Projects. The Codex guidelines should not keep away or restrict anyone from developing or contributing codes, rather they should provide a base for a unified communication template across (more or less) complex projects. The developers are thankful for every contribution and adherence of an organized structure.

New Projects

Of course everyone can post his/her macro codes here. It's a contribution to the community and a benefit for everyone.

Make sure the code is developed entirely by yourself, to prevent copyright conflicts. The macro should also be something which hasn't existed before; there are commercial macro sellers who naturally can get very angry if they conceive suspicion that their product might be copied.

Please make your project accessible to the public only if you feel comfortable with making your project Open Source. If you are not sure about this, you can get suggestions in a new thread, here: Code Snippets Feedback.

To avoid messing up the existing stucture, a new project should be started with the following structure:

The main page for all projects is the page Open Source Macro Projects, and the new project can be grouped as subpage of this project page, with the name of the macro. This introduction page should provide some basic information:

A short introduction what the macro is used for and what it does

one or more screenshots

a link to the thread, where the macro can be discussed, optimally here: Code Snippets Feedback

the current release, with date (so everyone can see when it was lastly elaborated) and the version. For more information about versioning you should read the paragraph "Versioning"

current features

on which operating systems and Corel versions it is tested by now

if the macro uses VBA or Windows API calls, the dependent and necessary dynamic link libraries should be listed (important for developers)

and finally, the license under which terms the macro and the code is published and accessible.

Give your project a descriptive and unique name, such as "Open Type Wizzard" or "Meshfill Making Macro".

All published codes and files should show a copyright notice of the copyright holder, in order to avoid piracy.

Under your macro's main page there can be several subpages. The important ones are:

"Resources". This page provides the current and older versions with the dates of publication. The versions should be linked to the file attachments (You can upload your files by adding ".txt" at the end, or upload them in your own media gallery)

"Bugfixes". This page should list all fixed errors and new improvements. See "Versioning" for more details.

Optionally, depending on the (Open Source) License under which you provide the macro/code, it is necessary to publish the source code to make it readable for everyone. That is, the page "Source". Don't be afraid the code could be altered in a senseless or silly way: this wiki provides tools to revise applied changes.

Contributing to or developing existing Projects

To contribute improvements to an existing project, the thread (linked on the macro's project page) should be used. The same for feedback or suggestions, if you don't dare to develop a macro yourself, and of course if you encounter bugs and errors. That helps keeping the structure of the project page clean and easy to follow for both developers as well as users.

A development process can get very complex, so a good versioning can help keeping track of the main macro development.

Versioning

There are many ways to elaborate or improve a code. The following is rather simple; for example a macro version can be separated into three modification categories:

Major version: is the first digit in the version number and expresses if the macro is still in Beta State (version less than 1.0.0) or a Release Candidate which has reached all development goals for a major version (version 1.0.0, 2.0.0 and so on).

Minor version: is the second digit in the version number and expresses the milestone it has past. For a macro in progress, unlimited milestones can be defined (after 0.9.0. comes 0.10.0). Milestones are important improvements in functionality or new added functions. Commonly developers collect enough reqirements to reason a new major release and group them in milestones as temporary development goals.

Patch version. This one is relatively independent to the first two version numbers and expresses important bug fixes. The increase of the patch number stops with the final Stable Release, where all bugs are fixed.

A version that has been published the first time, is an Alpha Release, until someone picks up development.

Branches

At a certain state in development it may happen that the macro isn't backwards compatible anymore. For example if a macro has run smoothly under a Win XP OS and some changes were done to get it runnung on Win 7, but now it isn't usable in XP anymore. It is understandable that a macro should run unter as much environments as possible, but sometimes this can't be observed. In this case the development should be branched to a new sub project, maintaining the version number. Then it is ensured that a wide range of users can use a macro.

Copyright

If you decided to work on an existing projects, make sure to respect the copyrights of your co-developers. Copyright notices in the codes and files should remain and may not be altered. Of course you can add your own copyright data such as name, website or contact email, when you've contributed to a project.

Hijacking projects or copying them (no matter if intended as commercial or non-commercial) isn't allowed (and to be honest: not very clever...).

Have fun to code, learn and use!

Development/Contribution Codex

mo — Fri, 23 Mar 2012 12:34:19 GMT
Revision 1 posted to Links and Resources by mo on 3/23/2012 8:34:19 AM

The following Codex is a collection of loose "guidelines", intended to maintain an organized structure for elaborating Open Source Macro Projects. The Codex guidelines should not keep away or restrict anyone from developing or contributing codes, rather they should provide a base for a unified communication template across (more or less) complex projects. The developers are thankful for every contribution and adherence of an organized structure.

New Projects

Of course everyone can post his/her macro codes here. It's a contribution to the community and a benefit for everyone.

Make sure the code is developed entirely by yourself, to prevent copyright conflicts. The macro should also be something which hasn't existed before; there are commercial macro sellers who naturally can get very angry if they conceive suspicion that their product might be copied.

Please make your project accessible to the public only if you feel comfortable with making your project Open Source. If you are not sure about this, you can get suggestions in a new thread, here: Code Snippets Feedback.

To avoid messing up the existing stucture, a new project should be started with the following structure:

The main page for all projects is the page Open Source Macro Projects, and the new project can be grouped as subpage of this project page, with the name of the macro. This introduction page should provide some basic information:

A short introduction what the macro is used for and what it does

one or more screenshots

a link to the thread, where the macro can be discussed, optimally here: Code Snippets Feedback

the current release, with date (so everyone can see when it was lastly elaborated) and the version. For more information about versioning you should read the paragraph "Versioning"

current features

on which operating systems and Corel versions it is tested by now

if the macro uses VBA or Windows API calls, the dependent and necessary dynamic link libraries should be listed (important for developers)

and finally, the license under which terms the macro and the code is published and accessible.

Give your project a descriptive and unique name, such as "Open Type Wizzard" or "Meshfill Making Macro".

All published codes and files should show a copyright notice of the copyright holder, in order to avoid piracy.

Under your macro's main page there can be several subpages. The important ones are:

"Resources". This page provides the current and older versions with the dates of publication. The versions should be linked to the file attachments (You can upload your files by adding ".txt" at the end, or upload them in your own media gallery)

"Bugfixes". This page should list all fixed errors and new improvements. See "Versioning" for more details.

Optionally, depending on the (Open Source) License under which you provide the macro/code, it is necessary to publish the source code to make it readable for everyone. That is, the page "Source". Don't be afraid the code could be altered in a senseless or silly way: this wiki provides tools to revise applied changes.

Contributing to or developing existing Projects

To contribute improvements to an existing project, the thread (linked on the macro's project page) should be used. The same for feedback or suggestions, if you don't dare to develop a macro yourself, and of course if you encounter bugs and errors. That helps keeping the structure of the project page clean and easy to follow for both developers as well as users.

A development process can get very complex, so a good versioning can help keeping track of the main macro development.

Versioning

There are many ways to elaborate or improve a code. The following is rather simple; for example a macro version can be separated into three modification categories:

Major version: is the first digit in the version number and expresses if the macro is still in Beta State (version less than 1.0.0) or a Release Candidate which has reached all development goals for a major version (version 1.0.0, 2.0.0 and so on).

Minor version: is the second digit in the version number and expresses the milestone it has past. For a macro in progress, unlimited milestones can be defined (after 0.9.0. comes 0.10.0). Milestones are important improvements in functionality or new added functions. Commonly developers collect enough reqirements to reason a new major release and group them in milestones as temporary development goals.

Patch version. This one is relatively independent to the first two version numbers and expresses important bug fixes. The increase of the patch number stops with the final Stable Release, where all bugs are fixed.

A version that has been published the first time, is an Alpha Release, until someone picks up development.

Branches

At a certain state in development it may happen that the macro isn't backwards compatible anymore. For example if a macro has run smoothly under a Win XP OS and some changes were done to get it runnung on Win 7, but now it isn't usable in XP anymore. It is understandable that a macro should run unter as much environments as possible, but sometimes this can't be observed. In this case the development should be branched to a new sub project, maintaining the version number. Then it is ensured that a wide range of users can use a macro.

Copyright

If you decided to work on an existing projects, make sure to respect the copyrights of your co-developers. Copyright notices in the codes and files should remain and may not be altered. Of course you can add your own copyright data such as name, website or contact email, when you've contributed to a project.

Hijacking projects or copying them (no matter if intended as commercial or non-commercial) isn't allowed (and to be honest: not very clever...).

Have fun to code, learn and use!

BETA 0.1.0

mo — Thu, 22 Mar 2012 16:35:39 GMT
Current revision posted to Links and Resources by mo on 3/22/2012 12:35:39 PM

-- frQRCM.frm --

'

'QR Code Macro - Creates QR Code from User Input, powered by the QR Code Generator

'from the ZXing Project

'Copyright (C) 2012 Maurice Beumers

'

'This program is free software; you can redistribute it and/or modify it under the

'terms of the GNU General Public License as published by the Free Software Foundation;

'either version 3 of the License, or (at your option) any later version.

'

'This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;

'without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

'See the GNU General Public License for more details.

'

'For the GNU General Public License, see http://www.gnu.org/licenses/.

'

Option Explicit

Private OnlineFile$, LocalFile$

Dim ErrCodeArray(3, 0), CharEncodeArray(2, 0)

Private Declare Function URLDownloadToFile Lib "urlmon" _

Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long) As Long

Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" _

Alias "DeleteUrlCacheEntryA" ( _

ByVal lpszUrlName As String) As Long

Private Declare Function ShellExecute& Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hWnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long)

Const SW_SHOWNORMAL = 1

Private Sub cmdCreate_Click()

Dim s1 As Shape, impopt As StructImportOptions, impflt As ImportFilter, x#, y#, w#, h#

If OnlineFile = "" Then: MsgBox "No Data to process yet": Exit Sub

If Not ActiveShape Is Nothing Then

Set s1 = ActiveShape

ActiveDocument.ReferencePoint = cdrCenter

s1.GetPosition x, y

s1.GetSize w, h

End If

On Error GoTo ErrorMe:

If LocalFile = "" Then

LocalFile = Application.CorelScriptTools.GetFileBox("QR Code PNG Image|*.png|All Files|*.*", "Select the destination where to Save and Open The QR Code from", 1, "chart.png")

End If

DownloadFile

Set impopt = CreateStructImportOptions

With impopt

.Mode = cdrImportFull

.MaintainLayers = True

End With

Set impflt = ActiveLayer.ImportEx(LocalFile, cdrAutoSense, impopt)

impflt.Finish

If Not s1 Is Nothing Then

ActiveShape.SetPositionEx cdrCenter, x, y

ImageResizer ActiveShape, w, h, x, y

'ActiveShape = Nothing

s1.Delete

End If

GoOn:

Exit Sub

ErrorMe:

'#####################################----ERROR-MESSAGE----##################################################

MsgBox "Error occured: " & Err.Description & Chr(13) & _

"Error Number: " & Err.Number & Chr(13) & _

"Error Source: " & Err.Source & Chr(13) & _

"Error DLL: " & Err.LastDllError & Chr(13)

Err.Clear

Resume GoOn

'######################################----END-MESSAGE----###################################################

End Sub

Private Function getQRCode()

QROnline.Navigate "about:blank"

OnlineFile = "http://chart.apis.google.com/chart?cht=qr&chs=120x120&chld=" & comboErrCode.Value & "&choe=" & comboCharEncod.Value & "&"

Select Case DataType.Value

Case 0

OnlineFile = OnlineFile & "chl=" & URLEncode(bText.Value)

Case 1

OnlineFile = OnlineFile & "chl=" & URLEncode(bURL.Value)

Case 2

OnlineFile = OnlineFile & "chl=" & URLEncode("mailto:" & bToEmail.Value)

Case 3

OnlineFile = OnlineFile & "chl=" & URLEncode("TEL:" & bCC.Value & bAC.Value & bPhoneNmb.Value)

Case 4

OnlineFile = OnlineFile & "chl=" & URLEncode("SMSTO:" & bSMSCC.Value & bSMSAC.Value & bSMSPhoneNmb.Value & ":" & bSMSText.Value)

Case 5

OnlineFile = OnlineFile & "chl=" & URLEncode("BEGIN:VCARD") & "%0A" & _

URLEncode("TEL:" & bPhone.Value) & "%0A" & URLEncode("EMAIL:" & bEmail.Value) & "%0A" & _

URLEncode("URL:" & bWeb.Value) & "%0A" & URLEncode("N:" & bTitle.Value & ";" & bName.Value) & "%0A" & _

URLEncode("ADR:" & bAdr.Value) & "%0A" & _

URLEncode("ORG:" & bOrg.Value) & "%0A" & _

URLEncode("NOTE:" & bNote.Value) & "%0A" & URLEncode("END:VCARD") & "%0A"

End Select

QROnline.Navigate OnlineFile

QROnline.Document.body.Style.Width = "120px"

QROnline.Document.body.Style.Height = "120px"

QROnline.Document.body.Style.Overflow = "hidden"

End Function

Private Sub QROnline_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

QROnline.Document.body.Scroll = "no"

On Error GoTo 0

End Sub

Private Sub lQRPrev_Click()

getQRCode

End Sub

Private Sub UserForm_Initialize()

ErrCodeArray(0, 0) = "L"

ErrCodeArray(1, 0) = "M"

ErrCodeArray(2, 0) = "Q"

ErrCodeArray(3, 0) = "H"

comboErrCode.List() = ErrCodeArray

CharEncodeArray(0, 0) = "UTF-8"

CharEncodeArray(1, 0) = "ISO-8859-1"

CharEncodeArray(2, 0) = "SHIFT_JIS"

comboCharEncod.List() = CharEncodeArray

End Sub

Private Sub UserForm_Activate()

QROnline.Navigate "about:blank"

End Sub

Private Function DownloadFile() As Boolean

Dim lngRetVal As Long

'clean up URL-Cache

lngRetVal = DeleteUrlCacheEntry(OnlineFile)

'Screen.MousePointer = vbHourglass

lngRetVal = URLDownloadToFile(0, OnlineFile, LocalFile, 0, 0)

'Screen.MousePointer = vbNormal

If lngRetVal = 0 Then DownloadFile = True

End Function

Private Function ImageResizer(s1 As Shape, w#, h#, x#, y#)

If s1.SizeHeight > s1.SizeWidth Then

s1.SizeWidth = (h / s1.SizeHeight) * s1.SizeWidth

s1.SizeHeight = h

ElseIf s1.SizeWidth > s1.SizeHeight Then

s1.SizeHeight = (w / s1.SizeWidth) * s1.SizeHeight

s1.SizeWidth = w

Else

s1.SizeWidth = w

s1.SizeHeight = h

End If

End Function

' Converting Macro input to an URL Query String

Public Function URLEncode(StringToEncode$) As String

Dim TempAns$, CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

Select Case Asc(Mid$(StringToEncode, CurChr, 1))

Case 48 To 57, 65 To 90, 97 To 122

TempAns = TempAns & Mid$(StringToEncode, CurChr, 1)

Case 32

TempAns = TempAns & "+"

Case Else

TempAns = TempAns & "%" & Hex(Asc(Mid$(StringToEncode, CurChr, 1)))

End Select

CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Private Sub lGPL_Click()

Dim GPLstring$

GPLstring = "http://www.gnu.org/licenses/"

ShellExecute 0&, "open", GPLstring, vbNullString, vbNullString, SW_SHOWNORMAL

End Sub

Private Sub UserForm_Terminate()

Unload Me

End Sub

Links and resources overview

shegzey91 — Mon, 17 Oct 2011 17:02:02 GMT
Current revision posted to Links and Resources by shegzey91 on 10/17/2011 1:02:02 PM

Links and resources overview

Filed under: links, resources

delicious.com/coreldraw provides links to many resources online for the CorelDRAW family of products. Find out more information in this document.

Are you on another social network? Add yourself to the CorelDRAW Graphics Suite, Corel DESIGNER Technical Suite and CorelDRAW.com product pages on Facebook. A LinkedIn group for people who worked on or with CorelDRAW is also available. For those on Plaxo, here is the link to the CorelDRAW group. There is also a Twitter account for the latest news regarding CorelDRAW. And if you simply want to track all these, CorelDRAW is also on FriendFeed.

Add yourself to the CorelDRAW usermap, and let everyone know where you are around the world.

You can get the latest service packs for your favorite Corel product by downloading it from corel.com/support.

also join [[resources:CORELCLUB.org|CORELCLUB.org]]

Links and resources overview

Sam — Sun, 14 Feb 2010 22:41:11 GMT
Revision 4 posted to Links and Resources by Sam on 2/14/2010 5:41:11 PM

Links and resources overview

Filed under: links, resources

delicious.com/coreldraw provides links to many resources online for the CorelDRAW family of products. Find out more information in this document.

Are you on another social network? Add yourself to the CorelDRAW Graphics Suite, Corel DESIGNER Technical Suite and CorelDRAW.com product pages on Facebook. A LinkedIn group for people who worked on or with CorelDRAW is also available[[resources:.|http://coreldrawserial.blogspot.com]] available. For those on Plaxo, here is the link to the CorelDRAW group. There is also a Twitter account for the latest news regarding CorelDRAW. And if you simply want to track all these, CorelDRAW is also on FriendFeed.

Add yourself to the CorelDRAW usermap, and let everyone know where you are around the world.

You can get the latest service packs for your favorite Corel product by downloading it from corel.com/support.

also join [[resources:CORELCLUB.org|CORELCLUB.org]]

Links and resources overview

Sam — Sun, 14 Feb 2010 22:40:19 GMT
Revision 3 posted to Links and Resources by Sam on 2/14/2010 5:40:19 PM

Links and resources overview

Filed under: links, resources

delicious.com/coreldraw provides links to many resources online for the CorelDRAW family of products. Find out more information in this document.

Are you on another social network? Add yourself to the CorelDRAW Graphics Suite, Corel DESIGNER Technical Suite and CorelDRAW.com product pages on Facebook. A LinkedIn group for people who worked on or with CorelDRAW is also available.available[[resources:.|http://coreldrawserial.blogspot.com]] For those on Plaxo, here is the link to the CorelDRAW group. There is also a Twitter account for the latest news regarding CorelDRAW. And if you simply want to track all these, CorelDRAW is also on FriendFeed.

Add yourself to the CorelDRAW usermap, and let everyone know where you are around the world.

You can get the latest service packs for your favorite Corel product by downloading it from corel.com/support.

also join [[resources:CORELCLUB.org|CORELCLUB.org]]

Links and resources overview

andy — Tue, 31 Mar 2009 07:07:08 GMT
Revision 2 posted to Links and Resources by andy on 3/31/2009 3:07:08 AM

Links and resources overview

Filed under: links, resources

delicious.com/coreldraw provides links to many resources online for the CorelDRAW family of products. Find out more information in this document.

Are you on another social network? Add yourself to the CorelDRAW Graphics Suite, Corel DESIGNER Technical Suite and CorelDRAW.com product pages on Facebook. A LinkedIn group for people who worked on or with CorelDRAW is also available. For those on Plaxo, here is the link to the CorelDRAW group. There is also a Twitter account for the latest news regarding CorelDRAW. And if you simply want to track all these, CorelDRAW is also on FriendFeed.

Add yourself to the CorelDRAW usermap, and let everyone know where you are around the world.

You can get the latest service packs for your favorite Corel product by downloading it from corel.com/support.

Links and resources overview

Gerard Metrailler — Tue, 30 Dec 2008 19:41:04 GMT
Revision 1 posted to Links and Resources by Gerard Metrailler on 12/30/2008 2:41:04 PM

delicious.com/coreldraw provides links to many resources online for the CorelDRAW family of products. Find out more information in this document.

Are you on another social network? Add yourself to the CorelDRAW Graphics Suite, Corel DESIGNER Technical Suite and CorelDRAW.com product pages on Facebook. A LinkedIn group for people who worked on or with CorelDRAW is also available. For those on Plaxo, here is the link to the CorelDRAW group. There is also a Twitter account for the latest news regarding CorelDRAW. And if you simply want to track all these, CorelDRAW is also on FriendFeed.

Add yourself to the CorelDRAW usermap, and let everyone know where you are around the world.

You can get the latest service packs for your favorite Corel product by downloading it from corel.com/support.

Third Party Thumbnail Viewers List for DRAW

RunFlaCruiser — Thu, 03 Feb 2011 19:21:51 GMT
Current revision posted to Links and Resources by RunFlaCruiser on 2/3/2011 2:21:51 PM

Third Party Thumbnail Viewers List for DRAW

Filed under: thumbnails, coreldraw thumbs, coreldraw thumbnails, file viewer, corel thumbs

Here's a list of Third Party programs that can create and view CorelDraw Thumbnails and EPS.

This list is meant to be an alternative to Corel Connect or Windows Explorer.

Thumbs Plus cost approximately $60 - $100

St Thumbnails Explorer cost approximately $30

Mystic Thumbs cost 30 Day free trial and US$25 for single user license

XnView - A software to view and convert graphic files, really simple to use ! Support of more than 400 graphics formats ! It's free, so do not hesitate ! FREE

If you have a program you find handy that's related, please add it to the list!

Third Party Thumbnail Viewers List for DRAW

Adrian Juman — Fri, 21 Jan 2011 19:19:45 GMT
Revision 3 posted to Links and Resources by Adrian Juman on 1/21/2011 2:19:45 PM

Third Party Thumbnail Viewers List for DRAW

Filed under: thumbnails, coreldraw thumbs, coreldraw thumbnails, file viewer, corel thumbs

Here's a list of Third Party programs that can create and view CorelDraw Thumbnails and EPS.

This list is meant to be an alternative to Corel Connect or Windows Explorer.

Thumbs Plus cost approximately $60 - $100

St Thumbnails Explorer cost approximately $30

Mystic Thumbs cost FREE!30 Day free trial and US$25 for single user license

If you have a program you find handy that's related, please add it to the list!

Third Party Thumbnail Viewers List for DRAW

RunFlaCruiser — Sun, 09 Jan 2011 15:07:49 GMT
Revision 2 posted to Links and Resources by RunFlaCruiser on 1/9/2011 10:07:49 AM

Third Party Thumbnail Viewers List for DRAW

Filed under: thumbnails, coreldraw thumbs, coreldraw thumbnails, file viewer, corel thumbs

Here's a list of Third Party programs that can create and view CorelDraw Thumbnails and EPS.

This list is meant to be an alternative to Corel Connect or Windows Explorer.

Thumbs Plus cost approximately $60 - $100

St Thumbnails Explorer cost approximately $30

Mystic Thumbs cost FREE!

If you have a program you find handy that's related, please add it to the list!

Third Party Thumbnail Viewers List for DRAW

RunFlaCruiser — Sun, 09 Jan 2011 15:05:36 GMT
Revision 1 posted to Links and Resources by RunFlaCruiser on 1/9/2011 10:05:36 AM

Here's a list of Third Party programs that can create and view CorelDraw Thumbnails and EPS.

This list is meant to be an alternative to Corel Connect or Windows Explorer.

Thumbs Plus cost approximately $60 - $100

St Thumbnails Explorer cost approximately $30

Mystic Thumbs cost FREE!

VBA Editor Helpers by John

Aleem Ashraf — Tue, 10 Aug 2010 08:32:21 GMT
Current revision posted to Links and Resources by Aleem Ashraf on 8/10/2010 4:32:21 AM

VBA Editor Helpers by John

Filed under: VBA, VBA Editor, Add-ons

VBA EDITOR ADD-ONS!

The vba editor is not as customizable as Corel Draw itself but with these add-ons it can be greatly improved.For those who use VBA to create macros, you may want to take a look.

You can installed install both of these add-ons which will help make your life easier when it comes to creating and debugging macros.

The first is VBE Tools. My favorite thing about this addon is the ability to nudge form controls 1 pixel at a time using the keyboard. It also allows for resizing form controls as well in the same manner and adds the ability to close all active windows. I use all of it's feature frequently.

The second is an add-on that adds a complete tool bar to the vba editor. It's name is MZ Tools. Make sure you download the one that is for VBA.

MZ-Tools is very easy to use. It provides a main menu, a toolbar, handy context menus and customizable shortcuts to access its features, which are detailed in the Features section.

You can customize several features of MZ-Tools to meet your development standards (data type prefixes, template for procedure headers, template for error handler, etc.) or your personal preferences (user name, shortcuts, etc.)

I hope these add-ons help you as much as they do me.

-John

VBA Editor Helpers by John

RunFlaCruiser — Sat, 07 Aug 2010 23:48:04 GMT
Revision 3 posted to Links and Resources by RunFlaCruiser on 8/7/2010 7:48:04 PM

VBA Editor Helpers by John

Filed under: VBA, VBA Editor, Add-ons

VBA EDITOR ADD-ONS!

The vba editor is not as customizable as Corel Draw itself but with these add-ons it can be greatly improved.For those who use VBA to create macros, you may want to take a look.

You can installed both of these add-ons which will help make your life easier when it comes to creating and debugging macros.

The first is VBE Tools. My favorite thing about this addon is the ability to nudge form controls 1 pixel at a time using the keyboard. It also allows for resizing form controls as well in the same manner and adds the ability to close all active windows. I use all of it's feature frequently.

The second is an add-on that adds a complete tool bar to the vba editor. It's name is MZ Tools. Make sure you download the one that is for VBA.

MZ-Tools is very easy to use. It provides a main menu, a toolbar, handy context menus and customizable shortcuts to access its features, which are detailed in the Features section.

You can customize several features of MZ-Tools to meet your development standards (data type prefixes, template for procedure headers, template for error handler, etc.) or your personal preferences (user name, shortcuts, etc.)

I hope these add-ons help you as much as they do me.

-John

VBA Editor Helpers

RunFlaCruiser — Sat, 07 Aug 2010 16:45:15 GMT
Revision 2 posted to Links and Resources by RunFlaCruiser on 8/7/2010 12:45:15 PM

VBA Editor Helpers

Filed under: VBA, VBA Editor, Add-ons

VBA EDITOR ADD-ONS![:)]

The vba editor is not as customizable as Corel Draw itself but with these add-ons it can be greatly improved.For those who use VBA to create macros, you may want to take a look.

You can installed both of these add-ons which will help make your life easier when it comes to creating and debugging macros.

The first is VBE Tools. My favorite thing about this addon is the ability to nudge form controls 1 pixel at a time using the keyboard. It also allows for resizing form controls as well in the same manner and adds the ability to close all active windows. I use all of it's feature frequently.

The second is an add-on that adds a complete tool bar to the vba editor. It's name is MZ Tools. Make sure you download the one that is for VBA.

MZ-Tools is very easy to use. It provides a main menu, a toolbar, handy context menus and customizable shortcuts to access its features, which are detailed in the Features section.

You can customize several features of MZ-Tools to meet your development standards (data type prefixes, template for procedure headers, template for error handler, etc.) or your personal preferences (user name, shortcuts, etc.)

I hope these add-ons help you as much as they do me.

-John

VBA Editor Helpers

RunFlaCruiser — Sat, 07 Aug 2010 16:43:35 GMT
Revision 1 posted to Links and Resources by RunFlaCruiser on 8/7/2010 12:43:35 PM

VBA EDITOR ADD-ONS! [:)]

The vba editor is not as customizable as Corel Draw itself but with these add-ons it can be greatly improved.For those who use VBA to create macros, you may want to take a look.

You can installed both of these add-ons which will help make your life easier when it comes to creating and debugging macros.

The first is VBE Tools. My favorite thing about this addon is the ability to nudge form controls 1 pixel at a time using the keyboard. It also allows for resizing form controls as well in the same manner and adds the ability to close all active windows. I use all of it's feature frequently.

The second is an add-on that adds a complete tool bar to the vba editor. It's name is MZ Tools. Make sure you download the one that is for VBA.

MZ-Tools is very easy to use. It provides a main menu, a toolbar, handy context menus and customizable shortcuts to access its features, which are detailed in the Features section.

You can customize several features of MZ-Tools to meet your development standards (data type prefixes, template for procedure headers, template for error handler, etc.) or your personal preferences (user name, shortcuts, etc.)

I hope these add-ons help you as much as they do me.

-John

SEND LARGE CDR FILES RIGHT FROM CORELDRAW

Sam — Sun, 14 Feb 2010 22:46:43 GMT
Current revision posted to Links and Resources by Sam on 2/14/2010 5:46:43 PM

SEND LARGE CDR FILES RIGHT FROM CORELDRAW

Filed under: send large files, email, attachment, file transfer, send, courior

DOWNLOAD and install this plugin and send corel file as big as 100 mb right from Corel Draw with just a click of a mouse. It works just fine with X3 not too sure about X4 though. It's nearly 3 year old plugin but I am pretty sure many of us didn't know about it.

- To send files directly from CorelDRAW X3

Start CorelDRAW.

You should see a new 'airplane' icon on the toolbar through which you can send your drawings to your friends or colleagues.

When you are ready with your drawing, click on the 'airplane' icon on the toolbar;

It will invoke YouSendIt upload application to send the drawing via YouSendIt service. You will be able to specify the recipients and a message before the file is sent.

SEND LARGE CDR FILES RIGHT FROM CORELDRAW

Aleem Ashraf — Fri, 04 Dec 2009 18:17:47 GMT
Revision 1 posted to Links and Resources by Aleem Ashraf on 12/4/2009 1:17:47 PM

DOWNLOAD and install this plugin and send corel file as big as 100 mb right from Corel Draw with just a click of a mouse. It works just fine with X3 not too sure about X4 though. It's nearly 3 year old plugin but I am pretty sure many of us didn't know about it.

- To send files directly from CorelDRAW X3

Start CorelDRAW.

You should see a new 'airplane' icon on the toolbar through which you can send your drawings to your friends or colleagues.

When you are ready with your drawing, click on the 'airplane' icon on the toolbar;

It will invoke YouSendIt upload application to send the drawing via YouSendIt service. You will be able to specify the recipients and a message before the file is sent.

Colour Profiles

Ahmad Ajlouny — Thu, 09 Jul 2009 08:53:15 GMT
Current revision posted to Links and Resources by Ahmad Ajlouny on 7/9/2009 4:53:15 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Arlon

...

Note

CorelDRAW X4 supports Adobe Color Management Module (CMM). After you download Adobe CMM and install it, open CorelDRAW X4 and:

Click Tools > Color Management

Click the Internal RGB (the 3 RGB circles in the middle ) to open the Advanced Settings

Choose Adobe CMM from the Color Engine list (Kodak CMM is the default)

Colour Profiles

Ahmad Ajlouny — Wed, 08 Jul 2009 08:37:29 GMT
Revision 7 posted to Links and Resources by Ahmad Ajlouny on 7/8/2009 4:37:29 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Arlon

...

Note

CorelDRAW X4 supports Adobe Color Management Module (CMM). After you download Adobe CMM and install it,

Tools > Color Management

Click the Internal RGB (the 3 RGB circles in the middle ) to open the Advanced Settings

Choose Adobe CMM from the Color Engine list (Kodak CMM is the default)

Colour Profiles

Ahmad Ajlouny — Wed, 08 Jul 2009 08:30:37 GMT
Revision 6 posted to Links and Resources by Ahmad Ajlouny on 7/8/2009 4:30:37 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Arlon

...

Note

CorelDRAW X4 supports Adobe Color Management Module (CMM). After you download Adobe CMM and install it,

Tools > Color Management

Click the Internal RGB (the 3 RGB circles in the middle ) to open the Advanced Settings

Choose Adobe CMM from the Color Engine list (Kodak CMM is the default)

Colour Profiles

Stefan Lindblad — Wed, 08 Jul 2009 07:22:31 GMT
Revision 5 posted to Links and Resources by Stefan Lindblad on 7/8/2009 3:22:31 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Arlon

Colour Profiles

Stefan Lindblad — Wed, 08 Jul 2009 07:16:58 GMT
Revision 4 posted to Links and Resources by Stefan Lindblad on 7/8/2009 3:16:58 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Colour Profiles

Stefan Lindblad — Wed, 08 Jul 2009 07:15:50 GMT
Revision 3 posted to Links and Resources by Stefan Lindblad on 7/8/2009 3:15:50 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Colour Profiles

Stefan Lindblad — Wed, 08 Jul 2009 07:15:01 GMT
Revision 2 posted to Links and Resources by Stefan Lindblad on 7/8/2009 3:15:01 AM

Colour Profiles

Filed under: Color profiles, colour profiles

International Color Consortium

European Color Initiative

Adobe ICC profiles for Macintosh

Chromix

Colour Profiles

Stefan Lindblad — Wed, 08 Jul 2009 07:08:11 GMT
Revision 1 posted to Links and Resources by Stefan Lindblad on 7/8/2009 3:08:11 AM

European Color Initiative

CORELCLUB.org

annaOMline — Mon, 05 Jan 2009 10:48:31 GMT
Current revision posted to Links and Resources by annaOMline on 1/5/2009 5:48:31 AM

CORELCLUB.org

Filed under: Spanish, Coreldraw, Corel, corelclub, community, forum, help, users, corel-forum, ayuda, foro, trucos, tutoriales

Since 1996, Corelclub.org is the on-line meeting point of Spanish speaking Corel software users. With Corel-news, Corel-tutorials and a Corel-FORUM for all your Corel questions.

El Corelclub.org es el punto de encuentro de los usuarios de Corel en la red desde 1996. Con Corel- noticias , tutoriales de Corel, trucos y el Corel-FORUM, el foro de ayuda entre usuarios de Corel de todo el mundo.

CORELCLUB.org

annaOMline — Mon, 05 Jan 2009 10:47:19 GMT
Revision 2 posted to Links and Resources by annaOMline on 1/5/2009 5:47:19 AM

CORELCLUB.org

Filed under: Spanish, Coreldraw, Corel, corelclub, community, forum, help, users, corel-forum, ayuda, foro, trucos, tutoriales

Since 1996, Corelclub.org is the on-line meeting point of Spanish speaking Corel software users. With Corel-news, Corel-tutorials and a Corel-FORUM for all your Corel questions.

El Corelclub.org es el punto de encuentro de los usuarios de Corel en la red desde 1996. Con Corel- noticias , tutoriales de Corel, trucos y el Corel-FORUM, el foro de ayuda entre usuarios de Corel de todo el mundo.

CORELCLUB.org

annaOMline — Mon, 05 Jan 2009 10:44:43 GMT
Revision 1 posted to Links and Resources by annaOMline on 1/5/2009 5:44:43 AM

Since 1996, Corelclub.org is the on-line meeting point of Spanish speaking Corel software users. With Corel-news, Corel-tutorials and a Corel-FORUM for all your Corel questions.

CorelDRAW & Photo-PAINT Macros

Jeff Harrison — Fri, 02 Jan 2009 06:43:04 GMT
Current revision posted to Links and Resources by Jeff Harrison on 1/2/2009 1:43:04 AM

Visit MacroMonster.Com for the World's #1 location for CorelDRAW & Photo-PAINT macros.

There are many free ones too, so go have a look around. Try them out and learn why macros make Corel's products even more powerful!