Không dùng phần mềm, chỉ bằng VBA chuyển file PDF thành ảnh

[thuthuy2000]

Các anh chị ơi.
Có cách nào chuyển PDF thành ảnh không?
Lý tưởng là mình ấn nút chọn file PDF, VBA chuyển thành ảnh và dán vào Excel.
Anh chị giúp em với.

 

[Deleted member 199]

Nếu như chỉ cần chuyển trang đầu của file pdf thành ảnh thì bạn tham khảo :

Sub THVBA()
    Dim vPath As String
    'vPath = ThisWorkbook.Path & "\Test.pdf"
    vPath = "D:\THVBA\ThuNghiem\ABC2.pdf"
    Dim obj As OLEObject
    Set obj = ActiveSheet.OLEObjects.Add(Filename:=vPath)

    obj.Top = ActiveCell.Top
    obj.Left = ActiveCell.Left
    obj.Width = 400

    obj.Copy
    ActiveSheet.PasteSpecial Format:="Hinh anh (JPEG)"
    obj.Delete
End Sub

 

[thuthuy2000]

Em cảm ơn, em đã thử và thành công. Em sẽ thử suy nghĩ cải tiến code trên xem sao ạ.