VBA如何复制当前Image1显示的图片
答案:2 悬赏:10 手机版
解决时间 2021-02-15 04:57
- 提问者网友：风月客
- 2021-02-14 11:49
VBA如何复制当前Image1显示的图片
最佳答案
- 五星知识达人网友：杯酒困英雄
- 2021-02-14 13:28
这个得查看代码，看一下代码上的image1引用的图片来自于哪个文件路径，复制文件路径下的图片即可
全部回答
- 1楼网友：痴妹与他
- 2021-02-14 14:27
假设所有需要显示的图片都但在f:\图库\文件夹中，excel中有一表中输入了这些文件名(不含扩展名)，要求：点击工作表中文件名就显示图片
1.插入image1控件
2.alt+f11,将程序粘贴到本工作表模块中
private
sub worksheet_selectionchange(byval target as range)
dim strx as string
strx = "f:\图库\" & selection.value & ".jpg"
if dir(strx) = "" then
image1.picture = loadpicture
exit sub
else
image1.picture = loadpicture(strx)
end if
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯