يمكنك إنشاء شريط تقدم يدويًا عن طريق إدراج شكل أسفل كل شريحة. تكمن المشكلة في هذا الأسلوب في أنك ستحتاج إلى قياس طول كل شكل بناءً على عدد الشرائح في العرض التقديمي. بالإضافة إلى ذلك ، إذا قمت بإضافة شريحة أو إزالتها ، فستحتاج إلى إعادة شريط التقدم يدويًا في كل شريحة في عرض الشرائح.
للحفاظ على اتساق كل شيء وتوفير صداع خطير على نفسك ، يمكنك استخدام ماكرو لإنشاء شريط تقدم. باستخدام هذا الماكرو ، سيقوم شريط التقدم بضبط نفسه تلقائيًا بناءً على عدد الشرائح في العرض التقديمي.
أولاً ، افتح عرض PowerPoint التقديمي الذي ترغب في إنشاء شريط تقدم له. بمجرد فتحه ، انقر فوق علامة التبويب “عرض” ، ثم حدد “وحدات الماكرو”.
ستظهر نافذة “ماكرو”. في مربع النص أسفل “اسم الماكرو” ، اكتب اسمًا للماكرو الجديد. لا يمكن أن يحتوي الاسم على مسافات. بمجرد إدخاله ، انقر فوق “إنشاء” ، أو إذا كنت تستخدم نظام التشغيل Mac ، فانقر فوق الرمز “+”.
سيتم الآن فتح نافذة “Microsoft Visual Basic for Applications (VBA)”. في المحرر ، سترى هذا الرمز:
Sub ProgressBar() End Sub
أولاً ، ضع المؤشر بين سطري الكود.
بعد ذلك ، انسخ والصق هذا الرمز:
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
.Slides(X).Shapes("PB").Delete
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X:
End With
بمجرد لصقها ، يجب أن تبدو التعليمات البرمجية الخاصة بك بهذا الشكل في المحرر.
ملاحظة: لا توجد فواصل أسطر الآن بين أول وآخر سطر من التعليمات البرمجية.
يمكنك الآن إغلاق نافذة VBA. مرة أخرى في Microsoft PowerPoint ، انقر فوق “وحدات الماكرو” في علامة التبويب “عرض” مرة أخرى.
بعد ذلك ، اختر اسم الماكرو الخاص بك (“ProgressBar” في مثالنا) لتحديده ، ثم انقر فوق “تشغيل”.
سيظهر شريط التقدم الآن أسفل كل شريحة من شرائح العرض التقديمي.
إذا قمت بحذف شريحة ، فسيقوم شريط التقدم بضبط نفسه تلقائيًا. إذا أضفت شريحة جديدة ، فستحتاج إلى تشغيل الماكرو مرة أخرى (عرض> ماكرو> تشغيل). إنه إزعاج بسيط عند مقارنته بضبط كل شيء يدويًا.
