أشكال متحركة في الوثيقة باستخدام 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

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

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

...........

[شريف خضير]

فنان فعلاً .