如何运用VBA获取文档中高度最高的图片的链接地址呢？

作者：绿色风分类：时间：2022-08-18 浏览：108

楼主
0Mouse

Q：如何运用VBA获取文档中高度最高的图片的链接地址呢？
问题描述：
某WORD文档中：
1、有若干个照片，每张都有链接；
2、有文字，某些文字也有链接。
我只想取照片中高度最高的那张照片的链接地址，请问VBA如何写哈？
示例截图：

A：代码如下：

Sub 运用VBA获取文档中高度最高的图片的链接地址()
Dim shp As InlineShape, temp1 As Double, temp2$, Hgt As Double, Addr$
For Each shp In ActiveDocument.InlineShapes
If shp.Type = 3 Then '如果是嵌入式图片
temp1 = shp.Height '将图片的高度值赋值给temp1变量
On Error Resume Next
temp2 = shp.Range.Hyperlinks(1).Address '将图片的链接地址赋值给temp2变量
Err.Clear
If temp2 <> "" And temp1 > Hgt Then '如果存在链接地址且高度值大于已有的Hgt
Hgt = temp1
Addr = temp2
End If
temp1 = 0: temp2 = ""
End If
Next
MsgBox "目标链接地址是：" & Addr
End Sub

附件：

运用VBA获取文档中高度最高的图片的链接地址.rar

2楼
云龙

辛苦了，顶起

免责声明

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

评论列表