Xin giúp đỡ đổi màu chữ trong mathtype powerpoint sang màu đen (1 người xem)

[LINHCM]

Em xin chào các anh chị quản trị Web: www.giaiphapexcel.com. Em xin chào các anh chị cộng đồng excel.
Em gặp vấn đề về việc đổi màu hàng loạt chữ trong powerpiont sang màu đen. Xin nhờ quý anh chị giúp em đoạn code VBA.
Vấn đề của em là các chữ được viết trong phần mềm MATHTYPE chạy trong powerpoint.
Nếu mở từng dòng để chỉnh lai màu thì em mất quá lâu luôn ạ.
Em xin nhờ quý anh chị giúp đỡ, em xin cảm ơn.

 

[yaaasoo01]

Mình mở file của bạn nó báo object không hỗ trợ, bạn thử code bên dưới xem sao nhé.

Sub ChangeTextColorToBlack()
    Dim slide As slide
    Dim shape As shape
    
    For Each slide In ActivePresentation.Slides

        For Each shape In slide.Shapes
            Debug.Print shape.Type

            If shape.HasTextFrame Then
        
                If shape.TextFrame.HasText Then
                    shape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
                End If
            End If
        Next shape
    Next slide
End Sub

 

[LINHCM]

Mình mở file của bạn nó báo object không hỗ trợ, bạn thử code bên dưới xem sao nhé.
View attachment 307453

Sub ChangeTextColorToBlack()
    Dim slide As slide
    Dim shape As shape
   
    For Each slide In ActivePresentation.Slides

        For Each shape In slide.Shapes
            Debug.Print shape.Type

            If shape.HasTextFrame Then
       
                If shape.TextFrame.HasText Then
                    shape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
                End If
            End If
        Next shape
    Next slide
End Sub

Cảm ơn bạn chia sẽ đoạn code. Nhưng code này nó chỉ đổi màu trong các ô text thông thường trong powerpoint.
Đoạn văn bản của mình nó được viết trong phần mềm mathype (phần mềm hổ trợ gõ công cụ toán học) tích hợp vào powerpoint. Nên code của bạn chưa đổi màu được.

 

[yaaasoo01]

Cảm ơn bạn chia sẽ đoạn code. Nhưng code này nó chỉ đổi màu trong các ô text thông thường trong powerpoint.
Đoạn văn bản của mình nó được viết trong phần mềm mathype (phần mềm hổ trợ gõ công cụ toán học) tích hợp vào powerpoint. Nên code của bạn chưa đổi màu được.

Vậy bạn thử up 1 file example chứa nội dung đó lên! Hay nó là 2 object trong file đính kèm đó hả?

 

[LINHCM]

Vậy bạn thử up 1 file example chứa nội dung đó lên! Hay nó là 2 object trong file đính kèm đó hả?

Đúng rồi nè, nó là 2 cái Oject trong trong file đính kèm. Nếu máy bạn có cài mathype thì mới mở lên chỉnh sửa chữ trong đó được. Còn không cài mathype thì nó giống như ảnh chụp lại 2 chữ đó, không mở lên chỉnh sửa được.