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

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


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



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





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

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



27-08-2017 02:17 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6338
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 392
قوة السمعة : 17440
الاعجاب : 322
 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 .. ثم قم برسم زري أمر على ورقة العمل : أحدهما لرسم الشعار بالأشكال المحددة والآخر لحذف هذه الأشكال
يمكنك الإطلاع على المرفق في الموضوع

أخوكم في الله / ياسر خليل أبو البراء
 
 
  Draw Your Logo.rar   تحميل rar مرات التحميل :(77)
الحجم :(18.3) KB


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





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





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





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





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





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

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


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

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


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

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


  

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


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




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





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

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

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

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



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


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

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



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

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






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


 







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



الساعة الآن 06:58 صباحا

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