روی تصویر زیر کلیک کنید!
آموزشپاورپوینت

نحوه ساخت نوار پیشرفت در پاورپوینت به صورت اتوماتیک – ماکروس

5
(3)

نوار پیشرفت در پاورپوینت گرافیکی است که در PowerPoint بصورت بصری نمایانگر درصدی از نمایش اسلایدی است که انجام شده است. همچنین نشانگر خوبی برای مقدار باقیمانده است. در اینجا نحوه ایجاد نوار پیشرفت در Microsoft PowerPoint آورده شده است.

می توانید با قرار دادن شکلی در پایین هر اسلاید ، به صورت دستی نوار پیشرفت ایجاد کنید. مشکل این روش این است که شما باید طول هر شکل را بر اساس تعداد اسلایدهای ارائه شده اندازه گیری کنید. همچنین با اضافه یا حذف کردن اسلایدی دوباره باید اندازه گیری ها و تغییر شکل ها را از سر بگیرید.

برای ساختن نوارپیشرفت درپاورپوینت، پس از اتمام ساخت پاورپویت درمرحله نهایی میتونید از این روش استفاده کنید. ابتدا وارد سربرگ View شوید و Macros رو انتخاب کنید:

تب view بخش macros

پس از کلیک کردن پنجره ای مطابق شکل زیر باز میشود. در قسمت Macro name نام progressbar رو وارد کنید و سپس بر روی create کلیک کنید. دراینجا باید پنجره ای مطابق (Microsoft Visual Basic for Applications (VBA)) شکل زیر باز شود:

Visual Basic Application window

تکه کد زیر را قبل از 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

منبع

howtogeek

این مقاله چقدر مفید بود؟

میزان رضایت خود را با کلیک روی اموجی ها نشان دهید

میانگین آراء 5 از بین 3 نفر

تاکنون کسی رای نداده است! اولین نفر باشید

اگر این پست برای شما مفید بود...

با انتشار مطلب و نیز کلیک بر روی تبلیغات از ما حمایت کنید

از اینکه این پست برای شما مفید نبود عذرخواهی میکنیم!

با کامنت گذاشتن در بهتر شدن این پست به ما کمک کنید.

به ما بگویید چطور این پست را بهتر کنیم؟

حمزه شمسی

فکر این موضوع که سرچشمه همه انقلاب ها آگاهی است باعث شد که حمزه شمسی با تاسیس ریون مگ یک گام به این هدف نزدیک تر شود و با ایده های خلاقانه، آینده بهتری برای خود و دیگران رقم بزند.

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *

دکمه بازگشت به بالا
error: حق کپی رایت محفوظ!