Makro ile kısa yola simge

[acolkesen1]

Merhaba arkadaşlar,
Makro ile simgelerin bulunduğu bir klasörden (Örn. klasör adı "Simgeler" ) masa üstündeki bir excel kısa yolunun simgesi değiştirilebilir mi?
ilgilenen arkadaşlara teşekkür ederim.

 

[Zeki Gürsoy]

Merhaba,

Şunu deneyin; arkasından gerekli değişikliği yaparsınız...

Sub KısaYol()
Dim Wsh As Object, Desktop As String, CShortcut As Object

[COLOR=DarkGreen]'Dim Wsh As WshShell, Desktop As String, CShortcut As WshShortcut
'Set Wsh = New WshShell[/COLOR]

Set Wsh = CreateObject("wscript.shell")

Desktop = Wsh.SpecialFolders("Desktop") & "\"

Set CShortcut = Wsh.CreateShortcut(Desktop & "Test.lnk")

    With CShortcut
        .TargetPath = "C:\Program Files\Microsoft Office\OFFICE11\"
        .WindowStyle = 1 [COLOR=DarkGreen]'Tam ekran[/COLOR]
       [COLOR=DarkGreen] 'Icon belirtilmezse hedef uygulamanın iconu görünür.
        'Bir Icon dosyası yerine uygulama da gösterilebilir.
        '.IconLocation = "D:\Deneme.ico[/COLOR]
        .IconLocation = "C:\Program Files\Microsoft Office\OFFICE11\Excel.exe"
        .Save
    End With

End Sub

 

[acolkesen1]

Merhaba Sayın Zeki Gürsoy,
Gerekli düzeltmeleri yaptım, çok teşekkür ederim. Esen kalın...