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

أشكال متحركة في الوثيقة باستخدام OnTime


أبو آدم

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

أخوتي الفضلاء

ننشيئ وثيقة جديدة ، نفتح محرر الفيجوال Alt+F11 وفي ThisDocument نلصق الكود :


Option Explicit


Sub Document_Open()

    Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"

End Sub


Sub ShapeMover()

    Dim oSH As Shape


    Beep


    Set oSH = ActiveDocument.Shapes(1)

    oSH.IncrementRotation 10


    Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="ShapeMover"

End Sub

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

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

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

NA_OnTime.rar

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

بارك الله فيك

وهل On Time هذه دالة أم ماذا فان كانت كذلك فها نستطيع زيادة الوقت لابقاء الصورة تتحرك .

وما علاقة الشكل بظهور الصورة NART LEBZO

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

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

أخي العزيز

الحد الادني للوقت ثانية واحد ، أي إجراء كل ثانية



TimeValue("00:00:01")

الإجراء دوران


Rotation

لزيادة إنحراف الدوران (يظهر كزيادة سرعة) نقوم بزيادة الرقم في


oSH.IncrementRotation 30

الصورة لا علاقة لها للوقت

تشرفت بمرورك الطيب

...........

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

  • 2 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information