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

MyAccount

Helpful VBA Code

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