WPS中如何批量匹配图片和货号

wps同时选中多张图片的方法有： 一、单击开始----选择----选择对象； 二、这时鼠标指针变为箭头形状，在页面上框选，即可同时选中多张图片。 方法二： 一、按住Shift键，用鼠标单击图片，即可同时选中多张图片。 注：若图片的环绕方式为嵌入型时，不能同时选中，必须改为非嵌入式环绕方式，可以通过下面的方法改变其环绕方式。 选中图片，单击图片工具----环绕按钮，在d出下拉选项中选择一种非嵌入方式即可

Sub batch_pic()

On Error Resume Next

Dim my_Link, my_Pic As String

my_Link = "D:\PHOE\2015夏"

my_Pic = Dir(my_Link & "\" & "*.jpg")

Dim i As Single

i = 2

Do While Len(my_Pic) <> 0

Cells(i, 1) = my_Pic

Cells(i, 3).Select

ActiveSheet.Pictures.Insert (my_Link & "\" & my_Pic)

Worksheets(1).Shapes(Worksheets(1).Shapes.Count).Width = Cells(i, 3).Width

Worksheets(1).Shapes(Worksheets(1).Shapes.Count).Height = Cells(i, 3).Height

i = i + 1

my_Pic = Dir

Loop

End Sub

---