كود للانتقال الى شريحة عشوائية

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

الكود

Private Sub CommandButton1_Click()
Randomize
Dim Inum As Integer
Inum = Int(7 * Rnd + 4)
ActivePresentation.SlideShowWindow.View.GotoSlide (Inum)
End Sub

مرفق ملف به التطبيق

 

Presentation1.rar

[حمادة عمر]

تقبل خالص تحياتي

 

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