如何用vba代码将超链接地址中的图片插入到工作表中？

作者：绿色风分类：时间：2022-08-17 浏览：69

楼主 kevinchengcw	Q: 如何用vba代码将超链接地址中的图片插入到工作表中？ A: 代码如下： Sub test() Dim HLK As Hyperlink, Rng As Range For Each HLK In ActiveSheet.Hyperlinks '循环活动工作表中的各个超链接 If HLK.Address Like ".jpg" Or HLK.Address Like ".gif" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断) Set Rng = HLK.Parent.Offset(, 1) '设定插入目标图片的位置 With ActiveSheet.Pictures.Insert(HLK.Address) '插入链接地址中的图片 If .Height / .Width > Rng.Height / Rng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例 .Top = Rng.Top .Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2 .Width = .Width * Rng.Height / .Height .Height = Rng.Height Else .Left = Rng.Left .Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2 .Height = .Height * Rng.Width / .Width .Width = Rng.Width End If End With End If Next End Sub 详见附件及素材源帖. 网络图片链接转图片.rar
2楼 lnt1231	这个很不错,学习下.
3楼 ffdd977	oooO ↘┏━┓ ↙ Oooo ( 踩)→┃踩┃ ←(踩 ) & e2 B) q T; ~& R- H \ ( → ┃√┃ ← ) / 3 {* E8 Y7 r$ R" c' ] \_ )↗┗━┛↖(_ /

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表