Nội Dung Bài Viết

PowerPoint là công cụ thuyết trình mạnh mẽ, nhưng việc định dạng văn bản, đặc biệt là khi làm việc với nhiều slide, có thể tốn thời gian. Bài viết này hướng dẫn bạn cách sử dụng VBA để thay đổi font chữ hàng loạt trong PowerPoint, giúp tiết kiệm thời gian và đảm bảo tính đồng nhất cho bài thuyết trình. Kỹ thuật này cũng có thể áp dụng để thay đổi màu sắc, kích cỡ, màu nền…

Từ khóa: thay đổi font chữ powerpoint, vba powerpoint, định dạng powerpoint, chỉnh sửa powerpoint hàng loạt, thủ thuật powerpoint, macro powerpoint

Định Dạng Văn Bản Hàng Loạt trong PowerPoint bằng VBA

Khi làm việc với slide PowerPoint, việc các ô chữ cùng chức năng nhưng có định dạng khác nhau (font chữ, màu sắc, kích thước) là điều thường gặp. Nguyên nhân có thể do sao chép từ nguồn khác hoặc nhiều người cùng chỉnh sửa một file. VBA cung cấp giải pháp hiệu quả để xử lý vấn đề này.

Ví dụ slide PowerPoint cần chỉnh sửa font chữ

Xác Định Đối Tượng Cần Thay Đổi

Trước khi bắt đầu viết code VBA, cần xác định đối tượng cần thay đổi font chữ.

Chọn tiêu đề cần thay đổi.
Vào tab Home, chọn Arrange, sau đó chọn Selection Pane….

Xem thêm: Phối Màu PowerPoint: Bí Quyết Thiết Kế Slide Chuyên Nghiệp

Cách mở Selection Pane trong PowerPoint

Ảnh gif minh họa thao tác mở Selection Pane

Trong bảng Selection Pane, tìm tên của hình khối chứa tiêu đề (ví dụ: “Title 1”). Đảm bảo tất cả các tiêu đề cần thay đổi font đều có cùng tên. Nếu cần, bạn có thể đổi tên bằng cách nhấp đúp vào tên hiện tại và nhập tên mới.

Xác định tên đối tượng trong Selection Pane

Viết Code VBA

Mở cửa sổ Visual Basic Editor (VBE) bằng cách nhấn Alt + F11.
Chọn Insert -> Module.
Sao chép và dán đoạn code sau vào module:

Sub ThayDoiFontChu()
Dim sld As Slide
For Each sld In Application.ActivePresentation.Slides
sld.Shapes("Title 1").TextFrame.TextRange.Font.Name = "Times New Roman"
Next sld
End Sub

Nhấn F5 (hoặc Run Sub/Userform) để chạy code.

Mở cửa sổ Visual Basic Editor và chèn Module

Giải Thích Code VBA

Code VBA hoạt động theo nguyên tắc truy cập các đối tượng trong PowerPoint theo thứ tự: Ứng dụng -> Bản trình chiếu -> Slide -> Khối, hình vẽ -> Khung chữ -> Vùng chữ -> Font.

Minh họa cấu trúc đối tượng trong PowerPoint

Dim sld As Slide: Khai báo biến sld đại diện cho một slide.
For Each sld In Application.ActivePresentation.Slides: Vòng lặp duyệt qua từng slide trong bài thuyết trình đang mở.
sld.Shapes("Title 1"): Truy cập vào hình khối có tên “Title 1” trong slide hiện tại.
.TextFrame.TextRange.Font.Name = "Times New Roman": Thay đổi font chữ của văn bản trong hình khối thành “Times New Roman”.

Thay Đổi Màu Chữ

Để thay đổi màu chữ, bạn có thể sử dụng các màu được định nghĩa sẵn hoặc mã màu RGB.

Sử dụng màu định nghĩa sẵn: sld.Shapes("Title 1").TextFrame.TextRange.Font.Color = vbBlue (màu xanh dương).

Xem thêm: PowerPoint Designer: Cập nhật tính năng hỗ trợ nhiều hình ảnh và hơn thế nữa

Danh sách một số màu định nghĩa sẵn trong VBA

Sử dụng mã màu RGB: sld.Shapes("Title 1").TextFrame.TextRange.Font.Color = RGB(255, 255, 0) (màu vàng).

Ví dụ thay đổi màu chữ bằng mã RGB

Kết Luận

VBA cung cấp một công cụ mạnh mẽ để tự động hóa việc định dạng văn bản trong PowerPoint. Bằng cách hiểu rõ cấu trúc đối tượng và sử dụng code VBA, bạn có thể tiết kiệm thời gian và công sức, đồng thời tạo ra các bài thuyết trình chuyên nghiệp và đồng nhất.

Đánh Giá Bài Viết