如何批量将图片嵌入单元格中

学习js宏

我看你用的应该是wps吧 ，js宏可以的

1. function test()
   
2. {
   
3.         Range("a1").RangeEx.InsertCellPicture("C:\\Users\\Administrator\\Desktop\\1.png")
   
4. }

复制代码

过客fppt

fxl447098457 发表于 2024-8-15 10:23
Sub 放置单元格上方的图片改为嵌入单元格()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes

大佬好，这两个代码在WPS的VBA中提示出错喔

fxl447098457

过客fppt 发表于 2024-8-15 11:30
大佬好，这两个代码在WPS的VBA中提示出错喔

这个代码只是用于新版的ms office，wps vba里没有添加相关对象接口。

过客fppt

fxl447098457 发表于 2024-8-15 12:16
这个代码只是用于新版的ms office，wps vba里没有添加相关对象接口。

原来如此，谢谢大佬解惑

木槿花西月锦绣

fxl447098457 发表于 2024-8-15 10:23
Sub 放置单元格上方的图片改为嵌入单元格()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes

office 365 为啥运行代码后没有变化，也不报错

fxl447098457

木槿花西月锦绣 发表于 2024-8-15 13:21
office 365 为啥运行代码后没有变化，也不报错

我这边测试跑通了的,没啥问题。

木槿花西月锦绣

fxl447098457 发表于 2024-8-15 13:37
我这边测试跑通了的,没啥问题。

搞不懂怎么回事儿，百度了半天也没查到原因

fxl447098457

木槿花西月锦绣 发表于 2024-8-15 15:09
搞不懂怎么回事儿，百度了半天也没查到原因

我用的是楼主的例子。如果你使用自己的文件可以传上来我看下,或者你更新下365版本再试试。

木槿花西月锦绣

fxl447098457 发表于 2024-8-15 15:13
我用的是楼主的例子。如果你使用自己的文件可以传上来我看下,或者你更新下365版本再试试。

手工更新了一下office，ok了，十分感谢！！

xiangheping

木槿花西月锦绣 发表于 2024-8-15 15:38
手工更新了一下office，ok了，十分感谢！！

大佬告诉下怎么更新