摘要:
Sub LoadImage() Dim HLK As Hyperlink, Rng As Range For Each HLK In ActiveSheet.Hyperlinks '循环活动工作表中的各个超链接 If UCase(HLK.Address) Like "*.JPG" Or UCase(HLK.Address) Like "*.JPEG" Or UCase(HL... 阅读全文
posted @ 2018-12-18 14:31 飞行的蟒蛇 阅读(3450) 评论(0) 推荐(0) 编辑