بعض المؤثرات النصية على Label داخل اليوزر فورم

مقالات مشابهة

ترحيل أعمدة غير متجاورة لأعمدة غير متجاورة Transfer Non-Adjacent Columns Using Arrays

نوفمبر 9, 2024

الشرح المستفيض لكود البحث المتقدم باستخدام المصفوفات للأستاذ الكبير ياسر العربي Search Using Arrays

نوفمبر 9, 2024

شرح درس VBA لتصفية البيانات في Excel باستخدام زر

نوفمبر 7, 2024

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

طلب بعض الاخوة طريقة لعمل مؤثرات على النص داخل ليبل او تكست بوكس
قمت بعمل مثال يجمع لبعض المؤثرات سريعا وان كان هناك وقت سأضيف مؤثرات اخرى ان شاء الله
وياريت الاخوة يشاركونا الموضوع

الصورة مصغرة أنقر هنا لرؤيتها بحجمها الطبيعي 878*386

اليكم الكود المستخدم في اليوزر فورم

CODE

Private Sub UserForm_Activate()
    Dim str As String, a1, a2, L
    str = Label1.Caption
    Do
        t = Timer
        Do While Timer < t + 0.2
            DoEvents
        Loop
        '+++++++++++++++++++++++++++++++
        If Label3.Visible = False Then
            Label3.Visible = True
        Else
            Label3.Visible = False
        End If
        '++++++++++++++++++++++++++++++
        If Label4.ForeColor = &HC000C0 Then
            Label4.ForeColor = &HFF0000
        Else
            Label4.ForeColor = &HC000C0
        End If
        '++++++++++++++++++++++++++++++
        DoEvents
        L = Len(str) + 1
        If a1 < L Then
            Label1.Caption = Mid(str, 1, a1)
            a1 = a1 + 1
        Else
            If a2 < L Then
                Label2.Caption = Mid(str, 1, a2)
                a2 = a2 + 1
            Else
                a2 = 0
                a1 = 0
            End If
        End If
    Loop
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    End
End Sub

الملف مرفق
Text Effects.rar​