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

วิธีแทรกรูปภาพหลายรูปและปรับขนาดพร้อมกันใน Excel

เป็นเรื่องง่ายที่เราจะแทรกรูปภาพหนึ่งรูปลงใน Excel แต่ถ้าคุณต้องการแทรกรูปภาพหลาย ๆ ภาพพร้อมกันเพื่อให้ประหยัดเวลาได้มากคุณจะทำอย่างไร?


แทรกรูปภาพหลายภาพและปรับขนาดเป็นกลุ่มโดยคุณสมบัติแทรกรูปภาพ

เราสามารถแทรกรูปภาพจำนวนมากโดยใช้คุณลักษณะ (แทรก) รูปภาพใน Excel จากนั้นปรับขนาดพร้อมกัน โปรดดำเนินการดังนี้:

1. ในแผ่นงานคลิก สิ่งที่ใส่เข้าไป > ภาพ.

2. ในกล่องโต้ตอบแทรกรูปภาพโปรดเปิดโฟลเดอร์ที่มีรูปภาพที่คุณจะแทรกเลือกรูปภาพหลาย ๆ ภาพตามที่คุณต้องการแล้วคลิกไฟล์ สิ่งที่ใส่เข้าไป ปุ่ม. ดูภาพหน้าจอ:
หมายเหตุ: โฮลดิ้ง Ctrl ที่สำคัญคุณสามารถเลือกภาพที่ไม่อยู่ติดกันได้หลายภาพโดยคลิกทีละภาพ ถือ เปลี่ยน คุณสามารถเลือกภาพที่อยู่ติดกันหลาย ๆ ภาพโดยคลิกที่ภาพแรกและภาพสุดท้าย

ตอนนี้รูปภาพถูกแทรกเป็นกลุ่มและซ้อนกันในแผ่นงาน

3. เลือกรูปภาพเหล่านี้ไว้และปรับขนาดเป็นกลุ่มโดยป้อนหมายเลขใหม่ลงในทั้งคู่ ความกว้าง และ ความสูง กล่องในไฟล์ ขนาด กลุ่มใน รูปแบบ แท็บ ดูภาพหน้าจอ:

ตอนนี้รูปภาพที่แทรกทั้งหมดจะเปลี่ยนเป็นขนาดเดียวกันพร้อมกัน

4. ในปัจจุบันคุณจำเป็นต้องย้ายแต่ละภาพด้วยตนเองแยกกันไปยังที่ที่พอดี

หมายเหตุ: หากมีภาพซ้อนกันหลายสิบภาพจะค่อนข้างใช้เวลานานในการย้ายด้วยตนเองให้พอดีกับสถานที่

Batch แทรกรูปภาพหลายภาพที่ตรงกับเนื้อหาของเซลล์ใน Excel

พื้นที่ จับคู่รูปภาพนำเข้า ฟีเจอร์ของ Kutools for Excel เป็นเครื่องมือที่ยอดเยี่ยมที่สามารถนำเข้าแบทช์และแทรกรูปภาพหลาย ๆ ภาพตามเนื้อหาของเซลล์และปรับขนาดรูปภาพที่นำเข้าให้เหมือนกับขนาดเซลล์หรือตามขนาดที่ระบุได้อย่างง่ายดาย คุณสมบัติเต็มทดลองใช้ฟรี 30 วัน!
โฆษณาจับคู่ภาพนำเข้า 01

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

แทรกรูปภาพหลายรูปและปรับขนาดเป็นกลุ่มด้วย OneNote

เพื่อหลีกเลี่ยงการย้ายภาพซ้อนกันทีละภาพวิธีนี้แนะนำเคล็ดลับอื่นในการแทรกรูปภาพหลายภาพด้วยความช่วยเหลือของ OneNote โปรดดำเนินการดังนี้:

1. เปิด OneNote และสร้างเพจใหม่ จากนั้นคลิก สิ่งที่ใส่เข้าไป > ภาพ.

2. ในกล่องโต้ตอบแทรกรูปภาพโปรดเปิดโฟลเดอร์ที่มีรูปภาพที่คุณจะแทรกเลือกรูปภาพหลาย ๆ ภาพตามที่คุณต้องการแล้วคลิกไฟล์ สิ่งที่ใส่เข้าไป ปุ่ม. ดูภาพหน้าจอ:
หมายเหตุ: โฮลดิ้ง Ctrl ที่สำคัญคุณสามารถเลือกภาพที่ไม่อยู่ติดกันได้หลายภาพโดยคลิกทีละภาพ ถือ เปลี่ยน คุณสามารถเลือกภาพที่อยู่ติดกันหลาย ๆ ภาพโดยคลิกที่ภาพแรกและภาพสุดท้าย

doc แทรกรูปภาพหลายภาพ OneNote 032

3. กด Ctrl + A เพื่อเลือกรูปภาพที่แทรกทั้งหมดใน OneNote จากนั้นกด Ctrl + C คีย์เพื่อคัดลอก

4. ไปที่แผ่นงานใน Excel แล้วกด Ctrl + V เพื่อวางรูปภาพในแผ่นงาน ตอนนี้ภาพทั้งหมดถูกวางในแนวตั้งตามที่แสดงภาพหน้าจอด้านซ้าย

5. เลือกภาพใดภาพหนึ่งแล้วกด Ctrl + A ปุ่มเพื่อเลือกทั้งหมด จากนั้นปรับขนาดรูปภาพจำนวนมากโดยป้อนตัวเลขใหม่ลงในทั้งคู่ ความกว้าง และ ความสูง กล่องในไฟล์ ขนาด กลุ่มใน รูปแบบ แท็บ ดูภาพหน้าจอ:

ตอนนี้รูปภาพที่ระบุทั้งหมดจะถูกแทรกใน Excel และปรับขนาดเป็นขนาดเดียวกันจำนวนมาก


แทรกรูปภาพหลายรูปลงใน Excel ด้วยรหัส VBA

ด้วยรหัส VBA ต่อไปนี้คุณสามารถแทรกรูปภาพหลายภาพลงในเซลล์ไฟล์ Excel ทีละเซลล์

1. เลือกเซลล์แรกของช่วงปลายทางที่คุณต้องการแทรกรูปภาพ

2. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. จากนั้นกดปุ่ม F5 กุญแจสำคัญในการเรียกใช้รหัสนี้

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


แทรกรูปภาพหลายภาพและปรับแต่งอัตโนมัติด้วย Kutools for Excel

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

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

1. คลิก Kutools พลัส > นำเข้าส่งออก > นำเข้ารูปภาพดูภาพหน้าจอ:

2. ใน นำเข้ารูปภาพ โปรดทำดังนี้:
(1) ระบุลำดับการแสดงภาพจากไฟล์ สั่งนำเข้า รายการแบบเลื่อนลงคุณสามารถเลือกได้ เติมเซลล์ในแนวตั้งหลังเซลล์ or เติมเซลล์ตามแนวนอนหลังเซลล์.
(2) คลิก เพิ่ม เพื่อเลือกไฟล์รูปภาพหรือโฟลเดอร์เพื่อเพิ่มรูปภาพลงในรายการรูปภาพ และรูปภาพที่คุณเลือกทั้งหมดจะแสดงอยู่ในกล่องรายการ
(3) คลิกไฟล์ นำเข้าขนาด ปุ่ม;

3. ตอนนี้อยู่ใน นำเข้าขนาดรูปภาพ คุณสามารถเลือกขนาดภาพที่ตรงกับความต้องการของคุณ ดูภาพหน้าจอ:

4. หลังจากระบุขนาดรูปภาพแล้วโปรดคลิก OK เพื่อปิดกล่องโต้ตอบนี้และกลับไปที่ไฟล์ นำเข้ารูปภาพ โต้ตอบคลิก นำเข้า ปุ่มเพื่อนำเข้าภาพ

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

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

พื้นที่ นำเข้ารูปภาพ คุณลักษณะของ Kutools for Excel ได้รับการออกแบบมาเพื่อแทรกชุดรูปภาพพร้อมกันโดยมีขนาดเซลล์ที่ตรงกันขนาดที่ระบุหรือขนาดของรูปภาพใน Excel ทดลองใช้ฟรี!


แทรกรูปภาพหลายรูปที่ตรงกับชื่อของพวกเขาด้วย Kutools for Excel

Kutools for Excel ยังรองรับไฟล์ จับคู่รูปภาพนำเข้า คุณสมบัติในการจับคู่รูปภาพและเนื้อหาของเซลล์และแทรกรูปภาพที่ตรงกันเป็นกลุ่มใน Excel เท่านั้น

Kutools สำหรับ Excel - รวมเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ทดลองใช้ฟรี 30 วันเต็มไม่ต้องใช้บัตรเครดิต! Get It Now

1. เลือกเซลล์ชื่อรูปภาพของคุณที่คุณต้องการแทรกรูปภาพที่ตรงกันแล้วคลิก Kutools พลัส > นำเข้าส่งออก > จับคู่รูปภาพนำเข้า. ดูภาพหน้าจอ:

2. ในกล่องโต้ตอบ Match Import Pictures ที่โผล่ออกมาโปรดทำดังนี้:
(1) ระบุลำดับการแสดงภาพจากไฟล์ สั่งนำเข้า รายการแบบหล่นลง
(2) คลิก เพิ่ม ปุ่มเพื่อเพิ่มรูปภาพลงในกล่องรายการรูปภาพ สำหรับข้อมูลของคุณจะมีเฉพาะรูปภาพที่ตรงกันเท่านั้น
(3) จากนั้นคลิก นำเข้าขนาด ปุ่ม

3. ตอนนี้อยู่ใน นำเข้าขนาดรูปภาพ คุณสามารถเลือกขนาดภาพที่ตรงกับความต้องการของคุณและคลิกที่ไฟล์ Ok ปุ่ม. ดูภาพหน้าจอ:

4. ตอนนี้คุณกลับไปที่ไฟล์ นำเข้ารูปภาพ โต้ตอบคลิก นำเข้า ปุ่มเพื่อนำเข้าภาพ

5. ในกล่องโต้ตอบ Match Import Pictures ที่เปิดขึ้นมาโปรดระบุเซลล์แรกของช่วงปลายทางที่คุณจะแทรกรูปภาพแล้วคลิก OK ปุ่ม. ดูภาพหน้าจอ:

จนถึงขณะนี้รูปภาพทั้งหมดจะถูกแทรกลงในเซลล์ตามชื่อญาติ ดูภาพหน้าจอด้านขวา:

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


การสาธิต: แทรกรูปภาพหลายภาพและปรับขนาดพร้อมกันใน Excel

Kutools สำหรับ Excel มีเครื่องมือที่มีประโยชน์มากกว่า 300 รายการสำหรับ Excel ให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ทดลองใช้ฟรีทันที!      Buy Now!


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


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (47)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คำแนะนำที่มีหัวเรื่อง : แทรกรูปภาพหลายรูปใน Excel ด้วยโค้ด VBA นั้นยอดเยี่ยม รวดเร็ว และมีประสิทธิภาพ !!! นี่เป็นทางเลือกที่ดีในการซื้อและติดตั้งปลั๊กอิน นี่เป็นความคิดเห็นออนไลน์ครั้งแรกของฉัน !! รุ่งโรจน์ !
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสามารถใช้โมดูล InsertPictures และทำงานอย่างถูกต้องถึง jpg มันไม่ต้องการที่จะทำงานกับ PNG แม้ว่า คุณช่วยแนะนำได้ไหม ขอแสดงความนับถือ Lawrence
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในหัวข้อแรก "แทรกรูปภาพหลายรูปใน Excel ด้วยโค้ด VBA" จะแทรกรูปภาพหนึ่งรูปในสองเซลล์ได้อย่างไร ตัวอย่างเช่น รูปภาพแรกจะถูกแทรกลงในเซลล์ A1 และ A2 รูปภาพที่สองจะถูกแทรกลงในเซลล์ A3 และ A4 เป็นต้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การสนับสนุนที่ดีสำหรับ Excel.....คุณช่วยประหยัดเวลาได้มาก ขอบใจ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
กระทู้เด็ด! แต่ฉันมีวิธีอื่นในการทำสิ่งเดียวกัน..... ==================================== ============ Sub ipic() Dim i As Integer For i = 2 ถึง 10 Cells(i, 1).Select Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. แทรก ("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg") เลือกด้วยการเลือก .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range ("a1") เลือก End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีเวอร์ชันของ Kuttools สำหรับ Mac หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นไปได้ไหมที่จะแก้ไขโค้ด vba นั้นเพื่อแทรก 4 รูปภาพในรูปแบบกริดเช่นนี้: pic1 ใน A1, pic2 ใน A2, pic3 ใน B1 และ pic4 ใน B2? รถถัง!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่เป็นไรฉันพบวิธีการทำ :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณช่วยแชร์รหัสที่แก้ไขได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Sub InsertPictures() 'Update 20140513 Dim PicList() เป็น Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) จากนั้น xRowIndex = Application.ActiveCell.Row สำหรับ lLoop = LBound(PicList) ถึง UBound(PicList) ตั้งค่า Rng = Cells(xRowIndex, xColIndex) ตั้งค่า sShape = ActiveSheet.Shapes.AddPicture(PicmsoalIndex, xColIndex) , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End ถ้า End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โปรดช่วยฉันแก้ไขโค้ดเพื่อแทรกคอลัมน์และแถวที่ผสาน Sub InsertPictures() 'Update 20140513 Dim PicList() เป็น Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell คอลัมน์ ถ้า IsArray(PicList ) จากนั้น xRowIndex = Application.Act iveCell.Row สำหรับ lLoop = LBound(PicList) ถึง UBound(PicList) ตั้งค่า Rng = Cells(xRowIndex , xColIndex) ตั้งค่า sShape = ActiveSheet.Sha pes.AddlPicture() , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เลือกเซลล์และปรับขนาดตามความกว้างและความสูงตามความต้องการของคุณ.. หากคุณมีสิบภาพให้เลือกสิบเซลล์ขึ้นไป เลือกเพิ่มเติม..!! จากนั้นกด Alt+F11 จากนั้นคลิก INSERT จากนั้นคลิก MODULE จากนั้นวางโค้ดต่อไปนี้ตามที่เป็น .. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column หาก IsArray(PicList) แล้ว xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList) ถึง UBound(PicList) Set Rng = xRowIndex, xColIndex) ตั้งค่า sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex = xRowIndex ย่อยถัดไป กดรหัสด้านบน F1 .. จากนั้นเลือกไฟล์จากคอมพิวเตอร์ไม่ว่าจะอยู่ที่ไหน เกินความต้องการของคุณ ถ้าคุณไม่บันทึกเวิร์กบุ๊ก เวิร์กบุ๊กจะขอให้บันทึก หากคุณได้บันทึกไว้แล้ว ถ้าอย่างนั้นงานของคุณก็หวังว่าจะช่วยได้ .. อาลี..!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากมันใช้งานได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี EXcel Masters ฉันมีแผ่นงาน Excel 2 แผ่น หนึ่งรายการที่มีรูปภาพและคำอธิบายรูปภาพมากกว่าร้อยรายการในเซลล์ถัดไป แผ่นงานอื่นหลังจากการเลือกอาจเหลือคำอธิบาย 40 รายการ ฉันจะถ่ายโอนรูปภาพไปยังชีตนี้ตามการเลือกของฉันได้อย่างไร ขอบคุณอัล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หรือคุณใช้โดยตรง image-xls ด้วย Addin ของ Excel นี้ คุณสามารถแทรกรูปภาพลงในเซลล์ Excel หรือแสดงความคิดเห็นได้ไม่จำกัดจำนวน มันยังปรับขนาดรูปภาพของคุณ และสามารถสั่งซื้อและกรองแผ่นงาน Excel ของคุณ รวมทั้งรูปภาพ !
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเป็นผู้ใช้ Mac และเมื่อฉันคัดลอกโค้ดลงในโมดูลใหม่และเรียกใช้แล้วจะไม่มีอะไรเกิดขึ้น มีบางสิ่งที่ฉันต้องทำใน mac เพื่อเรียกใช้รหัส VBA หรือไม่ ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]หรือคุณใช้โดยตรง image-xls ด้วย Addin ของ Excel นี้ คุณสามารถแทรกรูปภาพลงในเซลล์ Excel หรือแสดงความคิดเห็นได้ไม่จำกัดจำนวน มันยังปรับขนาดรูปภาพของคุณ และสามารถสั่งซื้อและกรองแผ่นงาน Excel ของคุณ รวมทั้งรูปภาพ !โดย Armin[/quote] [quote]คำแนะนำที่มีหัวเรื่อง : การแทรกรูปภาพหลายๆ รูปลงใน Excel ด้วยโค้ด VBA นั้นยอดเยี่ยมมาก รวดเร็วและมีประสิทธิภาพ !!! นี่เป็นทางเลือกที่ดีในการซื้อและติดตั้งปลั๊กอิน นี่เป็นความคิดเห็นออนไลน์ครั้งแรกของฉัน !! รุ่งโรจน์ !โดย ราหุล คุปตะ[/quote] ฉันลองแล้วและดูเหมือนว่าจะทำงานได้ดี - แต่คุณไม่สามารถสั่งซื้อหรือกรองรายการ Excel รวมถึงรูปภาพได้ อีกทั้งรูปภาพไม่ได้ถูกปรับขนาดตามสัดส่วน ดังนั้นฉันจึงซื้อ image-xls - ราคาเล็กน้อย แต่ฉันต้องการทั้งหมดหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี! เหตุผลใดที่ "Sub InsertPictures()" ไม่ทำงานใน Excel 2003 ฉันได้เพิ่มการอ้างอิงไปยัง Microsoft.Scripting.Runtime แล้ว ขอบคุณล่วงหน้า Gilberto
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันมีประโยชน์มากสำหรับฉัน เป็นงานที่ดีมาก ....... ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันลองใช้โค้ดบนสเปรดชีตแล้วและทำงานได้อย่างสมบูรณ์ กว่าผมจะลองทำตัวกรอง ค้นหาว่าภาพสุดท้ายจะปรากฏบนผลการกรองเสมอ ใครสามารถช่วย?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การใช้โปรแกรม VBA ด้านล่างไม่สามารถแทรกรูปภาพในเซลล์ที่ผสาน Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column หาก IsArray(PicList ) จากนั้น xRowIndex = Application.Act iveCell.Row สำหรับ lLoop = LBound(PicList) เป็น UBound(PicList) ตั้งค่า Rng = Cells(xRowxIndex ,Shadows) = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub โปรดแนะนำให้ฉันแก้ไข VBA .
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ นี่มันเยี่ยมมาก! ฉันได้ติดตามบทเรียนของคุณมาระยะหนึ่งแล้ว สิ่งที่ฉันหวังว่าคุณจะสามารถช่วยฉันได้คือ ฉันจะเปลี่ยนจากการวางรูปภาพลงในคอลัมน์เป็นแนวขวางได้อย่างไร และฉันจะเพิ่ม "ชื่อไฟล์แบบเต็ม (เช่น example_image.jpg)" ลงในแถวด้านบนได้อย่างไร แถว 'A' : "Filename.jpg" แถว 'B' : "ภาพขนาดย่อ" ขอบคุณ!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เฮ้ ฉันได้แทรกรูปภาพโดยใช้รหัส VBE ของฉันเอง และตอนนี้ฉันพยายามแบ่งปันกับคนอื่น ๆ แล้ว แต่น่าเสียดายที่พวกเขาไม่สามารถเห็นภาพได้ ..... ฉันจะขอบคุณถ้าใครสามารถบอกฉันว่าฉันพลาดอะไรไป ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้เกือบจะใช้ได้กับความต้องการของฉัน ฉันมี 200 ภาพ แต่ละภาพต้องอยู่ในชีตของตัวเอง ฉันจะไปเกี่ยวกับที่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะแก้ไขโค้ดต่อไปนี้เพื่อให้รูปภาพอยู่ในช่วงของเซลล์ที่เลือกจากหลายคอลัมน์และหลายแถว แทนที่จะใส่ในเซลล์ที่ต่อเนื่องกันในแถวที่ต่อเนื่องกันในคอลัมน์เดียวกันได้อย่างไร Sub InsertPictures() 'Update 20140513 Dim PicList() เป็น Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell คอลัมน์ ถ้า IsArray(PicList ) จากนั้น xRowIndex = Application.Act iveCell.Row สำหรับ lLoop = LBound(PicList) ถึง UBound(PicList) ตั้งค่า Rng = Cells(xRowIndex , xColIndex) ตั้งค่า sShape = ActiveSheet.Sha pes.AddlPicture() , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Alguem conseguiu o codigo para a pergunta dele? เอสตู พรีซิซานโด ตัมเบม!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ