GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

Helpful VBA Code

Order a commercial macro ONLY if you have intermediate professional experience with CorelDraw and macros, no beginners! Try the FREE macros here, and see my help pages to learn. Clients agree to all terms and conditions when buying commercial macros or free macros. No refunds. No exchanges.
Macros DO NOT function in the Home & Student Edition or Pirated Versions of CorelDraw! WINDOWS OS ONLY!

Join me on Facebook to stay up to date with news, updates. Subscribe to my YouTube Channel for tutorial videos and tips. Need a custom macro? Contact me.

Not all macros are guaranteed to be continued due to compatibility reasons or other. Read new-version policy here.
I appreciate everyone! Upgrading macros and maintaining this site is quite a task for me. Want to contribute? Please DONATE

^ Hide these messages to save screen space ^

<<Back to helpful code list

Get internet link from text string

Decription: Select an artist text string that is an internet link and run macro. This will open the internet page. Handy for order processing.

Date: 2010-11-10 Author: John

Code:

Option Explicit
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) As Long

Sub getInternetLink()

Dim s As Shape, link As String

   On Error GoTo getInternetLink_Error

Set s = ActiveShape
link = s.Text.Story.Characters.All

ShellExecute 0, vbNullString, link, vbNullString, vbNullString, vbNormalFocus

   On Error GoTo 0
   Exit Sub

getInternetLink_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure getInternetLink of Module getInternetLink"

End Sub

Add Comment, Question, Discussion...