แถบความคืบหน้าเป็นกราฟิกที่อยู่ใน PowerPoint แสดงให้เห็นถึงเปอร์เซ็นต์ของสไลด์โชว์ที่เสร็จสมบูรณ์ นอกจากนี้ยังเป็นตัวบ่งชี้ที่ดีของจำนวนเงินที่เหลืออยู่ นี่คือวิธีการสร้างแถบความคืบหน้าใน Microsoft PowerPoint
คุณสามารถสร้างแถบความคืบหน้าด้วยตนเอง ใส่รูปร่าง ที่ด้านล่างของสไลด์แต่ละอัน ปัญหาเกี่ยวกับวิธีการนี้คือคุณจะต้องวัดความยาวของแต่ละรูปร่างตามจำนวนสไลด์ในงานนำเสนอ นอกจากนี้หากคุณเพิ่มหรือลบสไลด์คุณจะต้องทำซ้ำแถบความคืบหน้าอีกครั้งในทุกสไลด์ในสไลด์โชว์
เพื่อให้ทุกอย่างสอดคล้องกันและช่วยตัวเองให้ปวดศีรษะอย่างรุนแรงคุณสามารถ ใช้มาโคร เพื่อสร้างแถบความคืบหน้า ด้วยแมโครนี้แถบความคืบหน้าจะปรับตัวเองโดยอัตโนมัติตามจำนวนสไลด์ในงานนำเสนอ
ที่เกี่ยวข้อง: มาโครอธิบาย: ทำไมไฟล์ Microsoft Office อาจเป็นอันตรายได้
อันดับแรก, เปิดงานนำเสนอ PowerPoint ที่คุณต้องการสร้างแถบความคืบหน้าสำหรับ เมื่อเปิดให้คลิกแท็บ "ดู" จากนั้นเลือก "มาโคร"
หน้าต่าง "แมโคร" จะปรากฏขึ้น ในกล่องข้อความด้านล่าง "ชื่อแมโคร" พิมพ์ชื่อใน Macro ใหม่ของคุณ ชื่อไม่สามารถมีช่องว่าง เมื่อป้อนแล้วให้คลิก "สร้าง" หรือหากคุณใช้ Mac ให้คลิกไอคอน "+"
หน้าต่าง "Microsoft Visual Basic สำหรับแอปพลิเคชัน (VBA)" จะเปิดขึ้นตอนนี้ ในบรรณาธิการคุณจะเห็นรหัสนี้:
Sub ProgressBar () end sub
ก่อนอื่นให้วางเคอร์เซอร์ของคุณระหว่างรหัสสองบรรทัด
ถัดไปคัดลอกและวางรหัสนี้:
เกี่ยวกับข้อผิดพลาดต่อไปเรื้อส์
ด้วย ActivePresentation
สำหรับ x = 1 ถึง .ssss.count.count
.Sslides (x) .SSlides ("PB") ลบ
SET S =. SET S = .Slides ( X) .shapes.addshape (MsoshapereClange, _
0, .Pagesetup.slideHight - 12, _
x * .pagesetup.slidewidth / .slides.count, 12)
s.fill.fill.fill.fill.fill.fill.fill.fill.fill.fill.fill = RGB (127, 0, 0)
s.name = "pb"
ถัดไป x:
จบด้วย
เมื่อวางรหัสของคุณควรมีลักษณะเช่นนี้ในบรรณาธิการ
บันทึก: ไม่มีการแบ่งบรรทัดตอนนี้ระหว่างบรรทัดแรกและบรรทัดสุดท้ายของรหัส
ตอนนี้คุณสามารถปิดหน้าต่าง VBA ได้แล้ว ย้อนกลับไปใน Microsoft PowerPoint คลิก "Macros" ในแท็บ "ดู" อีกครั้ง
ถัดไปเลือกชื่อมาโครของคุณ ("ProgressBar" ในตัวอย่างของเรา) เพื่อเลือกจากนั้นคลิก "Run"
ตอนนี้แถบความคืบหน้าจะปรากฏที่ด้านล่างของแต่ละสไลด์ของงานนำเสนอของคุณ
หากคุณลบสไลด์แถบความคืบหน้าจะปรับตัวเองโดยอัตโนมัติ หากคุณเพิ่มสไลด์ใหม่คุณจะต้องเรียกใช้แมโครอีกครั้ง (ดู & gt; macro & gt; run) มันเป็นความไม่สะดวกเล็กน้อยเมื่อเปรียบเทียบกับการปรับทุกอย่างด้วยตนเอง
