![]() ![]() Properties("6149").Value = 0 'x point where to start scan Properties("6148").Value = 100 'dots per inch/vertical Properties("6147").Value = 100 'dots per inch/horizontal ![]() Properties("6146").Value = 1 '4 is Black-white,gray is 2, color 1 (Color Intent) Set wiaScanner = wiaDialog.ShowSelectDevice If it's not listed in references, you'll need to click Browse and find it at C:\WINDOWS\System32\wiaaut.dll. To use this macro, paste the code into a new module then open Tools > References to set a reference to the Microsoft Windows Image Acquisition Library v2.0 object library. ![]() If you want to attach the image but not embed it, change the code to this: This code in the macro embeds the attachment in the message body.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |