• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

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

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • [Help] Về vấn đề hiện ảnh khi xuất sang word
• 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 

• Bài trước Bài tiếp