عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد

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

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

إخواني الكرام

 

جمعة مباركة عليكم

 

أقدم لكم كود خفيف دمه ظريف .. الكود يقوم بعمل طريق مختصر للمصنف الحالي إلى سطح المكتب أو ما نسميه Shortcut، وكله بالكود

Sub CreateShortCut()
    Dim oWSH As Object
    Dim oShortcut As Object
    Dim sPathDeskTop As String
    
    Set oWSH = CreateObject("WScript.Shell")
    sPathDeskTop = oWSH.SpecialFolders("Desktop")
    
    Set oShortcut = oWSH.CreateShortCut(sPathDeskTop & "\" & ActiveWorkbook.Name & ".lnk")
    With oShortcut
        .TargetPath = ActiveWorkbook.FullName
        .Save
    End With
    Set oWSH = Nothing
End Sub

هو دا الكود ..بس خلاص

إليكم الملف المرفق

قم بفك الملف المضغوط وضع الملف المفكوك في أي مسار على الحاسب الخاص بك ..وديه في الأدغال !! ونفذ الكود لتجد اختصار لمصنفك على سطح المكتب

 

دمتم على طاعة الله ..ولا تنسونا من صالح دعائكم

Create Shortcut On Desktop.rar

[خزاني]

بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركاته 
بارك الله فيك أخي الحبيب على هذا الموضوع الرائع
وجزاك الله عنا كل خييييييييير .

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

أخي وحبيبي في الله خزاني

مشكور على مرورك العطر وعلى أعمالك الرائعة التي نستفيد منها جميعاً

تقبل تحياتي

[ابو جودى]

ا / ياسر خليل
دمتم على طاعة الله 
جزاك الله خيرا

تم تعديل مايو 2, 2015 بواسطه عمرو طلبة

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

مشكور على مرورك العطر وكلماتك الطيبة أخي الفاضل عمرو

تقبل ودي وتحياتي

[عبد العزيز البسكري]

بارك الله فيك  و جزاك الله خيرًا أستاذنا الغالي ياسر خليل

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

أخي الكريم عبد العزيز البسكري

وجزيت بمثله بارك الله فيك

ومشكور على تشجيعك الدائم لي ..

وإن شاء المولى نتعلم منكم قريباً جداً

[أ / محمد صالح]

يا عيني يا عيني

بتذاكر من ورانا يا استاذ ياسر؟

لك براء يترد عليه

.............

ربنا يبارك فيك وفي أولادك

تقبل مروري

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

أخي وحبيبي ومعلمي محمد صالح

مشكور على مرورك العطر ..

 

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

ربنا يبارك لنا فيك ويجعل أعمالك في ميزان حسناتك

تقبل تحياتي

[Yasser Fathi Albanna]

أدام الله لك المذيد من التقدم والإزدهار اخى الحبيب / ياسر خليل

عمل أكثر من رائع

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

مشكور على مرورك الكريم أخي الكريم ياسر

دائما ما تشجعني بكلماتك الرقيقة

بارك الله فيك

[يوسف السيد]

الكود رائع ما شاء الله
هل يمكن تعديل الكود ليأخذ نسخة من الشيت النشط ووضعها بملف اكسيل علي الديسك توب

 

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

أخي الكريم يوسف السيد

الكود يتعامل مع المصنف بالكامل وليس لشيت واحد فقط أما إذا كنت تقصد تصدير ورقة عمل محددة فإليك الرابط التالي عله يفيدك

من هنا