وعليكم السلام ورحمة الله وبركاته
الله يعطيك العافيه لتجاوبك أخي الكريم
العرض مطلوب مني في العمل بهذا الشكل ولمدة معينة وكذلك طلب زر للتوقف عند الرغبة
أخي الكريم حاولت كثيراً
توصلت أن الحرف S مع الزائد + يوقفون العرض مؤقتاً
حاولت أن أصل لنتيجة بهذه الأكواد
ليست لدي أي خبرة في البرمجة أو الأكواد
فهل أستطيع الوصول لزر يضغط على الحرفين
Sو+
للوصول إلى التوقف المؤقت
هذا الكود حاولت فيه كثيراً ولم أفلح لكي أصل للضغط على الحرفين عن طريق الزر
SendKeys string[, wait]
====================
أو
Set OLEobj = ActivePresentation.Slides(1).Shapes(3)
With OLEobj.AnimationSettings.PlaySettings
.PlayOnEntry = msoTrue
.PauseAnimation = msoTrue
End With
برجاء المساعدة
وجزاك الله خيراً