[已解决]插入的图片怎么生成超链接？

张雄友

生成超链接问题。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-17 15:34

张雄友 发表于 2016-6-17 15:22
生成超链接后能不能强制用内置工具打开图片？

这个用VBA代码来实现我倒还真没做过，你手动加入超链接点击打开是用IE的还是图片工具的？如果手动创建的链接也是通过IE打开的，那就是系统设置问题，这个你自己百度找找答案看，如果手动创建的链接是图片工具，VBA代码创建的打开是IE，那就是程序问题，我再找原因！

跳转到最佳答案楼层

老司机带带我

链接到对应的图片？

1. Option Explicit
   
2. 
   
3. Sub cmdStart()
   
4.      Dim pic As Object
   
5.      Dim strFolderName As String
   
6.      Dim strFilePath As String
   
7.      Dim i As Long
   
8.      Application.ScreenUpdating = False
   
9.      With Application.FileDialog(msoFileDialogFolderPicker)
   
10.          If .Show = True Then
    
11.              strFolderName = .SelectedItems(1) & ""
    
12.          End If
    
13.      End With
    
14.      For i = 1 To ActiveSheet.Range("B65536").End(3).Row
    
15.          strFilePath = strFolderName & "" & Cells(i, 2) & ".jpg"
    
16.          If Dir(strFilePath, vbDirectory) <> vbNullString Then
    
17.             With ActiveSheet.Cells(i, 2) '根据B列文字插入图片，但怎么插入图片后，点击图片就能实现超链接？
    
18.                  Set pic = ActiveSheet.Shapes.AddPicture(Filename:=strFilePath, LinkToFile:=msoFalse, _
    
19.                                  SaveWithDocument:=msoTrue, Left:=.Left, _
    
20.                                  Top:=.Top, Width:=.Width, Height:=.Height)
    
21.                 ActiveSheet.Hyperlinks.Add Anchor:=pic, Address:=Cells(i, 2) & ".jpg"
    
22.                      'pic.Select
    
23.              End With
    
24.          End If
    
25.      Next i
    
26.      Excel.Application.ScreenUpdating = True
    
27.      Set pic = Nothing
    
28. End Sub

复制代码

qqyyh

学习了！！！

张雄友

老司机带带我 发表于 2016-6-17 08:40
链接到对应的图片？

怎么点击超链接图片时是用浏览器打开的，不是图片自带工具打开的？如ACDSee打开的？？？

张雄友

老司机带带我 发表于 2016-6-17 08:40
链接到对应的图片？

怎么点击超链接图片时是用浏览器打开的，不是图片自带工具打开的？如ACDSee打开的？？？

老司机带带我

张雄友 发表于 2016-6-17 11:32
怎么点击超链接图片时是用浏览器打开的，不是图片自带工具打开的？如ACDSee打开的？？？

我这边正常，这个跟代码应该没关系吧！

张雄友

老司机带带我 发表于 2016-6-17 11:40
我这边正常，这个跟代码应该没关系吧！

真是奇怪，我二台电脑不同系统也是用浏览器打开图片……的

张雄友

老司机带带我 发表于 2016-6-17 08:40
链接到对应的图片？

生成超链接后能不能强制用内置工具打开图片？

老司机带带我

张雄友 发表于 2016-6-17 15:22
生成超链接后能不能强制用内置工具打开图片？

这个用VBA代码来实现我倒还真没做过，你手动加入超链接点击打开是用IE的还是图片工具的？如果手动创建的链接也是通过IE打开的，那就是系统设置问题，这个你自己百度找找答案看，如果手动创建的链接是图片工具，VBA代码创建的打开是IE，那就是程序问题，我再找原因！

张雄友

老司机带带我 发表于 2016-6-17 15:34
这个用VBA代码来实现我倒还真没做过，你手动加入超链接点击打开是用IE的还是图片工具的？如果手动创建的链 ...

手动打开也是浏览器显示的，可能是系统问题！