تغيير ايقون الاكسل

[خالد الشاعر]

السادة الخبراء

 

مرفق ملف لتغيير ايقون الاكسل عند فتح الملف

 

مرفق ايقون فى الملف يوضع فى فولدر الويندوز C:\WINDOWS

 

او اى ايقون اخر بشرط تغير اسمة فى الفيجول كود 

 

تحياتى للجميع

Icon Changer.rar

[ياسر خليل أبو البراء]

صراحة لم أفهم التغيير الذي يحدث ..

ماذا يحدث وأين يحدث ؟

وضعت الأيقونات في المسار الذي أشرت إليه وقمت بفتح الملف ولم ألاحظ تغير أية أيقونات ..يرجى التوضيح .. ولو بالصور

أمر آخر لا يوجد في الكود ما يسمح لك بتغيير المسار ..

[خالد الشاعر]

استاذ ياسر

 

امر تغيير اسم الايقون هو

 

 Const NewIcon$ = "folder.ico"

 

و بالنسبة لشكل الايقون للملف فى التسك بار لما تفتح الملف

[ياسر خليل أبو البراء]

أخي خالد

لم تتغير شكل الأيقونة في شريط المهام ..هذا أمر

أمر آخر ..هل للأيقونات لابد أن توضع في المسار المذكور أم أنه يمكن تغيير مسار الأيقونات في الكود؟

لم أسأل عن تغيير اسم الأيقونة

[خالد الشاعر]

استاذ ياسر

 

انا استعملت الكود مع وندوز xp وافس 2007

 

ويعمل معى بشكل طبيعى

[Akram Galal]

أ/ خالد ممكن تجربة علي ويندوز 7

لأنه لم يعمل عندي

ولدي ويندوز 7

شكرا

[مختار حسين محمود]

أستاذ حالد بارك الله فيك

جربت ما قلت ولم تتغيير الأيقونه فى شريط المهام  تغييرت فى شريط الأدوات فوق قائمة file  فقط

أعمل على win7  mso2010

وإثراءً للموضوع هذا كود يؤدى نفس العمل بدون  ملفات أو الذهاب للـ c

 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
            ByVal lpWindowName As String) As Long
     
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _
            ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
     
    Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, _
            ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
     
    Const WM_SETICON = &H80
     
    Sub SetExcelIcon()
        Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String
     
        'Use whichever icon file you want to use here
        strIconPath = "C:\Program Files\Microsoft Office\Office14\MSN.ICO"
        lngXLHwnd = FindWindow("XLMAIN", Application.Caption)
     
        lngIcon = ExtractIcon(0, strIconPath, 0)
     
        SendMessage lngXLHwnd, WM_SETICON, False, lngIcon
     
    End Sub

فقط غير المسار لأى أيقونة  والتغيير يكون فقط فى الأدوات فوق قائمة file تحياتى   

تم تعديل أبريل 14, 2015 بواسطه مختار حسين محمود

[أ/حكيم]

جزاك الله خير