EXCEL表如何自动导入图片我有很多产品,准备做一个EXCEL表
2008-11-28 13:10:21l***
我有很多产品,准备做一个EXCEL表。 但是图片太多了。 需要把图片自动导入到EXCELL 表中, 并按照单元格的大小来显示图片。 备注: 图片的文件名和产品的货号是一样的。
EXCEL表如何自动导入图片我有很多产品,准备做一个EXCEL表。但是图片太多了。需要把图片自动导入到EXCELL表中,并按照单元格的大小来显示图片。备注:图片?
最佳回答
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。
2008-11-28 17:33:38
2008-12-01 11:12:22
Value) + "。bmp" If Dir(filename) <> "" Then ActiveSheet。Pictures。Insert(filename)。Select With Selection。ShapeRange 。
Top = Cells(x, 2)。Top + 2 。Left = Cells(x, 2)。Left + 2 '上面2句設置?D片的左上角坐?? 。Height = Cells(x, 2)。RowHeight - 4 End With End If Next x End Sub '上面的代碼可以?一下。
2008-11-29 09:00:53
2008-11-28 17:44:49
很赞哦! (177)
相关文章
- autocad中的文件怎样导入到ug4.0中
- 我改了图片文件名,怎么显示不出图片
- excel中如何在批注中自动显示与之有关的其他表中的信息
- access中如何在窗体中显示图片
- 为什么关注别人自动显示备注 请解决?
- 有些图片保存到电脑中文件名显示的是 未命名 ,后来图片就找不到了,请问图片是保存到哪里去了呢?
- EXCEL表如何自动导入图片
- 怎么能把我关注别人的时候自动显示的我的备注改掉啊?
- 免表修改是不是必须要知道产品的出厂货号?
- excel中如何将一个表的数据导入到另一个表中?
- 电脑图片的文件夹,怎样打开就有文件名?
- access中如何在窗体中显示图片
- 然后用另一台电脑打开显示图片文件不受支持是为什?
- 微云上传的图片会显示文件名吗?
- 怎么把excel表1的数据自动导入到表2
- 怎么样吧cdr中的图片分层导入到ps?
- WORD文件中的图片如何导入到PS中?
- excel表数据如何导入到oracle数据库表中?
- 如何把文件里面的文件名导入到ex?
- 怎么把安卓手机里面的全部图片自动导入到mac里?
- 然后用另一台电脑打开显示图片文件不受支持是为什?
- 如何把自编的材料表自动导入到CAD明细表中
- WORD文件中的图片如何导入到PS中?
- flash库导入到场景中的图片为何不显示
- 货号也多上千种,最后库存表显示的货号能自动出来吗
- access中如何在窗体中显示图片
- excel表数据如何导入到oracle数据库表中?
- 为什么空间会自动显示备?
- 怎么将桌面上的图片导入到ps?
- excel中如何把数据导入到自动更正项?