[已解决]请教用VB做超级链接问题

xyh2732 · 发表于 2010-4-27 14:38

请问一下，如果可以用VB代码设置在A列中输入内容，双击A列单元格可以弹出图片文件夹对应名字的图片。比如我双击A2,电脑自动打开图片文件夹1图片。应为我有好多要连接，所以需要用到VB的超级链接。谢谢帮忙。

N2NoskjQ.rar (7.66 KB, 下载次数: 26)

Zipall · 发表于 2010-4-27 14:58

直接用1个IMG控件就可以了。

0k81h6v7.rar (23.64 KB, 下载次数: 29)

Zipall · 发表于 2010-4-27 15:10

这样写可能更好点，让那个IMG控件随单元格位置的不同而移动。

Private Sub Image1_Click()
Image1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo e
    With ActiveCell
        If .Column = 1 Then
            Image1.Picture = LoadPicture(ThisWorkbook.Path & "\图片\" & .Value & ".jpg")
            Image1.Top = .Top + .Height
            Image1.Left = .Left + .Width
            Image1.Visible = True
            Else
e:          Image1.Visible = False
        End If
    End With
End Sub

[此贴子已经被作者于2010-4-27 15:12:47编辑过]

xyh2732 · 发表于 2010-4-27 15:11

效果不错，可是不是我想要的！还有其他办法吗。谢谢你的帮忙

Zipall · 发表于 2010-4-27 15:14

能不能具体说说“你要的”是什么？

小线 · 发表于 2010-4-27 15:25

若用超链接,就不应该是双击,而应该是单击.

小线 · 发表于 2010-4-27 15:25

其实要想用超链接,用函数都可以解决.

Zipall · 发表于 2010-4-27 15:27

难道是这个意思？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    With ActiveCell
        If .Column = 1 Then Call Shell("explorer " & ThisWorkbook.Path & "\图片\" & .Value & ".jpg", vbNormalFocus)
    End With
End Sub

xyh2732 · 发表于 2010-4-27 15:28

谢谢你的帮忙。。你拿个效果也很好。不过我是要打印图片。所以可以做到超级链接的效果最好

小线 · 发表于 2010-4-27 15:32

KXrt7m2u.rar (8.42 KB, 下载次数: 126)

		自动登录	找回密码
密码			注册