نوار پیشرفت در پاورپوینت گرافیکی است که در PowerPoint بصورت بصری نمایانگر درصدی از نمایش اسلایدی است که انجام شده است. همچنین نشانگر خوبی برای مقدار باقیمانده است. در اینجا نحوه ایجاد نوار پیشرفت در Microsoft PowerPoint آورده شده است.
می توانید با قرار دادن شکلی در پایین هر اسلاید ، به صورت دستی نوار پیشرفت ایجاد کنید. مشکل این روش این است که شما باید طول هر شکل را بر اساس تعداد اسلایدهای ارائه شده اندازه گیری کنید. همچنین با اضافه یا حذف کردن اسلایدی دوباره باید اندازه گیری ها و تغییر شکل ها را از سر بگیرید.
برای ساختن نوارپیشرفت درپاورپوینت، پس از اتمام ساخت پاورپویت درمرحله نهایی میتونید از این روش استفاده کنید. ابتدا وارد سربرگ View شوید و Macros رو انتخاب کنید:
پس از کلیک کردن پنجره ای مطابق شکل زیر باز میشود. در قسمت Macro name نام progressbar رو وارد کنید و سپس بر روی create کلیک کنید. دراینجا باید پنجره ای مطابق (Microsoft Visual Basic for Applications (VBA)) شکل زیر باز شود:
تکه کد زیر را قبل از 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دوباره macros رو باز کرده، progressbar روانتخاب کنید و دکمه run رو بزنید. مشاهده میکنید که پروگرس بار به تمامی اسلاید ها اضافه می شود.
هنگام اضافه کردن اسلاید جدید و یا جذف یک یا چند اسلاید، باید برای تنظیم دوباره نوار پیشرفت در پاورپوینت، ماکروس را باز کرده و با انتخاب پروگرس بار ساخته شده، Run را کلیک کنید.
شخصی سازی نوار پیشرفت یا پروگرس بار
نحوه تغییر رنگ نوار پیشرفت در پاورپوینت
برای این کار کافیه در کد بالا خط هشتم مقادیر RGB را تغییر دهید. برای بدست آوردن این مقادیر کافیه در گوگل کلمه RGB color picker را سرچ کنید.
جابه جایی پروگرس بار پاورپوینت ساخته شده
برای جا به جایی نوار پیشرفت در پاورپوینت کافی است تا تکه کد زیر را تغییر دهید.
Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
0, .PageSetup.SlideHeight - 12,در کد بالا کافی است که قسمت اخر را به دلخواه تغییر دهید. به عنوان مثال با حذف قسمت زیر از کد بالا و جایگذاری صفر، نوار پیشرفت به بالای اسلایدها منتقل می شود.
.PageSetup.SlideHeight - 12کد نهایی به شکل زیر در خواهد آمد:
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, 0, _
X * .PageSetup.SlideWidth / .Slides.Count, 12)
s.Fill.ForeColor.RGB = RGB(127, 0, 0)
s.Name = "PB"
Next X:
End Withمنبع
