Xin hỏi về cách chuyển đổi màu font chữ trong PowerPoint

[Phanhanhdai]

Em chưa có nhiều kinh nghiệm sử dụng PowerPoint nên không biết nhiều, các anh chị cho em hỏi trong cách trình bày của PowerPoint bây giờ file của mình có rất nhiều Slide mà em muốn khi in chuyển hết màu chữ sang chữ đen thì phải làm sao (không lẽ lại phải làm thủ công từng dòng?), khi em muốn dãn dòng chữ ra thì phải làm sao ah vì mỗi dòng chữ nằm ở trong một khung. Rất mong được các anh chị chỉ bảo.

[TranThanhPhong]

Em chưa có nhiều kinh nghiệm sử dụng PowerPoint nên không biết nhiều, các anh chị cho em hỏi trong cách trình bày của PowerPoint bây giờ file của mình có rất nhiều Slide mà em muốn khi in chuyển hết màu chữ sang chữ đen thì phải làm sao (không lẽ lại phải làm thủ công từng dòng?), khi em muốn dãn dòng chữ ra thì phải làm sao ah vì mỗi dòng chữ nằm ở trong một khung. Rất mong được các anh chị chỉ bảo.

Bạn chép đoạn mã bên dưới

Sub ChangeFontColor()

Dim oSld As Slide
Dim oShp As Shape
Dim oShapes As Shapes

For Each oSld In ActivePresentation.Slides
    Set oShapes = oSld.Shapes
    For Each oShp In oShapes
        If oShp.HasTextFrame Then
            If oShp.TextFrame.HasText Then
                oShp.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
            End If
        End If
    Next oShp
Next oSld

End Sub 

Mở tập tin PowerPoint cần đổi màu các văn bản trên slide. Sau đó nhấn tổ hợp ALT+F11 để vào cửa sổ VBE

Chọn Insert | Module và dán đoạn mã vừa Copy vào

Vào Run chọn Run Sub (hoặc nhấn phím F5) để chạy thủ tục

Đóng cửa sổ VBE trở về màn hình PowerPoint xem kết quả

Thanh phong

[beray3088]

A. Thanh Phong ơi,

Anh vui lòng xem giúp beray slide1 ko change được color anh ạ!

Cám ơn anh!

[TranThanhPhong]

A. Thanh Phong ơi,

Anh vui lòng xem giúp beray slide1 ko change được color anh ạ!

Cám ơn anh!

Bạn chỉnh sửa lại thủ tục như sau để xét đến trường hợp Table:

Sub ChangeFontColor()

Dim osld As Slide
Dim oshp As Shape
Dim oShapes As Shapes
Dim i As Integer, j As Integer

For Each osld In ActivePresentation.Slides
    Set oShapes = osld.Shapes
    For Each oshp In oShapes
        If oshp.HasTextFrame And oshp.TextFrame.HasText Then
            oshp.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
        End If
        
        If oshp.HasTable Then
            For i = 1 To oshp.Table.Rows.Count
                For j = 1 To oshp.Table.Columns.Count
                    oshp.Table.Cell(i, j).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
                Next j
            Next i
        End If
    Next oshp
Next osld

End Sub 

Thanh Phong

[Phanhanhdai]

Em xin hỏi để giả sử tài liệu của em toàn là Font chữ Vn.time bây giờ em muốn chuyển toàn bộ file đó sang fonr Times New Roman thì làm thế nào để chuyển toán bộ được ạh (Vì phím Ctr+A nó chỉ chọn được trong 1 khung thôi).