如何用VBA调用不同的image控件

wzway

同一个帖子发错版块了，请大大审核高抬贵手让通过

在一张工作表中，会动态生成很多个image控件，每个控件命名是根据生成的日期，不连续，需要为控件赋予图片，比如

ActiveSheet.Image20220828.Picture = LoadPicture(ThisWorkbook.Path & "\photo\20220828.jpg")
在知道image控件的名称下，用上面的代码可以成功为控件赋图，但是如果想动态的赋图，比如用如下代码
riqi=20220828
ActiveSheet.Image（riqi）.Picture = LoadPicture(ThisWorkbook.Path & "\photo\20220828.jpg")
则不能成功，请问各位大佬，已知每个控件的命名规则都是“image”+一窜日期，如何成功调用每个控件并为其赋予图片？

另外，网上看大家为控件赋图都是用代码
Image1.Picture = LoadPicture(……）
我的必须在前面加一段
ActiveSheet.Image1.Picture = LoadPicture(……）
不知道是为什么，是少安装了什么插件吗？

3190496160

谈一达通，还不如直接上附件，

wzway

3190496160 发表于 2022-11-23 18:11
谈一达通，还不如直接上附件，

内容涉密，要不然我也会直接上附件了

02761752696

关于求助贴的答复效率与发帖规范

https://club.excelhome.net/thread-1647155-1-1.html?_dsign=3b456879

山菊花

1、
riqi=20220828
改为：
riqi= "Image20220828"

2、如何成功调用每个控件并为其赋予图片？
遍历控件

3、不知道是为什么，是少安装了什么插件吗？
代码在控件所在工作表模块中，可以省去前缀ActiveSheet。

wzway

山菊花 发表于 2022-11-24 08:47
1、
riqi=20220828
改为：

感谢你的回复，只是第1点实现并不成功。
    Dim riqi As String
    riqi = "Image" & Cells(1, 4)，‘Cells(1, 4)是个日期
    ActiveSheet.Image(riqi).Picture = LoadPicture(……)
显示对象不支持该属性或方法，【文字抱拳感谢】

山菊花

riqi = "Image" & format(Cells(1, 4),"yyyymmdd")，‘Cells(1, 4)是个日期

wzway

山菊花 发表于 2022-11-24 12:28
riqi = "Image" & format(Cells(1, 4),"yyyymmdd")，‘Cells(1, 4)是个日期

谢谢，仍然不行，显示“溢出”

准提部林

ActiveSheet.DrawingObjects("Image名稱").Object.Picture = LoadPicture(ThisWorkbook.Path & "\图片名稱.JPG")