原创商品工作人员必备技能第五节批量导入图片可以选存放文件夹可以选择图片的位置1.docx
《原创商品工作人员必备技能第五节批量导入图片可以选存放文件夹可以选择图片的位置1.docx》由会员分享，可在线阅读，更多相关《原创商品工作人员必备技能第五节批量导入图片可以选存放文件夹可以选择图片的位置1.docx（9页珍藏版）》请在冰豆网上搜索。
原创商品工作人员必备技能第五节批量导入图片可以选存放文件夹可以选择图片的位置1
[原创]商品工作人员必备技能（第五节）批量导入图片（可以选存放文件夹-可以选择图片的位置）-
（1）
[原创]商品工作人员必备技能（第五节）批量导入图片（可以选存放文件夹,可以选择图片的位置）
商品日常工作中无论是订单制作，销售排行榜、畅滞销排行、还是主推款介绍等等都会要求插入图片，一个一个插入会很麻烦，所以使用VBA语句会很简单也会很容易达成。
下面讲解如何使用语句插入图片：
第一步：
将单元格大小调整好，图形插入的时候会自动根据单元格大小调整图片大小。
第二步：
选中要插入图片的对应款号单元格，不要图省事直接选中列，那样你的电脑会被卡死的
第三步：
在工作表名字标签上单击鼠标右键，在弹出的菜单上选中查看代码并单击
第四步：
将复制的执行语句粘贴到弹出的VB编辑器中的空白处，
第五步：
点击绿色箭头或者按F5执行语句
第六步：
在弹出来的浏览窗口找到图片所在文件夹后，点确定
第七步：
在弹出来的指定位置的选项中填入对应的数字，然后点确定。
这个选项很多人说看不懂因此单独解释一下：
图片位置是单元格上面输入数字1，
图片位置是单元格下面输入数字2，
图片位置是单元格左面输入数字3，
图片位置是单元格右面输入数字4。
第八步：
调整图片大小适应单元格，或者调整单元格大小。
第九步：
删除VB编辑器里面的语句，然后关闭VB编辑器，保存文件。
如果不删除语句会有疑似病毒提示。
5-3批量导入图片（可以选存放文件夹,可以选择图片的位置）
SubAAA（）
OnErrorResumeNext
DimTAsString,FD
DimMRAsRange
SetFD=Application.FileDialog（msoFileDialogFolderPicker）'允许用户选择一个文件夹
IfFD.Show=-1Then
T=FD.SelectedItems
（1）'选择之后就记录这个文件夹名称
Else
ExitSub'否则就退出程序
EndIf
p=InputBox（"请选择图片插入位置，上，下，左，右依次用1，2，3，4代替","请选择位置"）
Setfso=CreateObject（"scripting.filesystemobject"）
ForEachMRInSelection
IfNotIsEmpty（MR）Then
pic=T&"\"&MR.Value&".jpg"
Iffso.FileExists（pic）Then
MR.Select
If（p=1）Then'上
ML=MR.Left
MT=MR.Top-MR.Height
MW=MR.Width
MH=MR.Height
ElseIf（p=2）Then'下
ML=MR.Left
MT=MR.Top+MR.Height
MW=MR.Width
MH=MR.Height
ElseIf（p=3）Then'左
ML=MR.Left-MR.Width
MT=MR.Top
MW=MR.Width
MH=MR.Height
ElseIf（p=4）Then'右
ML=MR.Left+MR.Width
MT=MR.Top
MW=MR.Width
MH=MR.Height
EndIf
ActiveSheet.Shapes.AddShape（msoShapeRectangle,ML,MT,MW,MH）.Select
Selection.ShapeRange.Fill.UserPicturepic'当前文件所在目录下以当前单元内容为名称的.jpg图片
EndIf
EndIf
Next
EndSub
5-4批量导入图片（可以选存放文件夹,图片放在右边单元格）
SubAAA（）
OnErrorResumeNext
DimTAsString,FD
DimMRAsRange
SetFD=Application.FileDialog（msoFileDialogFolderPicker）'允许用户选择一个文件夹
IfFD.Show=-1Then
T=FD.SelectedItems
（1）'选择之后就记录这个文件夹名称
Else
ExitSub'否则就退出程序
EndIf
Setfso=CreateObject（"scripting.filesystemobject"）
ForEachMRInSelection
IfNotIsEmpty（MR）Then
pic=T&"\"&MR.Value&".jpg"
Iffso.FileExists（pic）Then
MR.Select
ML=MR.Left+MR.Width
MT=MR.Top
MW=MR.Width
MH=MR.Height
ActiveSheet.Shapes.AddShape（msoShapeRectangle,ML,MT,MW,MH）.Select
Selection.ShapeRange.Fill.UserPicturepic'当前文件所在目录下以当前单元内容为名称的.jpg图片
EndIf
EndIf
Next
EndSub
升级会员 