Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการส่งออกภาพทั้งหมดในครั้งเดียวจาก Excel?

สมมติว่าคุณมีรูปภาพจำนวนมากในเวิร์กบุ๊กของคุณและต้องการบันทึกลงในโฟลเดอร์เฉพาะในแต่ละครั้ง โดยปกติแล้ว คุณสามารถคัดลอกและวางรูปภาพทีละภาพเพื่อบันทึกได้ แต่จะใช้เวลานานในการคัดลอกและวาง แบบนี้ซ้ำๆ ที่นี่ฉันจะแนะนำเคล็ดลับบางอย่างในการแก้ปัญหานี้


ส่งออกรูปภาพทั้งหมดในครั้งเดียวจาก Excel ด้วยฟังก์ชันบันทึกเป็น

ด้วย Excel ในตัว บันทึกเป็น ฟังก์ชั่น คุณสามารถบันทึกสมุดงานเป็น หน้าเว็บ เพื่อบันทึกรูปภาพทั้งหมด รวมทั้งแผนภูมิ รูปร่าง และวัตถุอื่นๆ ในโฟลเดอร์ กรุณาทำดังนี้

1. เปิดสมุดงานที่มีรูปภาพที่คุณต้องการบันทึก คลิก เนื้อไม่มีมัน > บันทึกเป็น > เรียกดู

2 ใน บันทึกเป็น คุณต้อง:

2.1) เลือกโฟลเดอร์เพื่อบันทึกภาพที่ส่งออก;
2.2) เลือก หน้าเว็บ จากรายการดรอปดาวน์บันทึกเป็นประเภท
2.3) คลิกปุ่ม ลด ปุ่ม

3. ในการโผล่ขึ้นมา Microsoft Excel ใหคลิกปุ the ม ใช่ ปุ่ม

4. เปิดโฟลเดอร์ที่บันทึกไฟล์ที่ส่งออกและคุณสามารถดูโฟลเดอร์และไฟล์รูปแบบ HTML ที่อยู่ภายใน รูปภาพทั้งหมดในสมุดงาน รวมถึงแผนภูมิ รูปร่าง หรือวัตถุ จะถูกบันทึกไว้ในโฟลเดอร์นี้

5. คุณสามารถเก็บรูปภาพที่คุณต้องการไว้ในโฟลเดอร์และลบรูปภาพอื่นที่คุณไม่ต้องการได้


ส่งออกรูปภาพทั้งหมดในครั้งเดียวจาก Excel ได้อย่างง่ายดายด้วยเครื่องมือที่น่าทึ่ง

วิธีการข้างต้นจะดึงออบเจ็กต์ทั้งหมดออกจากเวิร์กบุ๊ก บางทีคุณอาจไม่ต้องการบางส่วน ถ้าคุณมี Kutools สำหรับ Excel ติดตั้งใน Excel ซึ่งเป็นไฟล์ ส่งออกกราฟิก คุณสมบัติอาจช่วยให้คุณบันทึกเฉพาะรูปภาพที่คุณต้องการ

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1 คลิก Kutools พลัส > นำเข้าส่งออก > ส่งออกกราฟิก:

2 ใน ส่งออกกราฟิก โปรดกำหนดค่าดังต่อไปนี้:

2.1) เลือก ภาพ จาก ประเภท รายการแบบหล่นลง
ทิปส์: ตามค่าเริ่มต้น กราฟิกทั้งหมดรวมถึงแผนภูมิ รูปภาพ และรูปร่างในเวิร์กบุ๊กปัจจุบันจะแสดงรายการ
2.2) ใน บันทึกไดเรกทอรี คลิกแท็บ ปุ่มเพื่อเลือกโฟลเดอร์เพื่อบันทึกรูปภาพที่ส่งออกของคุณ
2.3) ใน รูปแบบการส่งออก รายการแบบหล่นลง เลือกประเภทของภาพที่คุณต้องการส่งออกเป็น;
2.4) คลิก ตกลง

3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งจำนวนภาพที่ส่งออกได้สำเร็จ ให้คลิกที่ OK ปุ่ม

ตอนนี้คุณสามารถไปที่โฟลเดอร์ปลายทางและตรวจสอบภาพที่ส่งออก

กรุณาคลิ้ก ส่งออกกราฟิก เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.


ส่งออกรูปภาพและเปลี่ยนชื่อด้วยค่าเซลล์ที่อยู่ติดกัน

ดังที่แสดงในภาพหน้าจอด้านล่าง มีสองคอลัมน์ คอลัมน์แรกมีรายชื่อผลไม้ และอีกคอลัมน์หนึ่งมีรูปภาพผลไม้ที่เกี่ยวข้อง หากต้องการส่งออกรูปภาพเหล่านี้และตั้งชื่อโดยอัตโนมัติด้วยชื่อผลไม้ที่เกี่ยวข้อง คุณสามารถลองใช้โค้ด VBA ในส่วนนี้

1. ในเวิร์กชีตที่คุณต้องการส่งออกรูปภาพ ให้กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอก VBA ต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: ส่งออกรูปภาพในคอลัมน์และตั้งชื่อโดยอัตโนมัติ

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

หมายเหตุ:

1) จำนวน 2 ในบรรทัด "ถ้า xImg.TopLeftCell.Column = 2 แล้ว” หมายถึงหมายเลขคอลัมน์ที่คุณต้องการส่งออกรูปภาพ
2) จำนวน -1 ในบรรทัด "xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value” ระบุว่าคุณจะตั้งชื่อรูปภาพด้วยค่าของเซลล์ด้านซ้ายที่อยู่ติดกัน

3 กด F5 คีย์เพื่อเรียกใช้รหัส ในหน้าต่างที่เปิดขึ้นมา ให้เลือกโฟลเดอร์ที่จะบันทึกรูปภาพ จากนั้นคลิก ตกลง

จากนั้นรูปภาพทั้งหมดในคอลัมน์ที่ระบุจะถูกส่งออกและตั้งชื่อโดยอัตโนมัติด้วยค่าเซลล์ที่อยู่ติดกันตามที่คุณระบุ


บทความที่เกี่ยวข้อง:

วิธีการส่งออกแผนภูมิไปยังกราฟิกใน Excel


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์จริงๆ .. :D ขอบคุณสำหรับวิธีแก้ปัญหาดังกล่าว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสมบัติบันทึกเป็น HTM นั้นยอดเยี่ยม คำถามหนึ่ง มันซ้ำกับไฟล์รูปภาพทั้งหมดของฉัน มีความคิดว่าเหตุใดจึงจะเกิดขึ้น?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณที่เป็นประโยชน์จริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากมันช่วยฉันได้มาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เยี่ยมมาก ถ้าฉันต้องการดึงสีพื้นหลังของเซลล์ (แทนที่จะเป็นรูปภาพ) และบันทึกเป็นรูปภาพที่มีชื่อเซลล์ที่อยู่ติดกัน การเปลี่ยนแปลงโค้ดอย่างง่าย ๆ จะทำได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทอม คุณหมายถึงการบันทึกสีพื้นหลังของเซลล์เป็นรูปภาพและตั้งชื่อเซลล์ด้วยค่าเซลล์ที่อยู่ติดกันใช่หรือไม่ ขออภัยที่ช่วยอะไรคุณไม่ได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัส Bonjour VBA m'enregistre des images blanches je ne comprends pas pourquoi quelqu'un วิธีแก้ปัญหา une ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี โซฟี
โค้ดในบทความนี้สามารถทำงานได้ดีใน Excel ของฉัน คุณช่วยอัปโหลดไฟล์ Excel ที่นี่ได้ไหม ถ้าคุณไม่รังเกียจ เพื่อให้เราสามารถช่วยตรวจสอบปัญหาให้คุณได้
หรือคุณสามารถอธิบายปัญหาของคุณให้ชัดเจนและมีรายละเอียดมากขึ้น
ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Τέλειο εργαλείο! Όμως το μέγεθος-ανάλυση της εικόνας ไมโครซอฟต์ . Υπάρχει τρόπος να διατηρηθεί η αρχική ανάλυση ?
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ