Question

求提取或更改excel单元格内图片名称方法

因excel内图片是截图到表格内的，没的规则，所以想把excel内图片名称在表格内显示出来或者进行更改，要批量提取和更改，因图片数量很多，谢谢大侠指点。

Answer 1

用替换试过吗？

追问

点图片，再点查找替换选项，哪个替换是灰色，不好用

Answer 2

vlookup替换

追问

怎样把图片名称替换？我不会啊

Answer 3

使用VBA可以实现，关键是你的图片每次要从哪里去提取？

追问

可以直接设定A列为图片，B列取图片名称就可以，感谢大侠做一个VBA谢谢

追答

你第图片是截图的，名称从哪里来？

追问

图片名称excel是自动生成的，最好能达到批量更改图片名称，图片正确名称是自己设定的，如果能再把更改名称后的图片导出到文件夹，且图片名不变哪就完美了。

追答

完全可以实现的，你最好发个示例文件给我，我可以帮你做下！

追问

您好，下图是需求结果，只要能把excel内图片修改名称，并把图片导出到文件夹内，且导出后的图片名称跟excel内名称相同就可以了。感谢

追答

Dim shap As Shape
Dim i As Integer
With ActiveSheet
For i = 1 To .Shapes.Count
Set shap = .Shapes(i)
shap.Copy
With .ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart
.Paste
.Export "d:\" & ActiveSheet.Range("c" & i + 1) & ".jpg"
.Parent.Delete
End With
Next
End With

追问

请问代码怎么用啊？