ไปยังเนื้อหาหลัก

วิธีแทรกรูปภาพหรือรูปภาพจากสแกนเนอร์หรือกล้องใน Word

คุณอาจประสบปัญหาในการแทรกรูปภาพจากสแกนเนอร์หรือกล้องใน Word 2007 และเวอร์ชันที่ใหม่กว่าเนื่องจาก Microsoft ได้ลบตัวเลือกในการแทรกรูปภาพจากสแกนเนอร์หรือกล้องที่มีอยู่ใน Word 2003 บทช่วยสอนนี้จะแสดงวิธีการแทรกรูปภาพหลายวิธี จากเครื่องสแกนหรือกล้องใน Word 2007 และเวอร์ชันที่ใหม่กว่า

แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word โดยใช้ทางลัด

แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word โดยสร้าง Macro

แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word ด้วย Kutools for Word


แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word โดยใช้ทางลัด

หากคุณใช้ Word 2007 หรือ Word 2010 คุณสามารถเข้าถึงไฟล์ แทรกรูปภาพจากเครื่องสแกนหรือกล้อง ยูทิลิตี้ดังต่อไปนี้:

1. กรุณากดก่อน อื่น ๆ ใน Word 2007 หรือ Word 2010 จากนั้นพิมพ์ลำดับปุ่มเมนูต่อไป ips
บนแป้นพิมพ์ของคุณและจะแสดงไฟล์ แทรกรูปภาพจากเครื่องสแกนหรือกล้อง โต้ตอบ

หลังจากพิมพ์ อื่น ๆ แรกและ i คุณจะเห็นไฟล์ เคล็ดลับสุดยอด ดังต่อไปนี้:

หลังจากพิมพ์ p และ s มันจะปรากฏขึ้น แทรกรูปภาพจากเครื่องสแกนหรือกล้อง โต้ตอบ

จากนั้นคุณสามารถเลือกภาพจากอุปกรณ์ผ่านไฟล์ แทรกรูปภาพจากเครื่องสแกนหรือกล้อง โต้ตอบ


แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word โดยสร้าง Macro

1. ประการแรกคุณควรสร้างไฟล์ แมโคร สำหรับเอกสาร Word ของคุณ กรุณาคลิก รายละเอียด > แมโคร > ดูมาโคร. ดูภาพหน้าจอ:

doc แทรกภาพจากเครื่องสแกน 1

2. หลังจากคลิก ดูมาโครจะมี a แมโคร กล่องโต้ตอบปรากฏขึ้น ภายใต้ ชื่อมาโครพิมพ์“สแกน”; เลือก ปกติ. dotm (global แม่แบบ) จาก มาโครใน รายการแบบเลื่อนลง จากนั้นคลิก สร้างบัญชีตัวแทน. ดูภาพหน้าจอ:

doc แทรกภาพจากเครื่องสแกน 2

3. และตอนนี้ก หน้าต่าง Microsoft Visual Basic for Applications ปรากฏขึ้นโปรดคัดลอกและวางรหัสต่อไปนี้ลงในกล่องโต้ตอบที่อยู่ระหว่าง การสแกนย่อย และ จบย่อย เส้น

รหัสในปี 2013 และเวอร์ชันที่ใหม่กว่า:

On Error Resume Next
     Dim objCommonDialog As WIA.CommonDialog
     Dim objImage As WIA.ImageFile
     Dim strDateiname
     Set objCommonDialog = New WIA.CommonDialog
     Set objImage = objCommonDialog.ShowAcquireImage
     strDateiname = Environ("temp") & "\Scan.jpg"
     If Not objImage Is Nothing Then
       Kill strDateiname
       objImage.SaveFile strDateiname
       Selection.InlineShapes.AddPicture strDateiname
       Set objImage = Nothing
     End If
     Set objCommonDialog = Nothing

doc แทรกภาพจากเครื่องสแกน 3

รหัสในปี 2007 และ 2010:

On Error Resume Next
WordBasic.InsertImagerScan

doc แทรกภาพจากเครื่องสแกน 4

4. ตอนนี้คุณควรคลิก เครื่องมือ > อ้างอิง ไป อ้างอิง - ปกติ กล่องโต้ตอบจากนั้นเลือกและตรวจสอบ ไลบรารี Microsoft Windows Image Acquisition ตัวเลือกดูภาพหน้าจอ:

doc แทรกภาพจากเครื่องสแกน 5

5. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบและตอนนี้โปรดกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้

หมายเหตุ: ตรวจสอบให้แน่ใจว่าสแกนเนอร์เปิดอยู่และเชื่อมต่อกับคอมพิวเตอร์


แทรกรูปภาพจากเครื่องสแกนหรือกล้องใน Word ด้วย Kutools for Word

กับ Kutools สำหรับ Word's จากเครื่องสแกนหรือกล้อง ยูทิลิตี้คุณสามารถกำจัดการทำงานที่น่ารำคาญเหล่านั้นและแทรกรูปภาพจากสแกนเนอร์หรือกล้องใน Word ได้อย่างง่ายดาย

Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน. 

1. วางเคอร์เซอร์ในตำแหน่งที่คุณต้องการแทรกรูปภาพ

2. จากนั้นโปรดใช้ยูทิลิตี้นี้โดยคลิก Kutools > More > จากเครื่องสแกนหรือกล้อง. ดูภาพหน้าจอ:

3. หลังจากคลิก จากเครื่องสแกนหรือกล้องมันจะแสดงไฟล์ แทรกรูปภาพจากเครื่องสแกนหรือกล้อง โต้ตอบ

A: ภายใต้ อุปกรณ์เลือกอุปกรณ์ที่เกี่ยวข้องที่คุณต้องการนำเข้ารูปภาพ

B: เลือกใดก็ได้ ความละเอียด ที่คุณต้องการ

C: คลิก สิ่งที่ใส่เข้าไป เพื่อเริ่มแทรก

หมายเหตุ: ยูทิลิตี้นี้ไม่สามารถใช้กับ Word 2013 และเวอร์ชันที่ใหม่กว่าได้

คลิกเพื่อดาวน์โหลด Kutools for Word และทดลองใช้ฟรีทันที!

สำหรับข้อมูลเพิ่มเติมของ Kutools สำหรับ Word's จากเครื่องสแกนหรือกล้อง ยูทิลิตี้กรุณาเยี่ยมชม: จากเครื่องสแกนหรือกล้อง.


สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!

🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา  /  เขียนข้อความใหม่  /  สรุปเอกสาร  /  สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word

📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า  /  ผสานเอกสาร  /  ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...)  /  แบทช์แปลงเป็น PDF  /  ส่งออกเพจเป็นรูปภาพ  /  พิมพ์หลายไฟล์พร้อมกัน...

การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์  /  ปรับขนาดรูปภาพทั้งหมด  /  ย้ายแถวและคอลัมน์ของตาราง  /  แปลงตารางเป็นข้อความ...

🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ  /  แบ่งส่วน  /  ส่วนหัวทั้งหมด  /  กล่องข้อความ  /  เชื่อมโยงหลายมิติ  / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...

ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน  /  กล่องกาเครื่องหมาย  /  ปุ่มวิทยุ  /  คิวอาร์โค้ด  /  บาร์โค้ด  /  ตารางเส้นทแยงมุม  /  คำอธิบายสมการ  /  คำบรรยายภาพ  /  คำบรรยายตาราง  /  รูปภาพหลายภาพ  / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...

🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง  /  ตาราง  /  รูปร่าง  /  หัวเรื่องย่อหน้า  / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...

การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ  /  แทรกข้อความซ้ำอัตโนมัติ  /  สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น  /  11 เครื่องมือการแปลง...

???? ต้องการลองใช้คุณสมบัติเหล่านี้หรือไม่? Kutools for Word มีไฟล์ ทดลองใช้ฟรี 60 วันโดยไม่มีข้อจำกัด! 🚀
 
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This should work in most versions 64 or 32 bit Add reference to Microsoft Windows Image Acquisition x2.0 Sub Scan() Dim objCommonDialog As WIA.CommonDialog Dim objImage As WIA.ImageFile Dim strScanName As String ' instantiate Scan WIA objects Set objCommonDialog = New WIA.CommonDialog Set objImage = objCommonDialog.ShowAcquireImage strScanName = Environ$("TEMP") & "\Scan.jpg" ' set temporary file If Not objImage Is Nothing Then If Dir(strScanName) "" Then Kill strScanName objImage.SaveFile strScanName 'save into temp file DoEvents 'Word Selection.InlineShapes.AddPicture strScanName ' insert in doc End If End Sub
This comment was minimized by the moderator on the site
I have followed ALL the instructions for loading a picture from my scanner and all that happens is a empty box outline appears on my Word 10 page?? Your help is sort. David 76 yrs young
This comment was minimized by the moderator on the site
Wow! supereasy. Thank you!
This comment was minimized by the moderator on the site
Thanks a lot for this very helpful article! The keyboard shortcut and the macro both work like a charm!
This comment was minimized by the moderator on the site
such an amazing and helpful.
This comment was minimized by the moderator on the site
So I created a Macro using the code you supplied, thank you, i was wondering if there was a way to go further and include code for the selection that you make once that Insert Image window pops up. Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations