• Trang chủ click to expand contents 

  • Về vấn đề hiện ảnh khi xuất sang word

  • Về vấn đề hiện ảnh khi xuất sang word

    nam8384 > 18-01-17, 05:31 PM

    Đầu tiên, em xin được chúc các thành viên trong diễn đàn một năm mới an khang, hạnh phúc. Em có một vấn đề xin được chỉ giáo. Chả là khi em xuất danh sách tên: stt, tên, ảnh ra file pdf thì ảnh hiện ra rất ok, nhưng khi xuất ra file word thì không có ảnh. Liệu có cách nào để ảnh hiện ra trong cột ảnh có file word không các bác. Xin đa tạ

  • RE: Về vấn đề hiện ảnh khi xuất sang word

    maidinhdan > 18-01-17, 06:42 PM

    (18-01-17, 05:31 PM)nam8384 Đã viết: Đầu tiên, em xin được chúc các thành viên trong diễn đàn một năm mới an khang, hạnh phúc. Em có một vấn đề xin được chỉ giáo. Chả là khi em xuất danh sách tên: stt, tên, ảnh ra file pdf thì ảnh hiện ra rất ok, nhưng khi xuất ra file word thì không có ảnh. Liệu có cách nào để ảnh hiện ra trong cột ảnh có file word không các bác. Xin đa tạ

    Có rất nhiều cách. Vì không biết Code xuất ra word của bạn như thế nào nên chỉ đưa ra 1 gợi ý cho bạn xem.
    Nhưng chung quy ta cần nghiên cứu liên quan đến Phương thức InlineShapes.AddPicture


    * Nếu đang ở Word có thề dùng hàm này để chèn
    Mã PHP:
    Dim Pic As Word.InlineShape
    Set Pic     = Selection.InlineShapes.AddPicture(FileName:="Link file Ảnh",LinkToFile:=False, SaveWithDocument:=True) 


    * Nếu đang ở Access thì :
    Mã PHP:
        Dim WordApp1 As Word.Application
        Dim WordDoc1     As Word.Document
        Set WordApp1     = CreateObject("Word.Application")
         
        WordApp1    .Visible = True
        Set WordDoc1     = WordApp1.Documents.Add
         
        With WordDoc1
            Dim myTable     As Table
            Set MyRange     = WordDoc1.Range(Start:=0, End:=0)
            Set myTable = .Tables.Add(Range:=MyRange, NumRows:=1, NumColumns:=1)
            .InlineShapes.AddPicture "Link file Ảnh"
        End With
        Set WordApp1     = Nothing
        Set WordDoc1     = Nothing