Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Is het mogelijk om , via een macro , een snelkoppeling van het bureaublad te verwijderen en een nieuwe te plaatsen.
Jaap
Jaap
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub CreateShortCut()
Dim oWSH As Object
Dim oShortcut As Object
Dim sPathDeskTop As String
Dim sShortcut As String
Set oWSH = CreateObject("WScript.Shell")
sPathDeskTop = oWSH.SpecialFolders("Desktop")
sShortcut = sPathDeskTop & "\" & ActiveWorkbook.Name & ".lnk"
If Dir(sShortcut) <> "" Then
Kill sShortcut
End If
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & "lnk")
With oShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set oWSH = Nothing
End Sub
Dim oShortcut As Object 'Een Shortcut (snelkoppeling) object
Dim sPathDeskTop As String 'Pad naar het bureaublad
Dim sShortcut As String 'Naam van de snelkoppeling
'Maak het WScript object
Set oWSH = CreateObject("WScript.Shell")
'Bepaal het pad naar het bureaublad
sPathDeskTop = oWSH.SpecialFolders("Desktop")
'Bepaal de naam van de oude snelkoppeling
sShortcut = sPathDeskTop & "\" & ActiveWorkbook.Name & ".lnk"
'Als deze bestaat
If Dir(sShortcut) <> "" Then
'Verwijder deze dan
Kill sShortcut
End If
'Maak een Shortcut (snelkoppeling) object
'De naam van de nieuwe snelkoppeling wordt hier als 1e parameter aan meegegeven
Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & _
ActiveWorkbook.Name & "lnk")
With oShortcut
'Naam van het nieuwe document inclusief het pad
.TargetPath = ActiveWorkbook.FullName
'Sla de nieuwe snelkoppeling op
.Save
End With
'Het WScript object hebben we nu niet meer nodig
Set oWSH = Nothing
End Sub
Sub M_maak_snelkoppeling()
With CreateObject("WScript.Shell")
With .CreateShortcut(.specialfolders(4) & "\overzicht.lnk")
.targetpath = "G:\OF\adressen.xls"
.Save
End With
End With
End Sub
Sub M_wijzig_bestaande_snelkoppeling()
With CreateObject("WScript.Shell")
With .CreateShortcut(.specialfolders(4) & "\overzicht.lnk")
.targetpath = "G:\OF\0_snb_test.xls"
.Save
End With
End With
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.