Function FindImage(picname) As Object    '根据A列名称找到B列图片
    '单元格查找
    Dim e As Shape
    For Each e In Sheet2.Shapes
        If e.TopLeftCell.Offset(0, -1) = picname Then
            Set FindImage = e
            Exit Function
        End If
    Next
    Set FindImage = Nothing
End Function