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

阿红红123

大佬们，求助：有很多图片，但是没有嵌入单元格中，如果批量嵌入？如图

xlgw521

用第三方插件导入， 比如 方方格子

阿红红123

xlgw521 发表于 2021-3-15 17:49
用第三方插件导入， 比如 方方格子

图片数据是系统直接导出来就存在的，不是插入的

hnsd24

这个问题几乎无解啊。我这两天也正在研究。问过官方了，目前看来除了手动操作，没有可行的办法

阿红红123

hnsd24 发表于 2021-3-15 18:48
这个问题几乎无解啊。我这两天也正在研究。问过官方了，目前看来除了手动操作，没有可行的办法

我找到解决方法了，用excel，全选对，右键设置图片格式，在属性一栏选中第一个就可以了

hnsd24

阿红红123 发表于 2021-3-15 21:58
我找到解决方法了，用excel，全选对，右键设置图片格式，在属性一栏选中第一个就可以了

在属性一栏选中第一个是什么意思？

WilsonJ

hnsd24 发表于 2021-3-15 18:48
这个问题几乎无解啊。我这两天也正在研究。问过官方了，目前看来除了手动操作，没有可行的办法

你好，这个问题有自动化的解决方案了不？

过客fppt

WilsonJ 发表于 2024-8-15 09:45
你好，这个问题有自动化的解决方案了不？

当然可以解决

fxl447098457

Sub 放置单元格上方的图片改为嵌入单元格()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    shp.Select
    shp.PlacePictureInCell
Next

End Sub
Sub 嵌入的图片改为放置单元格上方()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.HasRichDataType Then
r.PlacePictureOverCells
End If
Next
End Sub
直接向单元格里插入嵌入图片使用Range.InsertPictureInCell'

过客fppt

WilsonJ 发表于 2024-8-15 09:45
你好，这个问题有自动化的解决方案了不？

在wps中，用插件调整好图片大小后，就可以批量嵌入了