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

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

SUBSCRIBE to Email List

My Account

Policy
and
Terms

Upgrades?

Need a Custom Macro?
NO LONGER AVAILABLE