اكواد لعمل اشكال جميلة لمساعد الاوفيس باور بويت

[قنديل الصياد]

الشكل الاول

Private Sub CommandButton1_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationGetTechy

End With
End Sub

الشكل الثاني

Private Sub CommandButton2_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationCheckingSomething

End With
End Sub

الشكل الثالث

Private Sub CommandButton3_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationListensToComputer

End With
End Sub

الشكل الرابع

Private Sub CommandButton4_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationSearching

End With


End Sub

الشكل الخامس

Private Sub CommandButton5_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationThinking

End With
End Sub

الشكل السادس

Private Sub CommandButton6_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationWorkingAtSomething

End With
End Sub

الشكل السابع

Private Sub CommandButton7_Click()
With Assistant
    .On = True
    .Visible = True
    .Move xLeft:=400, yTop:=300
    .MoveWhenInTheWay = True
    .TipOfDay = True
    .Animation = msoAnimationWritingNotingSomething

End With
End Sub

مع تحياتى & قنديل الصياد &

[مجدى يونس]

الاخ قنديل الصياد

ارجو ارفاق ملف بوربوينت ولك الشكر

حيث انه يعطى خطأ بالكود كما بالصورة

 

[قنديل الصياد]

السلام عليكم

استاذى العزيز

مرفق ملف به يعض التطبيقات وهو يعمل عندى بدون اية اخطاء

 

 

 

Presentation1.rar

[saaad 213]

يظهر خطا عندي 2010