كود لاضافة شرائح الى العرض التقديمى

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

كود لاضافة شرائح الى العرض التقديمي

الكود

Private Sub CommandButton1_Click()
 Dim mySlide As Slide
    Set mySlide = ActivePresentation.Slides.Add(Index:=1, _
        Layout:=ppLayoutTitle)
End Sub

[مجدى يونس]

الاخ قنديل

شكرا للمجهود وجذاك الله خير

[حمادة عمر]

مجهود ونشاط اكثر من ممتاز