作者:乔山办公网日期:
返回目录:excel表格制作
不能同时打开多个超链接。
如果路径相同,还可以找出超链接地址找到源图片所在文件夹再先后打印。
地址不同更不能实现了。
详细参见
http://tieba.baidu.com/p/3294291403
若要复自动更新,那么制,需要结合其他的工作表事件来设计zhidao
图片是个URL需要在 Excel 中直接显示百图片,用VBA脚本能够实现,具体编辑方法如下:
1、环活动工作表中的各个超链接,度如果是jpg或gif图片,不是可以通过正则来判断。
2、设定图片的位置,插入地址中的图片。
3、判断图片纵回横比答与单元格纵横比的比值以确定针对单元格缩放的比例。
4、最后删除单元格的图片链接。
Sub xHyperLink()
On Error Resume Next
Dim xs As Shape
For Each xs In ActiveSheet.Shapes '查找每一个图片百
If xs.TopLeftCell.Column = 1 Then '判断图片左度上角单元格位置问,如果在A列答
Cells(xs.TopLeftCell.Row, 2) = xs.Hyperlink.Name '取得图片左上单元格所在行,将图片超链地址写专入对应的B列
End If
Next
End Sub
这样改一下……
重点:要定义shapes 的范围属……