แทรกรูปภาพลงในเซลล์ Excel [ปิด]

ฉันคาดว่าจะสร้างรายงานด้วยรูปภาพ แต่ฉันไม่สามารถนำรูปภาพไปไว้ในเซลล์เดียว ฉันสามารถนำรูปภาพไป "ลอย" รอบ ๆ แผ่นงานของฉันได้ แต่ฉันต้องใส่มันเข้าไปในเซลล์ ฉันจะทำสิ่งนี้ได้อย่างไร

คุณสามารถเพิ่มภาพลงในความคิดเห็น

คลิกขวาที่เซลล์> แทรกความคิดเห็น> คลิกขวาที่แรเงา (พื้นที่สีเทา) ที่ด้านนอกของกล่องความคิดเห็น> จัดรูปแบบความคิดเห็น> สีและเส้น> เติม> สี> เติมเอฟเฟ็กต์> รูปภาพ> (เรียกดูรูปภาพ)> คลิกตกลง

ภาพจะปรากฏเมื่อวางเมาส์เหนือ

Microsoft Office 365 (2019)แนะนำสิ่งใหม่ที่เรียกว่าความคิดเห็นและเปลี่ยนชื่อความคิดเห็นเก่าเป็น " บันทึกย่อ " ดังนั้นในขั้นตอนข้างต้นทำแทนNew Note Insert Commentขั้นตอนอื่นทั้งหมดยังคงเหมือนเดิมและยังมีฟังก์ชั่นการใช้งานอยู่

นอกจากนี้ยังมีผลิตภัณฑ์ราคา $ 20 สำหรับ Windows - Excel Image Assistant ...

มีวิธีที่รวดเร็วกว่า ( https://www.youtube.com/watch?v=TSjEMLBAYVc ):

1. แทรกรูปภาพ (Ctrl + V) ไปยัง excel
2. ตรวจสอบความถูกต้องของ "Picture Tools -> Align -> Snap To Grid"
3. ปรับขนาดภาพให้พอดีกับเซลล์ (หรือจำนวนเซลล์)
4. คลิกขวาที่ภาพและตรวจสอบ "ขนาดและคุณสมบัติ ... -> คุณสมบัติ -> เลื่อนและปรับขนาดด้วยเซลล์"

เพียงไปที่ Google เอกสารและวางเป็นสูตรโดยที่ URL คือลิงก์ไปยัง img ของคุณ

      =image("URL", 1)

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

ตอนนี้เราสามารถเพิ่มรูปภาพลงใน Excel ได้โดยตรงและง่ายดาย เพียงทำตามคำแนะนำเหล่านี้:

1. ไปที่แท็บแทรก
2. คลิกที่ตัวเลือกรูปภาพ (อยู่ในกลุ่มภาพประกอบ)
3. ในกล่องโต้ตอบ 'แทรกรูปภาพ' ค้นหารูปภาพที่คุณต้องการแทรกลงในเซลล์ใน Excel
4. คลิกที่ปุ่มแทรก
5. ปรับขนาดรูปภาพ / รูปภาพใหม่เพื่อให้สามารถบรรจุภายในเซลล์ได้อย่างสมบูรณ์แบบ
6. วางรูปภาพในเซลล์ วิธีที่ยอดเยี่ยมในการทำเช่นนี้คือการกดปุ่ม ALT ก่อนจากนั้นเลื่อนภาพด้วยเมาส์ มันจะ snap และจัดเรียงตัวเองกับเส้นขอบของเซลล์ทันทีที่ใกล้เข้ามา

หากคุณมีหลายภาพคุณสามารถเลือกและแทรกภาพทั้งหมดในครั้งเดียว (ดังแสดงในขั้นตอนที่ 4)

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

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

ในการทำเช่นนี้คุณต้องทำตามขั้นตอนเพิ่มเติมดังที่แสดงด้านล่าง

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

ตอนนี้คุณสามารถย้ายเซลล์กรองหรือซ่อนและรูปภาพก็จะย้าย / กรอง / ซ่อน

บันทึก:

คำตอบนี้ถูกนำมาจากลิงค์นี้: แทรกรูปภาพลงในเซลล์ใน Excel

ในขณะที่คำแนะนำของฉันคือการใช้ประโยชน์จากระบบอัตโนมัติที่มีจากDoality.comโดยเฉพาะ Picture Manager สำหรับ Excel

รหัส vba ต่อไปนี้ควรตรงตามเกณฑ์ของคุณ โชคดี!

เพิ่มปุ่มควบคุมลงในสมุดงาน Excel ของคุณจากนั้นดับเบิลคลิกที่ปุ่มเพื่อไปที่รหัส VBA ->

Sub Button1_Click()
    Dim filePathCell As Range
    Dim imageLocationCell As Range
    Dim filePath As String

    Set filePathCell = Application.InputBox(Prompt:= _
        "Please select the cell that contains the reference path to your image file", _
            Title:="Specify File Path", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Please select the cell where you would like your image to be inserted.", _
            Title:="Image Cell", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Please make a selection for file path")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell that contains the file location")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Please make a selection for image location")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell where you want the image to be populated")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

จากนั้นสร้างวิธีแทรกของคุณดังต่อไปนี้:

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub

คุณสามารถทำได้ภายในไม่กี่นาทีด้วย Google Drive (และฟรีไม่ยุ่งยาก)

•อัปโหลดภาพทั้งหมดของคุณเป็นกลุ่มบน imgur.com

•คัดลอกลิงค์ของภาพทั้งหมดเข้าด้วยกันผนวกด้วย. jpg มีเพียง imgur ที่ให้คุณคัดลอกลิงค์รูปภาพทั้งหมดเข้าด้วยกันโดยใช้แท็บรูปภาพด้านบนขวา

•ใช้http://TextMechanic.coเพื่อเพิ่มและต่อท้ายแต่ละบรรทัดด้วยคำนำหน้า: =image(" และคำต่อท้าย:", 1)

เพื่อให้ดูเหมือนว่านี้ =image("URL", 1)

•คัดลอกทั้งหมด

•วางลงใน Google Spreadsheet

• Voila!

การอ้างอิง:

http://www.labnol.org/internet/images-in-google-spreadsheet/18167/

https://support.google.com/drive/bin/answer.py?hl=en&answer=87037&from=1068225&rd=1