VBA点文字 弹窗显示大图

burce

效果如图

思路：

主表中建立 “样衣编号”/“图”/ 和“图名” 三个字段。

当在明细表中点击 “款式图” 字段时，VBA赋值当前行中的 明细表.样衣编号到 主表.样衣编号字段中 .系统触发 “tu ”的填表公式，下载款式图和名称到本地，

Vba检测到图片下载后再弹出vba窗口将图片加载显示出来。

VBA代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 And Target.Row > 6 Then
Range("N4") = Cells(Target.Row, 2) '将本行的样衣编号赋值给主表的 样衣编号字段 触发表间公式 ，下载款式图到本地。
Dim pth$
Dim rown$
If Range("O4").Value <> "" Then
'款式图下载成功时，在弹窗中显示出来

pth = ThisWorkbook.Path & "\" & Range("O4").Value & ".JPG"  '设置图片路径变量
'MsgBox pth
rown = Target.Row
uf1.Caption = Range("N4").Value & " " & Cells(rown, 3).Value & " " & Cells(rown, 4).Value  '设置图片窗口标题
uf1.P1.Picture = LoadPicture(pth)   '通过路径加载图片
uf1.Show 0  '弹窗显示
End If
Else
Exit Sub
End If
End Sub

小岛1860

好贴，技术贴！感谢分享！

小岛1860

请教下楼主，附件中红字标注的参数是什么意思？

burce

小岛1860 发表于 2017-7-20 15:21
请教下楼主，附件中红字标注的参数是什么意思？

窗口对象的名称 ，弹出窗口 userfrom

小岛1860

多谢楼主，后面我测试过你这个方法，可就是获取图片找不到图片名称，不知道你这个是如何做到的，我前后仔细检查了并和你的方式做了对比，也就是实现不了，我感觉就是图片名称获取不对。

小岛1860

后面我测试过你这个方法，可就是获取图片找不到图片名称，不知道你这个是如何做到的

liunx0003

正需要这样的功能，多谢楼主分享提供。