اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
أعلن هنا
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كيفية تغيير ايقونة برنامج الاكسل

اخواني هل يمكن تغيير ايقونة ملف الاكسل؟



16-05-2018 11:32 صباحا
بليغ البتول
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-02-2018
رقم العضوية : 4439
المشاركات : 15
الجنس : ذكر
تاريخ الميلاد : 20-2-1982
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 20
الاعجاب : 5
 offline 
اخواني
هل يمكن تغيير ايقونة ملف الاكسل؟










16-05-2018 04:27 مساء
مشاهدة مشاركة منفردة [1]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif كيفية تغيير ايقونة برنامج الاكسل

البرنامج يتم تحوبله لصيغة(exe)
وبعد كدا يتم تغيير الأيقونه عادي جدااااااااااا
----------------------------------
أما بالنسبه لوضعه وهو بصيغته الطبيعيه الله اعلم . . . !!
انتظر احد اخوانك المحترفين يعطوك ان شاء الله الجواب الكافي

أثارت هذه المشاركة إعجاب: بليغ البتول،




20-05-2018 09:07 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif كيفية تغيير ايقونة برنامج الاكسل
السلام عليكم اخي الكريم
لقد بحثت لك وفعلا تستطيع تغيير ايقونة الأكسل
استخدم الأكواد التاليه:

[code] Declare Function GetActiveWindow32 Lib "USER32" Alias _
"GetActiveWindow" () As Integer
 
Declare Function SendMessage32 Lib "USER32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
 
Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias _
"ExtractIconA" (ByVal hInst As Long, _
ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
 
Dim hdlNewIcon As Long
Dim hdlXlMain As Long
 
Sub ChangeXLIcon()
 
hdlNewIcon = ExtractIcon32(0, "C:WINDOWSMoricons.dll", 1)
hdlXlMain = GetActiveWindow32()
 
SendMessage32 hdlXlMain, &H80, 1, hdlNewIcon 'Icon big

End Sub
 
Sub RestoreXLIcon()
 
hdlNewIcon = ExtractIcon32(0, "C:Program FilesMicrosoft OfficeOfficeexel.exe", 1)
hdlXlMain = GetActiveWindow32()
 
SendMessage32 hdlXlMain, &H80, 1, hdlNewIcon 'Icon big

End Sub
[/code]





20-05-2018 09:43 مساء
مشاهدة مشاركة منفردة [3]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif كيفية تغيير ايقونة برنامج الاكسل
او استخدم هذا

 


Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _

ByVal lpWindowName As String) As Long



Private 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



Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, _

ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long



Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long



Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, _

ByVal nMaxCount As Long) As Long



Private Const WM_SETICON = &H80

Private Const GW_HWNDNEXT = 2



Private Sub SetExcelIcon()

'CHANGE ALL EXCEL APP WINDOWS THE A DIFFERRENT ICON

    Dim lngXLHwnd As Long, lngIcon As Long, strIconPath As String, sCls As String, lRetVal As Long

       

    'Use whichever icon file you want to use here

    strIconPath = "C:Program FilesMicrosoft Visual StudioCommonFLGUK.ICO"

    lngXLHwnd = FindWindow("XLMAIN", vbNullString)

    Do While lngXLHwnd <> 0

        sCls = Space(255)

        lRetVal = GetClassName(lngXLHwnd, sCls, 255)

        If lRetVal <> 0 Then

            If Left(sCls, lRetVal) = "XLMAIN" Then

                lngIcon = ExtractIcon(0, strIconPath, 0)

                lRetVal = SendMessage(lngXLHwnd, WM_SETICON, ByVal 0&, ByVal lngIcon)

            End If

        End If

        lngXLHwnd = GetWindow(lngXLHwnd, GW_HWNDNEXT)

    Loop



End Sub



Private Sub Workbook_Open()

    Call SetExcelIcon

End Sub



تم تحرير المشاركة بواسطة :Yasser Elaraby
بتاريخ:21-05-2018 09:20 صباحا






20-05-2018 09:52 مساء
مشاهدة مشاركة منفردة [4]
نصر الإيمان
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 333
الاعجاب : 79
 offline 
look/images/icons/i1.gif كيفية تغيير ايقونة برنامج الاكسل
او ادرج الكود التالي في موديول واضغط على  ReplaceIcon

 


Option Explicit


Declare Function SendMessage32 Lib "USER32" Alias "SendMessageA" _

(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal _

lParam As Long) As Long



Declare Function ExtractIcon32 Lib "SHELL32.DLL" Alias "ExtractIconA" _

(ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex _

As Long) As Long



Declare Function GetActiveWindow32 Lib "USER32" Alias "GetActiveWindow" _

() As Integer



Sub ReplaceIcon()

    Dim Icon As String

    Const NewIcon$ = "Notepad.exe"

   

    '~~> Getting the icon from windows calculator

    '~~> similarly you can extract the icon from any exe

    '~~> if the application is not present in windows path

    '~~> then give complete path and file name

    Icon = ExtractIcon32(0, "Calc.exe", 0)

    '~~> you can use 1 for big icon

    SendMessage32 GetActiveWindow32(), &H80, 1, Icon

    '~~> and 0 for small icon

    SendMessage32 GetActiveWindow32(), &H80, 0, Icon

End Sub



تم تحرير المشاركة بواسطة :Yasser Elaraby
بتاريخ:21-05-2018 09:21 صباحا








الكلمات الدلالية
كيفية ، تغيير ، ايقونة ، برنامج ، الاكسل ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 09:59 صباحا

أعلن هنا
أعلن هنا
أعلن هنا