تغير ايقونة الاكسل من خلال كود

[viraaboras]

السلام عليكم ورحمة الله وبركاته

تغير ايقونة ملف اكسل من خلال الكود التالي :

نضع الكود التالي في ThisWorkbook :

 

Option Explicit

Private Sub Workbook_Open()
Application.Caption = " My Personalized Workbook"
ChangeApplicationIcon
End Sub

 

ونضع الكود التالي في MODULE1 :

 

 

Option Explicit

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



Sub ChangeApplicationIcon()

Dim Icon&

'*****Change Icon To Suit*******
Const NewIcon$ = "Notepad.exe"
'*****************************

Icon = ExtractIcon32(0, NewIcon, 0)
SendMessage32 GetActiveWindow32(), &H80, 1, Icon '< 1 = big Icon
SendMessage32 GetActiveWindow32(), &H80, 0, Icon '< 0 = small Icon

End Sub

[علي سالم 75]

مشكور اخوي

جزاك الله خير

[يوسف احمد]

جزاك الله كل خير

[Akram Galal]

جزاك الله خيراً .

[حمادة عمر]

السلام عليكم

الاخ الكريم / viraaboras

 

بارك الله فيك

وبالفعل كود جميل وراائع

وبعد اذنك سارفق ملف بالكود لسهوله معرفة النتيجة مع تغيير الايقونة في الكود الي شكل آخر لاظهاره اكثر

Const NewIcon$ = "HelpPane.exe"

بدلا من  ايقونة النودباد

Const NewIcon$ = "Notepad.exe" 

ارجو ان ينال رضاكم

جزاك الله خيرا

 

 

titelbarتغيير ايقونة الاكسيل في .rar

[عمر أبو صهيب]

جزاك الله خيرا أخي الكريم على الكود

و بارك في ألأخ حمادة عمر على التطبيثق و الملف المرفق

[منياوى]

[حمادة عمر]

السلام عليكم

الاخ الكريم / عمر أبو صهيب

 

بارك الله فيك

والشكر بالطبع للاخ الكريم / viraaboras

جزاك الله خيرا

[viraaboras]

بارك الله فيكم جميعا 

وشكرا جزيلا اخ حمادة عمر على التعديل الرائع 

[محمود ربيع]

السادة الافاضل جربت هذا الكود مرارا وتكرارا ولا يوجد اي تغيير في شكل الايقونة ارجو الرد

[aspiran]

السلام عليكم

جزاكم الله خيرا على المعلومة

إلا أنه لايوجد أي تغيير عند فتح الملف

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

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

 

حملت الملف المرفق ولم يغير الايقون للملف

 

وانا استخدم وندوز XP واوفس 2003

 

فما المشكلة

[حمادة عمر]

السلام عليكم

الاخ الكريم / viraaboras

 

بارك الله فيك

فالموضوع موضوعك ولكني احب التسهيل علي الجميع

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ الكريم / دكتور محمود ربيع

الاخ الكريم / عبد الغني(aspiran)

الاخ الكريم / خالد الشاعر

 

بارك الله فيكم

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

اعلي صفحة الاكسيل بعد فتحها .... كما في الصورة التاليه ... بدلا من ايقونة الاكسيل العادية

شاهدوا الصورة ... وفي انتظار ردكم

جزاكم الله خيرا

[محمود ربيع]

السلام عليكم ورحمة الله وبركاته

الاستاذ الكريم / حمادة عمر ارجو منك الاهتمام بموضوعي التالي

اريد كود لعدم تفعيل بعض مفاتيح الاختصار وخاصة مفتاح Alt+f11 وذلك لحجب ظهور المطور ومشروع الفيجوال بيسك الخاص بملف الاكسل وذلك للاهمية الرجاء الرد باقصي سرعة ويستحسن ان تكرمت ارفاق ملف اكسل به الكود وجزاك الله كل خيرا

كما احتاج الي علمكم الذاخر مرة اخري

احتاج الي كود يقوم بترحيل بيانات صف محدد في شيت 1 الي اي صف في شيت 2 بشرط ان يكون الصف المرحل اليه يشمل في اخره علي القيمة 1 وليكن اخر الصف مثلا العمود n بمعني ان يكون ترحيل الصف a1:m1 في شيت 1 اذا قمت بضغط الزر command button

يقوم بترحيل القيم الموجوده به الي اي صف في شيت 2 من a1:m50000 بشرط ان يكون العمود n يحتوي علي رقم 1 وبعد امام العمليه يتم مسح محتويات الصف المحول منه في كل مره

اشكركم علي حسن تعاونكم لمن رد ولمن لم يرد وجزاك الله عنا كل خير وزادك علما انتفعت به وانفعت وحباك به ملئ السموات والارض حسنات يارب العالمين

ملحوظة لقد قمت بنشر الموضوعين في المنتدي ولم يتم الرد عليهم

 

 

[حمادة عمر]

الحل لطلبك تم علي الرابط

http://www.officena.net/ib/index.php?showtopic=46752&p=280804

ليكون الرد في مكانه ... لزيادة الافادة للجميع وسهوله البحث

[MR.EXCEL]

للاسف الكود لايعمل 

الرجاء ايجاد حل لاوفيس 2007

 

جزاكم الله خير

[MR.EXCEL]

للرفع