Ajay,
If you have Acrobat 7.0/8.0/9.0 installed on your computer, then a code like
the following will do.
You need to create a reference to Acrobat.TLB.
''''''
Dim APDF As New AcroPDDoc
Dim APG As AcroPDPage
Dim APOINT As AcroPoint
Dim ARect As New AcroRect
If APDF.Open("C:\Aus_US_Dictionary.pdf") = True Then
Set APG = APDF.AcquirePage(1) ' page numbering starts at 0
Set APOINT = APG.GetSize()
' set the selected text area to the size of the page
ARect.Top = 0
ARect.Left = 0
ARect.Right = APOINT.x
ARect.bottom = APOINT.y
APG.CopyToClipboard ARect, 0, 0, 100
ActiveSheet.Paste
APDF.Close
Set APDF = Nothing
Set ARect = Nothing
End If
'''''
Google for acrobat.tlb to know more..
Regards
Ajit
From: excel-macros@googlegroups.com [mailto:excel-mac...@googlegroups.com]
On Behalf Of Ajay Varshney
Sent: Friday, April 17, 2009 6:40 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Copy from pdf
Hi,
How can we copy (as image) specific portion from a PDF file and then paste
that copied part in the excel file at a specific location? Before pasting
new image we need to delete the old image. Please suggest.
We need to do it with Macros.
Regards,
Ajay Varshney
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
