excel 如何在指定单元格根据其他单元格内容自动插入图片

1、首先需要打开添加图片的EXCEL表格。

2、在菜单栏依次点击”插入“、”图片“。找到存放图片文件的路径，将图片导入EXCEL表格。

3、调整图片大小和位置，使其位于固定的单元格内。但是如果我们删除行或者列时，由于不同的单元格大小不一样，需要重新调整图片大小。

4、在图片上单击鼠标右键，找到”大小和属性“按钮。

5、在属性中勾选”随单元格改变位置和大小“。

6、之后返回主界面，随便删除某一行或者某一列，可以发现图片会跟随单元格变化而自动变化。

1、打开Excel表格，调整行高列宽为自己想要的格式。

2、然后A列姓名按升序排列。

3、接着插入图片，注意图片的名称要和A列的名称对应好。

4、插入后你会发现最后一个人的头像在最顶层。

5、将最顶层的图片单独剪切复制到最后一个人对应单元格位置。

6、接着按快捷键ctrl+A全选图片。

7、接着选择图片格式中的调整大小，并取消纵横比，直到最后一张图片与单元格吻合，此时所有图片均是相同大小。

8、最后调整对齐格式，横向分布，纵向分布，最后左对齐即可。

可以用vba代码完成：

1、先编制表格：

2、在表格里编写触发宏代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim photoname As String

If Target.Row = 3 And Target.Column > 3 And Target.Column < 6 Then

On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息

Application.ScreenUpdating = False

Application.EnableEvents = False

For Each shp In Sheets("查询表").Shapes

    If shp.Type <> 8 And shp.Type <> 12 Then

        shp.Delete

    End If

Next

    photoname = Cells(3, 4) & ".JPG"

    Cells(3, "L").Select

    ActiveSheet.Pictures.Insert(ActiveWorkbook.Path & "\照片\" & photoname).Select        '当前文件所在目录下以单元内容为名称的.jpg图片

    With Selection

        ta = Range(Cells(3, "L").MergeArea.Address).Height    '单元高度

        tb = Range(Cells(3, "L").MergeArea.Address).Width      '单元宽度

        tc = .Height    '图片高度

        td = .Width     '图片宽度

        tm = Application.WorksheetFunction.Min(ta / tc, tb / td)    '单元与图片之间长宽差异比例的最小值

        .Top = ActiveCell.Top + 2

        .Left = ActiveCell.Left + 1

        .Height = .Height * tm * 0.98 '按比例调整图片宽度

        .Width = .Width * tm * 0.98   '按比例调整图片高度

    End With

Cells(3, 4).Select

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

3、在当前目录下建个名为”照片“的子目录，里面存有以姓名为名称的.jpg格式的照片

4、在姓名后单元输入姓名后，就能自动插入图片了

在excel工作表中同时按下ALT和F11两个键，进入VBA编程，点击VBA编程中的菜单：“插入－模块”，把下面的代码粘贴到模块的空白区以后，返回到excel工作表，点击菜单工具－宏－宏，选择宏名kkk 运行代码。

sub kkk()
aa = ActiveWorkbook.Sheets.Count
For i = 1 To aa
Worksheets(i).Select
Worksheets(i).Range("A2").Select
Sheets(i).Range("A2").RowHeight = 60

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 48, 72, 60).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18

Selection.ShapeRange.Fill.UserPicture "C:\project\pic\" & Worksheets(i).Range("A1").Value & ".jpg"
Next i
end sub

每个工作表的A1单元格应输入“王二”等姓名，而且与C:\project\pic目录下的图片文件对应

请问插入图片的高度和宽度是否要自动适应单元格的大小？是否保留原始比例？