اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اطار متحرك حول نص؟؟


الخطاب

الردود الموصى بها

  • 4 weeks later...

السلام عليكم

يمكنك ذلك  من  : تنسيق / خط / تأثيرات النص

حدد النص ثم طبق التأثير الذي تريده

انظر المرفق

بسم الله الرحمن الرحيم2.rar

رابط هذا التعليق
شارك

  • 2 months later...
  • 4 weeks later...
في ٢٧‏/٢‏/٢٠١٧ at 21:48, ابو ابراهيم11 said:

السلام عليكم استاذ ابو خليل

هل يمكن عمل ذالك في اوفيس 2010 وكيف ان امكن ارفاق صورة توضيحية وشكرا

استأذن من استاذنا @ابوخليل على المداخلة

نعم تقدر تعمل

اولا حدد النص
بعدين اضغط كليك يمين عليه

اختار ستايلس

اختر ابلاي ستايلس

راح يظهر لك هذه الشاشة

شوف الصورة

1.PNG.596aff62170999a67d038c4806bff3f1.PNG

في يسارك فيها مربع عليه مكتوبة حرفين AA اضغط عليه
راح يظهر الستايلات عندك

وتكدر تستخدم اي واحد تريد

تحياتي

 

رابط هذا التعليق
شارك

  • 10 months later...

السادة القراء/

سلاما وتحية

تم تعطيل هذ الخيار ( وضع إطار متحرك حول النص ) فى الاصدار 2010 و لكن بالبحث تبين وجود ماكرو يمكن إضافته للبرنامج كى يؤدى هذه الوظيفة 

Sub AnimateFont()
Dim sAnimation As String
    If Len(Selection.Range) = 0 Then
        MsgBox "Select text first!", vbCritical, "No Text Selected"
        Exit Sub
    End If
    sAnimation = InputBox("Which animation? Enter the number: " & vbCr & _
                          " 1. Blinking Background" & vbCr & _
                          " 2. Las Vegas Lights" & vbCr & _
                          " 3. Marching Black Ants" & vbCr & _
                          " 4. Marching Red Ants" & vbCr & _
                          " 5. Shimmer" & vbCr & _
                          " 6. Sparkle Text" & vbCr & _
                          " 0. None", "Font animation")
    Select Case sAnimation
        Case 1: Selection.Font.Animation = wdAnimationBlinkingBackground
        Case 2: Selection.Font.Animation = wdAnimationLasVegasLights
        Case 3: Selection.Font.Animation = wdAnimationMarchingBlackAnts
        Case 4: Selection.Font.Animation = wdAnimationMarchingRedAnts
        Case 5: Selection.Font.Animation = wdAnimationShimmer
        Case 6: Selection.Font.Animation = wdAnimationSparkleText
        Case 0: Selection.Font.Animation = wdAnimationNone
        Case Else:
    End Select
End Sub

 

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

  • 2 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information