السلام عليكم
اثناء بحثي عن التحريك وجدت هذا الكود الشيق بمساعد الافس و هو خاص باضهار مساعد الافس مثل الدبوس وتستطيعوا تغيير شكلة.
قم بإدراج زر CommandButton1
و اكتب بداخله هذا الكود (انسخه والصقه هناك)
كود:
With Assistant
.On = True
.Visible = True
.Move xLeft:=400, yTop:=300
.MoveWhenInTheWay = True
.TipOfDay = True
.Animation = msoAnimationGetTechy
End With
و لتغيير شكله استبدل اجملة الاخيرة msoAnimationGetTechy
بأحدى الجمل التالية:
msoAnimationCheckingSomething
msoAnimationGetTechy
msoAnimationListensToComputer
msoAnimationSearching
msoAnimationThinking
msoAnimationWorkingAtSomething
msoAnimationWritingNotingSomething
جرب بنفسك و هذا ملف تطبيقي
الاستاذ خليل