image - Excel中的图像插入和大小比较

Question

我想在excel中实现以下，我不确定VBA是否足够。我尝试自己编写代码一天，但可以执行我的代码。有人可以帮忙吗？

1. 在 B 列中插入来自硬盘驱动器的图像，文件名在 A 列中指示。
2. 搜索文件的第二个版本是否存在。例如。如果我插入“abc.png”，搜索“1_abc.png”是否存在。如果存在第二个版本，则用颜色标记列。
3. 比较两个文件的大小，如果“abc.png”和“1_abc.png”的大小不一样，在C栏写一个推荐。

感谢您的帮助！

Answer 1

Sub InsertIcon()'find icon and insert
Dim name As String ' file path of the pic
For a = 1 To 1000
name = Cells(a, 4).Value
'MsgBox (name)
Cells(a, 8).Select
ActiveSheet.Pictures.Insert(name).Select
Selection.ShapeRange.IncrementLeft 40
Selection.ShapeRange.IncrementTop 10
Next
End Sub

这是我用来解决插入问题的代码。