作者:乔山办公网日期:
返回目录:excel表格制作
方法/步骤
在此小编举例说明,因此Excel表格记录相对较少百,如图所示,我们需要将对应照片插入“照片”列。度
首先,我们需要将照片放置一个文件夹内,建议对照片进行有规则的命名,这样可知以方便快捷创建多个图片链接。
打开记事本程序,按如下格式输入图片的链接:道
<table><img src="d:\pic\*.jpg" width="140" height="140">
将记事本中的文本全选进行复制,在Excel工作表中,版右击“照片”列第一行,从弹出的右键菜单中选择“选择性粘贴”项。
在弹出的“选择性粘贴”窗口中,选中“Unicode文本”项,直接点击“确定”按钮。
最后就会发现相关的照片自动插入到“照片”所在单权元格啦。
Excel小技巧
Sub 批量7a686964616fe58685e5aeb9334插入图片()
Dim wj As String
Dim rng As Range
Sheets("sheet1").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
na = Cells(i, 1) '从第一列(即A列)得到照片名,并以此名查找图片
wj = "e:\pic" &
"\" & na & ".jpg" '图片文件存储的路径与格式(.jpg)
If Dir(wj) <> "" Then
Cells(i, 2).Select '图片需要插入到第二列(即B列)
ActiveSheet.Pictures.Insert(wj).Select
Set rng = Cells(i, 5) '根据单元格的大小调整图片
With Selection
.Top =
rng.Top + 1
.Left =
rng.Left + 1
.Width =
rng.Width - 1
.Height =
rng.Height - 1
End With
End If
Next
MsgBox "图片插入完毕"
End Sub
Excel小技巧