作者：乔山办公网日期：
返回目录：excel表格制作
一、前提：
假设图片百名称在A2:A15，不带扩展名，图片格式为jpg格式，图片保存在“D:\图片\”文件夹下
二、操作方法：
1、A2：A15输入图片名称（不带扩展度名）
2、B2输入
="<table><img src=""D:\照片\"&A2&".jpg""width=""176""height=""220"">"
3、下拉公式到B15
说明：公式中Width 和height是装入后的图片宽和高，可自行调整。
4、选中B2：B10，复制知
5、返回桌面，新建一个文本文件，并打开，粘贴
6、调整Excel行距，以确保图片能道装下
7、选中文本文件中的全部内容，复制
8、转到Excel中，选中B2，选择性粘贴——Ubicode文本
9、所有图片立即以相同大小插入到了B2：B10
注意：如果粘贴后，图回片大小觉得不合适，这时不要急于点选其他单元格，在全部图片选中状态，任意一张图片上鼠标右键——图片属性，设置其宽和高即可统一调整图片尺寸了。答
Sub addpicture2()
Dim FirstCol, LastCol As Integer, FileType As String
FirstCol = Sheet1.UsedRange.column
LastCol = FirstCol + Sheet1.UsedRange.Columns.Count - 1
FileType = InputBox("输入你的图片zhidao的版后缀名", "输入图片格式", "jpg")
For i = FirstCol To LastCol
Numb = Cells(2,i).Value '这儿权
With ActiveSheet
.Pictures.Insert("D:\PIC\" & Numb & "." & FileType).Select
Set Target = .Cells(1,i) '这儿
End With
With Selection
.Top = Target.Top + 1
.Left = Target.Left + 1
.Width = Target.Width - 1
.Height = Target.Height - 1
End With
Next i
End Sub
1、首先，我们需要将照片放置一个文件夹内，建议对照片进行有规则的命名，这样可以方便快捷创建多个图片链接。
2、打开记事本程序，按如下格zhidao式输入图片的链接：
<table><img src="d:\pic\*.jpg" width="140" height="140">
3、将记事本中的文本全选进行复制，在Excel工作表中，右击“照片”列第一行，从弹出的右键菜单中选择“版选择性粘贴”项。
4、在弹出的“选择性粘贴”窗口中，选中“Unicode文本”项，直接点击“确定”按钮。
5、最后就会发现相关的照片自动插入到“照片”所在单元格权啦。
一、前提：
假设图片名称在A2:A15，不带扩展名，图复片格式为jpg格式，图片保存在“D:\图片\”文件夹下
二、操作方法：
1、A2：A15输入图片制名称（不带扩展名）
2、B2输入
3、下拉公式到B15
说明：公式中Width 和height是装入后的图片宽和高，可自行调整。
4、选中B2：B10，复制
5、返回桌面，新建一个文本文件，并打开，粘贴
6、调整Excel行距，以确保图片能装下
7、选中文本文件中的全部内容，复制
8、转到Excel中，选中B2，选择性粘贴——Ubicode文本
9、所有图片立即以相同大小插入到了B2：B10
注意：如果粘贴后，图片大小觉得不合适，这时不要急于点选其他单元格，在zhidao全部图片选中状态，任意一张图片上鼠标右键——图片属性，设置其宽和高即可统一调整图片尺寸了。