用VB代码向EXCEL中插入图片!在线急等!

jimliu2002 2006-03-08 04:00:37

用以下代码向EXCEL中插入图片:
ActiveSheet.Pictures.Insert("E:\ss.bmp").Select
但是报错:不能取得类 Pictures 的 Insert 属性,

我都快要急死了!

...全文

251 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

yijibo 2006-03-10

打赏
举报

回复

学习 !!

faysky2 2006-03-08

打赏
举报

回复

图片有问题？？
手动把图片插入到Excel里看有没有问题

DengXingJie 2006-03-08

打赏
举报

回复

Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\TEST.xls")
objExcel.Visible = True
Set objSheet = objBook.Worksheets(1)
ActiveSheet.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\12723243_2005100909232289447700.jpg").Select
經測試以上代碼運行正常

在Excel中批量插入批注图片，文档说明图文并茂，本人亲自制作及编写。文档中有VB代码，代码不用用任何更改即可使用，不用安装任何插件，在任何版本Excel中均适用，包括X64和X86版本。不同Excel高级工具，只能用于X86的版本，X64均用不了，而且插入图片之前必须排好序，不然再排序，图片就对不上了。 Excel版本说明：本说明在Excel 2010 上测试成功，2007同样适用，2003未测试过。批注方式显示图片有的好处，图片在需要的时候才显示，可以加快打开的速度，其次在数据排序后，图片会跟着排序

具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下： 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

自动写的用Excel VBA 批量导入图片，放到同一列的单元格。

代码如下: Dim im as Image=Image.FromFile (“C:/picture.bmp”) ‘获得Image System.Windows.Forms.Clipboard.SetDataObject(im, True) ‘复制到剪贴板 Dim xlApp As Excel.Application = New Excel.Application() Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlBook = xlApp

这是第2版.精简了代码,运行速度上会有所上升. 有时会需要把数十张甚至几百张的相同规格的图片放入EXCEL表中。这是一个带宏的模板。把你想导入的大量图片放在文件目录/pic下运行EXCEL，开启使用宏功能。点击运行按钮按提示操作就好了。觉得图片太小或者排列有问题的，可以直接去改宏中的参数。

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章