单元格引用图片

①然如故 · 发表于 2021-1-5 13:13

本帖最后由 ①然如故于 2021-1-5 13:30 编辑

ivccav 发表于 2020-12-27 21:37
单元格的尺寸单位和窗体中控件的不一样，不好转换，设置得差不多就行了。

ivccav老师您好，这个能否实现请看动画（就是每次点P列跌跳出UserForm窗体，就自动显示多个图片供选择）我在代码中加了这两句On Error Resume Next SendKeys "%{down}" 第一次打开时可以，第二次点P列就不行，请您帮我看如何才能实现。

ivccav · 发表于 2021-1-5 20:01

①然如故发表于 2021-1-5 13:13
ivccav老师您好，这个能否实现请看动画（就是每次点P列跌跳出UserForm窗体，就自动显示多个图片供选择） ...

单元格下拉图片.zip (122.15 KB, 下载次数: 22)

xiaomils · 发表于 2021-1-5 20:45

热心人多，学习了！

①然如故 · 发表于 2021-1-5 21:00

本帖最后由 ①然如故于 2021-1-5 22:17 编辑

ivccav 发表于 2021-1-5 20:01

ivccav老师您好，就是要这样的效果，请帮添加在这工作簿上并注明新增代码，谢谢！

单元格下拉图片0105.rar (79.19 KB, 下载次数: 11)

①然如故 · 发表于 2021-1-5 21:13

ivccav 发表于 2021-1-5 20:01

ivccav老师您好，我找到了新增部分是下面这三句吗，我添加到实际工作簿中可以使用了，非常感谢您耐心的帮助，菜鸟感激涕零。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const CB_SHOWDROPDOWN = &H14F

SendMessage .ImageCombo1.hwnd, CB_SHOWDROPDOWN, True, 0

ivccav · 发表于 2021-1-5 23:14

①然如故发表于 2021-1-5 21:13
ivccav老师您好，我找到了新增部分是下面这三句吗，我添加到实际工作簿中可以使用了，非常感谢您耐心的帮 ...

是的，你已经找对了。总共加了3句代码。

①然如故 · 发表于 2021-1-5 23:17

ivccav 发表于 2021-1-5 20:01

ivccav老师您好，运行时偶尔出现“1004”要怎么调整才能正常。

zpy2 · 发表于 2021-1-6 08:54

①然如故发表于 2021-1-5 23:17
ivccav老师您好，运行时偶尔出现“1004”要怎么调整才能正常。

http://club.excelhome.net/forum.php?mod=viewthread&tid=1559640&page=2&mobile=#pid10544808
动态界面，js也不错的。控件兼容性要求比较高。

vbadosome · 发表于 2021-1-6 09:19

学习，学习

aecn · 发表于 2021-1-6 10:36

ivccav老师真牛

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

[已解决] 单元格引用图片

评分

评分

评分