VBA Excel 插入图片（非引用方式）

最新推荐文章于 2024-06-18 13:59:47 发布
最新推荐文章于 2024-06-18 13:59:47 发布
阅读量1.8w 收藏 33
点赞数 7
分类专栏： Ruby 文章标签： vba ruby ruby-excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/g1418377085/article/details/71125033
版权

引用的方式插入图片

ActiveSheet.Pictures.Insert(imgPath)

这种方式插入的图片只是引用而已，当图片被删除、移动时，excel文件中的图片将会找不到资源位置。

引用失败

非引用方式插入图片

worksheet.Shapes.AddPicture("C:\\GW93802.jpg", false, true, 1, 1, 800, 800)

这种方式会将图片作为excel的资源打包到excel文件中

EXCEL资源
将excel文件改成压缩包的形式变能看到上图内容

这里写图片描述

JavaLitterBoy
关注
  • 7
    点赞
  • 踩
  • 33
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
批量插入_ExcelVBA_046 批量插入图片
weixin_42502736的博客
01-15 1994
一、需求说明有时为了在Excel内展示产品，需要批量插入图片到工作表，并且按一定规则排列好。借助Excel的插入图片功能一次性添加多张图片，会出现多张图片重叠，图片的大小不一的情况。今天我们就来简单改造这个插入图片的功能，一来让图片简单排列，二来统一图片的大小。二、实现过程1、先录制宏，获得核心语句单击录制宏按钮，切换到插入选项卡，选择图片...
使用VBA批量向Excel插入图片
qq_41535099的博客
04-09 6959
好久之前学的VBA,今天终于派上点用处：任务：向excel的列中插入700多张图片，并且每张图片只占一个单元格，幸运的是我的图片尺寸都一样。首先使用宏：Sub 宏1()'' 宏1 宏    Range("E2").Select    ActiveSheet.Pictures.Insert("E:\cc\QQPCMgr\11.0.16779.224\BeginnersGuide.png" _    ...
VBA(5)表格内常见导入图片方式
q14091355的博客
06-11 5453
记录一下VBA内对图片的常见处理,EXCEL图片导入/导出
编写vb函数，将图片放置A1单元格
weixin_42581003的博客
02-12 219
这是一个在 Microsoft Excel 中使用 Visual Basic for Applications (VBA) 程序语言编写的代码示例，用于将图片放置在 A1 单元格中： Sub InsertPicture() Dim pic As Picture Set pic = ActiveSheet.Pictures.Insert("<图片路径>") Wit...
VBA学习(10):按名称批量将图片插入到表格中
最新发布
nianfen的博客
06-18 771
代码继续运行，会先删除旧图片，再插入新图片，最后发出一个消息框，用户一共成功插入了多少张图片，失败了多少张；5>代码采用非引用的方式插入图片，该方式会将图片作为资源打包到excel文件中，即便数据源的图片已被删除，表格中的图片也依然存在，这样有利于将工作簿发送他人，不利是Excel体积过大，使用效率就会变差。当然，您也可以把代码稍微修改，设置固定的图片行高和列宽，并由图片的行高和列宽决定单元格的大小。然后选择图片名称存放的单元格区域，可以选择整列、多列、整行或多行，比如示例动画中的B:D列，2:2行等。
解决excel2010及之后版本Pictures.Insert链接问题
Cideason的专栏
03-05 6402
解决excel2010及之后版本Pictures.Insert链接问题 方法有2
C#向Excel报表中插入图片的2种方法
热门推荐
【孟子E章】
07-23 4万+
这几天做向Excel插入数据，其中有插入图片的需求，经试验，下面2种方法都可以插入图片，但各有不同的用处。现将这2种方法共享出来， 希望需要的朋友进行参考，代码中已经有详细注释了。注意：使用之前需要引用COM：Microsoft Office 11.0 Object Library如果引用列表中没有，需要自行添加 C:/Program Files/Microsoft Office/OFFICE
excel批量插入图片
huihuang08的博客
06-09 539
使用EXCEL的VBA功能，在代码窗口输入如下代码，作相应的修改，然后执行就可以了： Sub 批量插入图片() On Error Resume Next Dim i As Integer Dim 末行行号 As Integer Dim 图片路径 As String '图片的完整路径末行行号 = Cells.SpecialCells(11).Row For i = ActiveCell.Row To 末行行号 Cells(i, 1).Select图片路径 = Cells(i, 2) & Cells(i
excel利用vba发送邮件
weixin_34259559的博客
02-23 551
Sub Mail_Text_in_Body()Dim msg As String, cell As RangeDim Recipient As String, Subj As String, HLink As StringDim Recipientcc As String, Recipientbcc As StringRecipient = "someone@21cn.com"Recipientc...
Excel VBA_插入图片实例集锦.doc
02-18
Excel VBA 插入图片实例集锦 本文档主要介绍了使用 Excel VBA 来插入图片的实例集锦，涵盖了批量插入图片、合并单元格、删除shape对象、添加图片到形状区域等多个方面的知识点。 插入图片 在 VBA 中，可以使用 `...
vba 插入图片
03-19
在Excel VBA（Visual Basic for Applications）编程中，“vba 插入图片”是指通过VBA脚本在工作表中动态地插入图片。这个过程通常涉及到查找特定单元格的值，然后根据这些值来确定要插入的图片名称，并将图片插入到...
Excel VBA实用技巧大全 附书源码
10-08
04052引用多个非连续单元格区域的集合（Union方法） 04053引用多个非连续单元格区域的集合（循环处理） 04054引用多个单元格区域的交叉区域 04055获取计算公式的所有引用单元格 04056获取计算公式中引用的其他工作表...
VBA EXCEL教程
11-29
### VBA EXCEL教程知识点详解 #### 一、VBA语言基础 **1.1 标识符** - **定义**: 标识符是用于命名变量、常量、子程序等的基本元素。 - **规则**: 必须以字母开头；长度最长可达255个字符；不能包含特殊符号（如!...
不能取得类pictrure的insert属性_Python静态方法、类方法、属性方法的介绍
weixin_39525865的博客
12-07 386
在使用静态方法时，类中的self将不会再进行传值，此时，静态方法已经和类没什么关系了。普通方法：直接调用类下面的方法静态方法：引入了@staticmethod当eat函数变为静态方法时，此时静态方法将eat函数与类dog之间的关联截断，之前调用类下面的方法会自动传self，如果用了staticmethod，那么就可以无视这个self，而将这个方法当成一个普通的函数使用。当使用了静态方法后，该函数下...
excel的VBA插图源代码，解决2010版后插图源路径破坏图片不影响问题
军哥博客欢迎您
09-28 2203
1　背境： 原来使用ActiveSheet.Pictures.Insert(temp).Select方法，对2007版本及以前没有路径也是可以的，可是到了2010版后，这个函数是存储的路径了。 2　解决方法： Sheet1.Shapes.AddPicture　方法兼容所有版本，可以把图片准确插入指定的位置。 3　示例：按照某一列数据生成图片文件路径，然后把图片插入指定的位置。 Sub M
Excel VBA 添加标注参考图.vba
灵台方寸山斜月三星洞
10-25 813
Sub 添加标注参考图() ' On Error Resume Next 'Set rngTemp = Application.InputBox(&quot;图片插入区域：&quot;, &quot;选择单元格&quot;, Dim j_h, j_w, ww ww = 400 For Each k In Selection Set p = Nothing '用相对路径，有...
在Excel 中用VBA插入图片的方法
panweifengCSDN的专栏
10-27 1万+
如果需要在Excel中某个固定位置插入图片可以采用以下方法 Step1, 在Excel中 插入Picture ActiveX控件                         Step2, 在属性窗口设置Picture控件的 背景和边框                         Step3, VBA    ActiveShe
Excel 2007 插入图片问题解决
tenderghost的专栏
11-12 358
用JavaScript调用Excel的ActiveSheet.Pictures.Insert(url)方法在2003版本中还是好好的，可是在2007中就不行了，有人说这是MS的Bug，可MS到现在也没给出个补丁之类的东西，我们只好自己解决了。 使用如下方法： ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50).Fill...
vba 批量插入图片excel
05-14
VBA批量插入图片Excel可以通过以下步骤完成： 第一步：打开Excel，并通过Alt+F11快捷键进入VBA编辑器； 第二步：在VBA编辑器中，选择“插入”菜单，选择“模块”选项，新建一个模块； 第三步：编写VBA代码，其中包括： Sub InsertPictures() Dim PicPath As String Dim MyPicture As Picture Dim MyRange As Range PicPath = "C:\PicturesFolder\" Set MyRange = ActiveSheet.Range("A1") MyFile = Dir(PicPath & "*.jpg") Do While MyFile <> "" Set MyPicture = ActiveSheet.Pictures.Insert(PicPath & MyFile) With MyPicture .Top = MyRange.Top .Left = MyRange.Left .Height = MyRange.Height .Width = MyRange.Width End With Set MyRange = MyRange.Offset(1) MyFile = Dir Loop End Sub 第四步：执行该VBA代码，即可批量插入指定文件夹下所有jpg图片到Excel中。具体操作过程中，可以根据需要对代码进行修改和优化，以实现更好的效果。总之，利用VBA批量插入图片能够大大提高工作效率和数据处理能力，对于数据分析人员而言至关重要。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值