'图片路径
While Trim(Cells(i, c).Text) <> "" '货号不为空继续 If Cells(i, c) <> 0 Then ActiveSheet.Pictures.Insert(strImgPath & Trim(Cells(i, c).Text) & ".jpg").Select Selection.ShapeRange.Height = 72 '设置图片大小 Selection.ShapeRange.Width = 64 '设置图片大小 Selection.Cut Cells(i, c + 1).Select ActiveSheet.Paste End If i=i+1 Wend End Sub
网络(度娘、EXC
EXCEL开发人
自己编写(书
step 2:存放位置
宏批量导入图
宏批量导入图
step 3:如何调用
宏批量导入图
宏批量导入
Sub 图片() Dim i, c, r As Long, strImgPath As String strImgPath = "C:\Users\sony\Desktop\EXCEL中级-信息主管\产品图片库\" c = ActiveCell.Column '货号列 r = ActiveCell.Row '货号行 i=r
Ctrl+Shift+↑ ↓ ←
快速选择范围
Ctrl+G 定位 Ctrl+F 查找
精选2-数据有效性
为什么要使用数据有效性??? 1、数据录入规范化;2、简化录入 一、启用数据有效性的方法 1、依次单击【数据】→【数据有效性】,如图所示