Trang 1/2 1 2 cuốicuối
Hiển thị kết quả tìm kiếm từ 1 đến 10 trên tổng số: 11
  1. #1
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Quận Long Biên - Hà nội
    Bài gởi
    729
    Cảm ơn
    1,602
    Được cảm ơn 1,799 lần trong 252 bài viết

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

    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.

  2. #2
    Tham gia ngày
    03 2007
    Nơi Cư Ngụ
    TP. HCM
    Bài gởi
    2,025
    Cảm ơn
    2,620
    Được cảm ơn 17,545 lần trong 1,757 bài viết

    Smile

    Trích Nguyên văn bởi Phanhanhdai View Post
    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

    PHP Code:
    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(000)
                
    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

  3. Có 3 thành viên cảm ơn TranThanhPhong về bài viết này:


  4. #3
    Tham gia ngày
    10 2009
    Bài gởi
    24
    Cảm ơn
    2
    Được cảm ơn 2 lần trong 2 bài viết
    A. Thanh Phong ơi,

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

    Cám ơn anh!
    Tập tin đính kèm Tập tin đính kèm

  5. #4
    Tham gia ngày
    03 2007
    Nơi Cư Ngụ
    TP. HCM
    Bài gởi
    2,025
    Cảm ơn
    2,620
    Được cảm ơn 17,545 lần trong 1,757 bài viết
    Trích Nguyên văn bởi beray3088 View Post
    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:

    PHP Code:
    Sub ChangeFontColor()

    Dim osld As Slide
    Dim oshp 
    As Shape
    Dim oShapes 
    As Shapes
    Dim i 
    As IntegerAs 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(000)
            
    End If
            
            If 
    oshp.HasTable Then
                
    For 1 To oshp.Table.Rows.Count
                    
    For 1 To oshp.Table.Columns.Count
                        oshp
    .Table.Cell(ij).Shape.TextFrame.TextRange.Font.Color.RGB RGB(000)
                    
    Next j
                Next i
            End 
    If
        
    Next oshp
    Next osld

    End Sub 
    Thanh Phong
    Tập tin đính kèm Tập tin đính kèm

  6. #5
    Tham gia ngày
    03 2008
    Nơi Cư Ngụ
    Quận Long Biên - Hà nội
    Bài gởi
    729
    Cảm ơn
    1,602
    Được cảm ơn 1,799 lần trong 252 bài viết

    Làm thế nào để chuyển 1 lần fonr cho toàn bộ file PowerPoint

    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).

  7. #6
    Tham gia ngày
    04 2009
    Bài gởi
    32
    Cảm ơn
    9
    Được cảm ơn 0 lần trong 0 bài viết
    Anh TranThanhPhong cho em hỏi, nếu em muốn chuyển những chữ màu vàng trong các slide sang màu đỏ, còn các chữ còn lại chuyển sang màu đen thì mã của mình sẽ như thế nào?
    Thanks anh

  8. #7
    Trích Nguyên văn bởi Phanhanhdai View Post
    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).
    Bạn phải sử dụng add in convert từ Vni sang font Times... mới được. Bạn tải addin đó về và cài đặt vào ppt là xong, chuyển cực nhanh, chỉ cần tick vào ô select all slide là OK. Chúc bạn thành công

  9. Thành viên sau cảm ơn nguyendongquan về bài viết này:


  10. #8
    Tham gia ngày
    04 2009
    Bài gởi
    32
    Cảm ơn
    9
    Được cảm ơn 0 lần trong 0 bài viết
    Các anh chị cho em hỏi với đoạn code trên thay đổi thế nào để những slide nào có màu chữ mà mình muốn đổi sang một màu chữ khác.
    Ví dụ trong các slide có 2 màu chữ là đen RGB(0,0,0) và vàng RGB(255,255,0); muốn giữ lại màu đen và thay đổi những slide nào có chữ vàng sang màu đỏ RGB(255,0,0)

  11. #9
    Tham gia ngày
    03 2007
    Nơi Cư Ngụ
    TP. HCM
    Bài gởi
    2,025
    Cảm ơn
    2,620
    Được cảm ơn 17,545 lần trong 1,757 bài viết
    Trích Nguyên văn bởi duocsituan View Post
    Các anh chị cho em hỏi với đoạn code trên thay đổi thế nào để những slide nào có màu chữ mà mình muốn đổi sang một màu chữ khác.
    Ví dụ trong các slide có 2 màu chữ là đen RGB(0,0,0) và vàng RGB(255,255,0); muốn giữ lại màu đen và thay đổi những slide nào có chữ vàng sang màu đỏ RGB(255,0,0)
    Bạn xem file đính kèm nhé. Trong file có 2 thủ tục hơi khác nhau một chút bạn chạy thử sẽ thấy.

    TPhong
    Tập tin đính kèm Tập tin đính kèm

  12. Thành viên sau cảm ơn TranThanhPhong về bài viết này:


  13. #10
    Tham gia ngày
    04 2009
    Bài gởi
    32
    Cảm ơn
    9
    Được cảm ơn 0 lần trong 0 bài viết
    Em hiểu rồi :) Thanks anh nhiều

Trang 1/2 1 2 cuốicuối

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Chuyển Font Trong Excel
    Viết bởi trinhtran26 trong chuyên mục Hàm và công thức Excel
    Trả lời: 8
    Bài mới gởi: 14-09-10, 02:16 AM
  2. Chuyển font Courier New sang font Times New Roman
    Viết bởi latks trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 5
    Bài mới gởi: 02-08-10, 10:17 AM
  3. PowerPoint không thể thay được font chữ
    Viết bởi firefoxvn trong chuyên mục Phần mềm xử lý văn bản và chế bản điện tử
    Trả lời: 0
    Bài mới gởi: 27-03-09, 09:22 AM
  4. Bị Lỗi trong quá trình Chuyển đổi Font chữ
    Viết bởi jangcoi trong chuyên mục Những vấn đề chung
    Trả lời: 3
    Bài mới gởi: 28-10-08, 12:44 PM
  5. Sửa lỗi font trong hàm chuyển số ra chữ
    Viết bởi ltthanhsg2001 trong chuyên mục Excel và Kế Toán
    Trả lời: 1
    Bài mới gởi: 03-12-07, 01:33 PM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]