اخى واستاذى العزيز
لا يبقى من الكلام ما اقول بعد ما قاله اساتذتى الاحلاء
فكلنا هنا
فرد واحد / قلب واحد / يد واحدة .... لا تمل ولا تميل
فلك منى كل تحية على انضمامك لموقعنا الجميل وتحيتى لكل اساتذتى الكرام الاجلاء كل باسمه
وكل عام وحضراتكم بخير
طباعة مدى محدد من الشرائح
Private Sub CommandButton1_Click()
ActivePresentation.PrintOut From:=1, To:=10
End Sub
طباعة كافة الشرائح فى العرض التقديمى
Private Sub CommandButton2_Click()
ActivePresentation.PrintOut
End Sub
كود لاضافة شرائح الى العرض التقديمي
الكود
Private Sub CommandButton1_Click()
Dim mySlide As Slide
Set mySlide = ActivePresentation.Slides.Add(Index:=1, _
Layout:=ppLayoutTitle)
End Sub