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

时间:2013-06-03 02:24:31

标签: image excel vba colors image-size

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

  1. 使用文件名从B列的硬盘驱动器插入图像 在A栏中列出。
  2. 搜索文件的第二个版本 存在。例如。如果我插入“abc.png”,搜索“1_abc.png” 存在。如果存在第二个版本,请用颜色标记列。
  3. 比较两个文件的大小,如果大小为“abc.png”和 “1_abc.png”不一样,在C栏中写了一个推荐。
  4. 谢谢你的帮助!

1 个答案:

答案 0 :(得分:0)

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

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