Microsoft PowerPoint là công cụ mạnh mẽ mà chúng ta đều thích dùng. Không có chương trình nào hoàn chỉnh bằng nó khi nói đến việc trình bày. Bây giờ, một số trong chúng ta muốn tạo thanh tiến trình cho bài thuyết trình. Câu hỏi là, bây giờ, có thể không?
Cách tạo và dùng Thanh tiến trình trong PowerPoint
Câu trả lời cho câu hỏi đó là có rõ ràng. Bất kỳ ai với thông tin đúng có thể dễ dàng tạo thanh tiến trình, và đoán xem? Chúng tôi sẽ chi tiết cách làm.
Bây giờ, có thể cài đặt thủ công thanh tiến trình bằng cách cài hình dạng liên quan dưới mỗi slide. Tuy nhiên, đó mang lại vấn đề thêm. Bạn thấy, người dùng phải đo chiều dài mọi hình dạng dựa trên số slide trong tài liệu bài thuyết trình.
Cũng vậy, bất cứ khi nào một slide bị xóa, bạn sẽ bị yêu cầu tạo lại thanh tiến trình cho tất cả slide khác. Chúng ta không thể chịu đựng làm những việc như vậy; do đó, chúng tôi quyết định đi đường Macro. Đây là cách!
- Mở bài thuyết trình PowerPoint ưa thích
- Chọn Macro và đặt tên
- Dán mã vào cửa sổ Microsoft Visual Basic for Applications (VBA)
- Đóng và chạy Macro
Hãy xem chi tiết hơn từ góc độ chi tiết.
1] Mở bài thuyết trình PowerPoint ưa thích
OK, vậy điều đầu tiên bạn phải làm ở đây là mở bài thuyết trình PowerPoint bạn muốn làm việc. Nếu không, bạn có thể tạo từ đầu và sau đó tiến lên.
2] Chọn Macro và đặt tên
Một khi bạn đã mở tài liệu bài thuyết trình, bạn phải tiến lên và nhấp vào Xem, và từ đó, chắc chắn chọn Macro nằm ở bên phải. Một cửa sổ nhỏ nên xuất hiện ngay lập tức sau khi bạn nhấp vào nút.
Bước tiếp theo, thì, là gõ Tên Macro. Chúng tôi chọn thêm SlideBar, nhưng bạn tự do thêm bất kỳ tên nào phù hợp nhất. Khi xong, nhấp nút tạo để hoàn thành phần này.
3] Dán mã vào cửa sổ Microsoft Visual Basic for Applications (VBA)
OK, vậy sau khi nhấp nút Tạo, một cửa sổ mới sẽ xuất hiện. Cửa sổ này gọi là Microsoft Visual Basic for Applications (VBA), và đó là nơi phép màu xảy ra.
Từ trong trình soạn thảo, bạn nên thấy sau đây:
Sub ProgressBar() End Sub
Nhấp giữa hai dòng mã, và chắc chắn sao chép và dán sau đây ngay lập tức:
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
4] Đóng và chạy Macro
Sau khi bạn hoàn thành nhiệm vụ trên, bạn phải đóng cửa sổ VBA ngay lập tức.
Khi đó xong, nhấp tab Xem từ trong PowerPoint, sau đó chọn Macro.
Chọn tên Macro, và hoàn tất bằng cách chọn Chạy, và đó là xong.
Đọc ngay: Cách tạo Biểu đồ phễu trong Excel, PowerPoint và Word.