EXCEL表如何自动导入图片我有
具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下：
Option Explicit
Sub 插入图片()
On Error Resume Next '设置错误处理
Application。 ScreenUpdating = False '关闭屏幕刷新
Dim rngTemp As Range, k As Range, picPath$, picTemp As Picture
'设定图片名称所在单元格区域
Set rngTemp = Application。 InputBox("选择图片名称所在单元格区域：", "选择单元格", Type:=8)
For Each k In r...全部
具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下：
Option Explicit
Sub 插入图片()
On Error Resume Next '设置错误处理
Application。
ScreenUpdating = False '关闭屏幕刷新
Dim rngTemp As Range, k As Range, picPath$, picTemp As Picture
'设定图片名称所在单元格区域
Set rngTemp = Application。
InputBox("选择图片名称所在单元格区域：", "选择单元格", Type:=8)
For Each k In rngTemp '循环插入图片
k。Offset(0, 1)。Select '选择插入图片的位置
ActiveSheet。
Pictures(k & k。Row)。Delete '删除单元格中原来的图片
picPath = ThisWorkbook。Path & "\" & Trim(k) & "。jpg" '定义插入图片的地址
Set picTemp = ActiveSheet。
Pictures。Insert(picPath) '插入图片
picTemp。Name = k & k。Row '设定所插入图片的名称
picTemp。Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置
With picTemp。
ShapeRange
。LockAspectRatio = msoFalse '取消图片纵横比锁定
。Height = Selection。Height '设置所插入图片的高度与单元格的高度相等
。
Width = Selection。Width '设置所插入图片的宽度与单元格的宽度相等
End With
Set picTemp = Nothing '重置图片对象
Next
Application。
ScreenUpdating = True '打开屏幕刷新
End Sub。收起
