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

fieldset{padding:10px;}

求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勇于接受自己的失败，告诉自己，这就是自己的现实，

相关文章：

你感兴趣的文章：

标签云：