- Katılım
- 5 Aralık 2007
- Mesajlar
- 635
- Excel Vers. ve Dili
- Office 2007
Merhaba Arkadaşlar,
Aşağıdaki kodla masa üstüne ilgili dosyanın kısa yolunu oluşturuyorum. Yapmak istediğim, bu yeni kısa yola C deki simgeler klasöründeki x simgesini makro ile simge olarak atamak.. Bunun için gerekli kodlara ihtiyacım var. İlgilenen arkadaşlara teşekkür ederim.
Dim Wsh As Object, Desktop As String, CShortcut As Object
Set Wsh = CreateObject("WSCRIPT.Shell")
With Wsh
Desktop = .SpecialFolders("Desktop") & "\"
Set CShortcut = .CreateShortcut(Desktop & ([KURULUMSAYFASI!a10] & [KURULUMSAYFASI!b10]) & ".lnk")
With CShortcut
.TargetPath = "D:\MTM_Ticari\KASA\" & [KURULUMSAYFASI!a10] & [KURULUMSAYFASI!b10] & ".xls"
.WindowStyle = 1
.Save
End With
Aşağıdaki kodla masa üstüne ilgili dosyanın kısa yolunu oluşturuyorum. Yapmak istediğim, bu yeni kısa yola C deki simgeler klasöründeki x simgesini makro ile simge olarak atamak.. Bunun için gerekli kodlara ihtiyacım var. İlgilenen arkadaşlara teşekkür ederim.
Dim Wsh As Object, Desktop As String, CShortcut As Object
Set Wsh = CreateObject("WSCRIPT.Shell")
With Wsh
Desktop = .SpecialFolders("Desktop") & "\"
Set CShortcut = .CreateShortcut(Desktop & ([KURULUMSAYFASI!a10] & [KURULUMSAYFASI!b10]) & ".lnk")
With CShortcut
.TargetPath = "D:\MTM_Ticari\KASA\" & [KURULUMSAYFASI!a10] & [KURULUMSAYFASI!b10] & ".xls"
.WindowStyle = 1
.Save
End With
Son düzenleme: