أبو آدم قام بنشر أبريل 7, 2012 مشاركة قام بنشر أبريل 7, 2012 أخوتي الفضلاء ننشيئ وثيقة جديدة ، نفتح محرر الفيجوال 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 رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر أبريل 8, 2012 مشاركة قام بنشر أبريل 8, 2012 بارك الله فيك وهل On Time هذه دالة أم ماذا فان كانت كذلك فها نستطيع زيادة الوقت لابقاء الصورة تتحرك . وما علاقة الشكل بظهور الصورة NART LEBZO والسلام عليكم ورحمة الله وبركاته رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر أبريل 9, 2012 الكاتب مشاركة قام بنشر أبريل 9, 2012 أخي العزيز الحد الادني للوقت ثانية واحد ، أي إجراء كل ثانية TimeValue("00:00:01") الإجراء دوران Rotation لزيادة إنحراف الدوران (يظهر كزيادة سرعة) نقوم بزيادة الرقم في oSH.IncrementRotation 30 الصورة لا علاقة لها للوقت تشرفت بمرورك الطيب ........... رابط هذا التعليق شارك More sharing options...
شريف خضير قام بنشر يونيو 9, 2012 مشاركة قام بنشر يونيو 9, 2012 فنان فعلاً . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان