VBA根据图片链接地址显示出图片

最新推荐文章于 2023-10-15 07:48:09 发布
VIP文章 最新推荐文章于 2023-10-15 07:48:09 发布
阅读量1.8k 收藏 4
点赞数
分类专栏： VBA 随手小代码 文章标签： vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/gxchai/article/details/121650548
版权

在B列已有图片的链接地址，要在C列显示相应的图片，下面是代码
下面显示的是2-4行，如果一页所有内容都要显示，那么，把4要改成一个变量，ActiveSheet.UsedRange.Rows.Count，取最后一行

Sub 把B列图片链接在C列生成图片()
    '以第2-4行为例，设定单位格宽度（图片宽度）
    Columns("C:C").ColumnWidth = 36.22
    Rows("2:4").RowHeight = 150
    '插入图片（假设图都是4：3的，否则还涉及要取得原始尺寸，如果图小，可以直接
最低0.47元/天 解锁文章
gxchai
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
网页链接转图片.xls
09-15
VBA 网页链接转图片
Excel VBA实现图片网址变为图片，以及导入本地图片
weixin_43560960的博客
06-22 1万+
前段时间爬了一些数据，但是只有excel文本，文本中有图片地址，想让图片显示出来，这就需要用到VBA了。 1-建立一个宏，名字随意 然后点编辑，复制以下内容（如果你的地址不在第一列，可以更改cells(i,1) i的值，或者把数据弄到第一列） On Error Resume Next i = 1 Do While i <= Cells(Rows.Count, 1).End(xlUp)....
VBA使用 COM API 使用 OneNote 2013/2016 的图像识别功能
weixin_34192732的博客
03-09 1890
最近由大量的扫描单据需要摘录，就希望能够通过VBA程序辅助完成这项工作。经过一番检索，在能获取到的主要的OCR产品中，微软产品的识别率相对较高。但目前常用的Office 2013和Office 2016 Microsoft OFFICE 2013以后，Microsoft Office Document Imaging就不在支持了，网上能够下载到繁体中文的ODI，但在Windows 10下无法安装...
VBA开发者在网站抓取方面的经验之通过使用VBA
最新发布
oGuJing123的博客
10-15 82
作为一名拥有多年经验的VBA开发者，我想在这里和大家分享一下我在网站抓取方面的经验。通过使用VBA，我们可以轻松地从网站上获取所需的数据，实现自动化抓取，提高工作效率。1.确定目标网站：在开始网站抓取之前，我们首先需要确定目标网站。选择一个适合自己需求的网站，并了解该网站的结构和数据排布方式。
VBA编程一例：解决WORD文档无法显示链接的图像问题
mmdev
11-12 439
OFFICE的VBA编程功能其实是蛮强大的，而VB的语法简单，学起来也很容易上手，如果做过OLE编程的对OFFICE的对象结构有了解就更容易了。利用VBA我们可以做很多批量处理的事，昨天刚好用它解决了个问题，这里把过程记录下供参考，应该对VBA新手会有帮助，熟手就不用看了。 昨天遇到的情况是，用Office2007从本地打开带图片的html并另存为word doc文档时，WORD把图像保存为...
VBA宏把A列的图片链接转化为图片
weixin_42921227的博客
06-27 1112
VBA代码加载图片
vba html显示图片,Excel VBA实现图片文本网络地址转变为图片
weixin_34501627的博客
06-18 1076
在Excel数据表格中有些网页图片的链接。希望把这些链接转变成对应的图片通过下面代码，可以先把图片文本地址转变成超链接格式然后插入图片到链接对应的单元格内，可以先设置单元格的长宽，这样图片会按单元格大小自动生成Sub HyperlinksToPic()On Error Resume Nexti = 1Do While i <= Cells(Rows.Count, 1).End(xlUp).R...
使用VBA在EXCEL中插入图片自定义函数（网络URL/本地URL）
阿亮的专栏
12-07 7476
Sub InsertPic(ByVal 图片链接 As String, ByVal 插入图片表名 As String, ByVal 插入图片单元格地址 As String) On Error Resume Next Dim rng As Range Set rng = Sheets(插入图片表名).Range(插入图片单元格地址) With Sheets(插入图片表
java 图片url转图片
weixin_48927623的博客
05-06 3371
import java.io.File; import java.io.FileOutputStream; import java.io.IOException; import java.io.InputStream; import java.net.HttpURLConnection; import java.net.MalformedURLException; import java.net.URL; public class UrlToPicture { /** * @imgUrl 图片url
excel显示图片
07-25
显示名称对应的图片
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
05-11
【批量导入图片（精确匹配）】根据选区的文件名瞬间导入所有同名图片到单元格，可以自由设定图片的大小及格式 【批量导入图片（模糊匹配）】与上一工具基本一致，只是在确定图片名称时可以糊模匹配。即选择“张”...
Excel VBA 基础教程
01-01
目 录 一、VBA语言基础...................................................................................................................1 第一节 标识符....................................................
Excel_VBA教程
09-22
7.使用VBA进行链接和嵌入 181 8.COM和自动控制 182 9.了解绑定 182 10.后期绑定 182 11.早期绑定 182 12.建立到对象库的引用 183 13.创建自动控制对象 184 14.使用CREATEOBJECT函数 184 15.使用自动控制创建一个新的...
Excel VBA实用技巧大全 附书源码
10-08
04078获取单元格地址 04079获取单元格区域内的单元格数 04080获取单元格区域的行数 04081获取单元格区域的列数 04082获取单元格的行号 04083获取单元格的列号 04084获取单元格的列标字母 04085获取指定列号单元格的...
python+vba解决excel中图片数据无法完美导入到word模板的问题
weixin_38247938的博客
11-04 904
python加vba解决将excel中数据导入到word中（包含图片） 欢迎使用Markdown编辑器 你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。 新的改变 我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下...
EXCEL VBA批量下载URL链接地址图片、URL链接地址图片转为图片
热门推荐
sdy的博客
09-06 2万+
在EXCEL里，需要大量引用网上链接图片，例如python的爬虫把图片链接爬取之后，需要在EXCEL内展示图片，可以使用VBA批量将URL链接地址图片转为图片； 1.复制以下代码到VBA内，（不知道VBA是什么的传送门：https://blog.csdn.net/weixin_39416561/article/details/82428684） Sub 链接转图片() For Each R...
angular中如何添加config配置文件_HTML中添加图片的代码是什么？html如何正确的添加图片路径？
weixin_39639049的博客
11-22 132
首先我们先认识一下html中添加图片的代码：html中添加图片的就是<img>标签，是一个单标签，是可以从任何地方拉来图片添加的，但是你得正确的确定添加图片的路径，不然就显示不出来图片，这就是我们今天要说的两个知识点。我们先认识一下img标签的正确用法，这样才能确定怎么添加图片。一般添加图片的语法如下：> <img src="url">如上，src属性是img中必备的...
vba 提取网页链接地址
05-15
VBA是一种基于Visual Basic的编程语言，可以用于自动化Excel和其他Microsoft Office应用程序。通过VBA，我们可以编写代码来从网页抓取数据，如提取网页链接地址。 在使用VBA提取网页链接地址之前，我们需要了解一些基本概念。一个链接由两部分组成：URL和锚文本。URL是指链接指向的网页地址，而锚文本则是在页面上显示的可点击文本，通常显示为蓝色并带有下划线。在代码中，我们可以通过获取页面上的所有链接元素，然后将它们的地址提取出来。 以下是一个简单的VBA代码示例，用于提取网页上所有链接的URL地址： Sub GetLinks() Dim doc As New MSHTML.HTMLDocument Dim link As MSHTML.HTMLLinkElement Dim i As Integer '获取当前文档url Dim url As String url = ActiveWorkbook.ActiveSheet.Cells(1, 1).Value '创建一个HTML文档对象 With CreateObject("MSXML2.XMLHTTP") .Open "GET", url, False .send doc.body.innerHTML = .responseText End With '遍历所有链接元素 For Each link In doc.Links If link.href <> "" Then '输出链接地址 ActiveWorkbook.ActiveSheet.Cells(i + 2, 1).Value = link.href i = i + 1 End If Next link Set doc = Nothing End Sub 上述代码先从当前Excel表格中获取一个URL地址，然后创建一个HTML文档对象并载入该地址所对应的网页内容。接着，通过遍历链接元素，将它们的地址输出到Excel表格中。需要注意的是，该代码只能在安装了Microsoft HTML Object Library的计算机上运行，因为它需要使用MSHTML对象模型来解析HTML文档。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值