[已解决]如何根据图片路径加载相应图片

free1024 · 发表于 2011-10-14 23:45

各位高手，小弟想请教一个问题：附件中,我第一个按钮（加载整改图像），点击时会出现一个对话框，然后选择此文件夹下的部分或者全部图片都可以，选择完后，图片会自动加载到B列中并自动调整其大小，A列显示B列图像的相应路径，那么此时，我们将B列中的图像全部选中，然后删除，这时B列已经清空了，但是A列的值没有清空，我就是想通过点击第二个按钮（加载反馈图片）时，打开一个对话框，然后选择此文件夹下的部分或者全部图片，回车，之后此文件夹下被选中的图片会根据A列的路径值，自动对应到C列。如果A列路径与对话框中图片路径不一致时，以A列提供的路径为准。

批量加载图片自己.rar (554.12 KB, 下载次数: 201)

zjdh · 发表于 2011-10-15 10:23

按你的思路修改：

Private Sub CommandButton2_Click()
Dim I%, P$
On Error Resume Next
Sheet2.Columns("C").ColumnWidth = 18.88
For I = 1 To Range("A65536").End(xlUp).Row
P = Range("A" & I)
Sheet2.Range("C" & I).Select
ActiveSheet.Pictures.Insert(P).Select
With Selection
.IncrementLeft 2
.ShapeRange.IncrementTop 2
.ShapeRange.LockAspectRatio = 0
.ShapeRange.Width = 113
.ShapeRange.Height = 87
End With
Next
MsgBox "图像加载完毕"
End Sub

复制代码

free1024 · 发表于 2011-10-15 12:29

回复 zjdh 的帖子

虽然没有以打开对话框的形式选择图片，但毕竟解决问题了，同样感谢您的解答。。。{:071:}

zjdh · 发表于 2011-10-15 12:57

本帖最后由 zjdh 于 2011-10-15 12:59 编辑

既然以A列提供的路径为准。
在此打开对话框的形式选择图片就是多余的！
是特意取消的！

zjdh · 发表于 2011-10-15 13:03

本帖最后由 zjdh 于 2011-10-15 13:03 编辑

提供一段删除图片的语句：

For Each PIC In ActiveSheet.Pictures '删除所有图片
If PIC.Name Like ("Picture*") Then PIC.Delete
Next

复制代码

free1024 · 发表于 2011-10-15 15:56

回复 zjdh 的帖子

好的，谢谢提供，通过你的指点，我自己也修改了代码，打开对话框的确多余，不过暂切先用着吧。再次感谢。{:101:}

		自动登录	找回密码
密码			注册