- Katılım
- 6 Eylül 2007
- Mesajlar
- 657
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Arkadaşlar mevcut bir dosyamın masa üstünde kısayolunun oluşmasını istiyorum ve bunu kod bankasında buldum ve aşağıda kod ları veriyorum. ancak bu kodlar ile kısayol excel kısayolu olarak oluşuyor, ben benim yapmış olduğum "ico" uzantılı ikonun kısayol olarak oluşmasını istiyorum.bu mümkünmü?
yardımlarınız için şimdiden teşekkürlerimi belirtirim..
Sub Desktopkisayol()
Set kisayol = CreateObject("WScript.Shell")
yol = kisayol.SpecialFolders("Desktop")
Set deg = kisayol.CreateShortcut(yol & "\" & ActiveWorkbook.Name & ".lnk")
With deg
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set kisayol = Nothing
MsgBox "Kısayol oluşturuldu"
End Sub
yardımlarınız için şimdiden teşekkürlerimi belirtirim..
Sub Desktopkisayol()
Set kisayol = CreateObject("WScript.Shell")
yol = kisayol.SpecialFolders("Desktop")
Set deg = kisayol.CreateShortcut(yol & "\" & ActiveWorkbook.Name & ".lnk")
With deg
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set kisayol = Nothing
MsgBox "Kısayol oluşturuldu"
End Sub