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

Helpful VBA Code

End of an era...
I had the pleasure of creating macros and keeping them up to date for years, but all good things must come to an end. Thank you for your years of support. The site will be left up for viewing only from now on. No macros will be available going forward, and please, do not email me asking that I update a macro or if I can sell an open license version. Thank you. ~John

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...