Create progress bar on PowerPoint by Macro.

พอดีว่า ต้องทำ Presentation เกี่ยวกับเรื่องที่ผมฝึกงาน ทำไปทำมา Slide ชักเยอะ ก็เลยเกรงว่าคนดูจะเบื่อ ทนฟัง..จะไม่รู้ว่าจะจบเมื่อไหร่ ผมก็เลยทำ Progress Bar ให้แต่ละ Slide ไปเลยว่า Slide ที่ดูอยู่ตอนนี้ มันอยู่ประมาณไหนของ Slide ของ Slide ทั้งหมด

และแน่นอนครับ ไอ้ครั้นจะมานั่งแบ่ง Scale แล้วก็วางรูป Bar ทีละอันก็ดูจะปัญญาอ่อนไปนิด ผมก็เลยลองหาๆ Macro มาช่วยทำดู..ก็เจอครับ..แต่ก็ปรับปรุงนิดหน่อย

[ad#ad-post-1]

Sub AddProgressBar()
On Error Resume Next
With ActivePresentation
For X = 1 To .Slides.Count
    .Slides(X + 1).Shapes("PB").Delete
    Set s = .Slides(X + 1).Shapes.AddShape(msoShapeRectangle, _
    0, 5, _
    (X + 1) * .PageSetup.SlideWidth / .Slides.Count, 5)
    s.Fill.ForeColor.RGB = RGB(255, 153, 0)
    s.Fill.Transparency = 0.7
    s.Name = "PB"
Next X:
End With
End Sub

ผลลัพธ์ที่ได้ก็อย่างรูปด้านล่างครับ จะเห็นว่ามี Bar สีส้มด้านบนซ้าย บางๆ เป็นตัวบอก Progress ครับ

[ad#post-image]