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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)

السلام عليكم ورحمة الله وبركاته أقدم لكم موضوع ترفيهي ، حيث يمكنك توليد شعار لاسمك أو اسم موقعك باستخدام الأكواد في أ ..



27-08-2017 02:17 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 

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

MjE1Mzk4MQ3535Logo

أقدم لكم موضوع ترفيهي ، حيث يمكنك توليد شعار لاسمك أو اسم موقعك باستخدام الأكواد في أقل من دقيقة .. كل ما عليك هو أن تقوم بإدراج موديول جديد وتضع فيه الكود التالي
Sub Draw_Name_Logo()
    Dim i       As Integer
    Dim k       As Integer
    Dim x       As Single
    Dim y       As Single
    Dim z       As Single
    Dim n       As Single
    Dim sSize   As Single
    Dim sName   As String
    Dim stLeft  As Single
    Dim stTop   As Single
    Dim sh      As Shape
    Dim rng     As Range

    Range("A7").Select
    stLeft = ActiveCell.Left - 30
    stTop = ActiveCell.Top

    sName = "أكاديمية الصقر للتدريب"

    n = 12
    k = Len(sName)
    sSize = Application.InchesToPoints(1)

    For i = 1 To k
        If Mid(sName, i, 1) <> " " Then
            x = n * i / k
            x = Application.InchesToPoints(x)
            y = Application.InchesToPoints(z)

            If i Mod 2 = 1 Then
                Set sh = ActiveSheet.Shapes.AddShape(msoShapeUpRibbon, stLeft + x, stTop + y, sSize, sSize)
            Else
                Set sh = ActiveSheet.Shapes.AddShape(msoShapeDownRibbon, stLeft + x, stTop + y, sSize, sSize)
            End If

            sh.Fill.ForeColor.RGB = RGB(GiveRandom(150, 200), GiveRandom(200, 255), GiveRandom)
            sh.Fill.Visible = msoTrue

            sh.TextFrame.Characters.Text = UCase(Mid(sName, i, 1))
            sh.TextFrame.Characters.Font.Size = 18
            sh.TextFrame.Characters.Font.Name = "Arial"
            sh.TextFrame.Characters.Font.Bold = True
            sh.TextFrame.Characters.Font.Color = RGB(0, 0, 0)

            sh.TextFrame2.VerticalAnchor = msoAnchorMiddle
            sh.TextFrame2.TextRange.ParagraphFormat.Alignment = msoAlignCenter
        End If
    Next i
End Sub

Sub Delete_Shapes_Except_Form_Controls()
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoAutoShape Or shp.Type = msoTextBox Then shp.Delete
    Next shp
End Sub

Function GiveRandom(Optional lowerBound As Integer = 100, Optional upperBound As Integer = 255) As Integer
    Randomize Timer
    GiveRandom = Int((upperBound - lowerBound + 1) * Rnd + lowerBound)
End Function


كل ما عليك تغييره هو المتغير المسمى sName .. ثم قم برسم زري أمر على ورقة العمل : أحدهما لرسم الشعار بالأشكال المحددة والآخر لحذف هذه الأشكال

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أخوكم في الله / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: ali mohamed ali، عبدالله فتحى، الصقر، كريم نظيم،





14-03-2019 09:56 مساء
مشاهدة مشاركة منفردة [1]
محمود ابراهيم العبادى
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-03-2019
رقم العضوية : 11948
المشاركات : 20
الجنس : ذكر
تاريخ الميلاد : 9-9-1986
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 28
الاعجاب : 3
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
بارك الله فيك





16-03-2019 07:01 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
بارك الله فيك أخي الكريم ومشكور على مرورك العطر وأول رد في الموضوع الذي طرح منذ أكثر من سنة





17-03-2019 08:51 مساء
مشاهدة مشاركة منفردة [3]
عبدالله الصاري
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 227
المشاركات : 90
الدولة : ليبيا
الجنس : ذكر
تاريخ الميلاد : 25-1-1964
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 190
الاعجاب : 1
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
حبيبنا  واستاذنا ياسر
 بالرغم من وجود الموضوع منذ سنة لكن اول مرة اراه
مميز ومبدع دائما
في موازيين حسناتك  وبارك الله في عملك وعلمك





18-03-2019 07:05 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
بارك الله فيك أخي الحبيب عبد الله وشرفني مرورك بالموضوع





09-04-2019 08:13 صباحا
مشاهدة مشاركة منفردة [5]
مجدى يونس
menu_open
مشرف قسم البوربوينت
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 811
المشاركات : 682
الجنس : ذكر
تاريخ الميلاد : 26-8-1954
الدعوات : 1
يتابعهم : 0
يتابعونه : 31
قوة السمعة : 2755
الاعجاب : 375
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)

الاخ العزيز ياسر


انا اسف انى لا اشاهد اعمالكم المميزة

وذلك لدخولى لوضع ماطلبته منى والرد عليها لانشغالى لقسم البوربوينت فدخلت للاكسل


فوجئت بالموضوع ودخلت اشوفه عجبتنى الفكرة كده حتعطل عليا فى التصميمات

طيب سيب لى حاجة عمل ممتاز


  

الاخ العزيز ياسر


أثارت هذه المشاركة إعجاب: Yasser Elaraby، YasserKhalil،




17-04-2019 08:54 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
بارك الله فيك أخي الحبيب مجدي .. هذا بعض ما عندكم من أعمال مميزة





24-04-2019 11:57 صباحا
مشاهدة مشاركة منفردة [7]
محمد حسن المحمد
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 608
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 1
يتابعهم : 63
يتابعونه : 29
قوة السمعة : 3194
الاعجاب : 239
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)

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

أحسنتم أحسن الله إليكم وجزاكم الله خير الجزاء يا أبا البراء الغالي:

على العمل الرائع
890264



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


توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء



24-04-2019 06:32 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
وعليكم السلام أخي الحبيب أبو يوسف
وجزيت خيراً بمثل ما دعوت لي وزيادة .. تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: محمد حسن المحمد،




03-08-2019 12:05 صباحا
مشاهدة مشاركة منفردة [9]
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 3
قوة السمعة : 183
الاعجاب : 21
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
بارك الله فيك وجزاك الله خيرا

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




04-08-2019 11:53 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif ارسم شعار بأشكال باستخدام البرمجة داخل الإكسيل (موضوع ترفيهي)
وجزيت خيراً أخي الكريم بمثل ما دعوت لي وزيادة







الكلمات الدلالية
لا يوجد كلمات دلالية ..


 







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



الساعة الآن 10:17 صباحا

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