Criar atalho de um Livro - JJoão (02/2001)

Criar um atalho do livro activo no ambiente de trabalho do utilizador corrente, este exemplo utiliza uma função em VBScript para apurar a localização do ambiente de trabalho.

 Function Ambiente_de_Trabalho()
    'Exemplo usando VBScript para recolher
    'a localização do ambiente de trabalho
    Dim WsShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    Ambiente_de_Trabalho = WshShell.SpecialFolders("Desktop")
    Set WshShell = Nothing
End Function

Sub CriarAtalho()
    Dim Atalho As String, Pasta As String
    Dim LocalExcel As String, Livro As String
    'ambiente de trabalho do utilizador corrente
    Pasta = Ambiente_de_Trabalho & "\"
    Atalho = Pasta & ActiveWorkbook.Name & ".url"
    LocalExcel = Application.Path & "\Excel.exe"
    Livro = ActiveWorkbook.FullName
    On Error GoTo Erro
    Open Atalho For Output As #1
        Print #1, "[InternetShortcut]" & vbCrLf & "URL = " & Livro
        Print #1, "IconIndex=1" & vbCrLf & "IconFile=" & LocalExcel
    Close #1
    MsgBox "Foi criado o atalho em " & _
            Atalho & _
            " de " & _
            Livro, _
            vbInformation, "Atalhos"
    Exit Sub
Erro:
    MsgBox Err.Number & " - " & Err.Description, vbCritical
End Sub