当前位置: 代码迷 >> Office >> 求Vba 为图片添加超链接的代码,该怎么处理
  详细解决方案

求Vba 为图片添加超链接的代码,该怎么处理

热度:5424   发布时间:2013-02-26 00:00:00.0
求Vba 为图片添加超链接的代码
我用vba引入了图片,然后我希望为图片添加一个超链接,同样希望通过vba进行操作,但是我进行了宏录制,手动的给图片加了链接后,在宏中并没有显示。谁能给个demo或者给个代码,多谢!

------解决方案--------------------------------------------------------
我录制后,宏里有代码。

你参考下:
VB code
Sub Macro1()''    ActiveSheet.Shapes("Picture 1").Select    ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:= _        "D:\My Documents\Edit1255.TXT"    Range("J23").Select    Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _        :=TrueEnd Sub
  相关解决方案