|
发表于 2012-3-20 17:50
|
显示全部楼层
本楼为最佳答案
本帖最后由 zjdh 于 2012-3-20 18:03 编辑
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim shp As Shape
- Dim n As Long
- If Target.Address = "$B$4" Then
- ActiveSheet.Pictures.Delete
- PC = Dir(ThisWorkbook.Path & "\图片" & Target.Text & ".jpg")
- If Not PC = "" Then
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\图片" & Target.Text & ".jpg", msoFalse, msoTrue, Range("n18").Left, Range("n18").Top, Range("n18:t26").Width, Range("n18:t26").Height
- Else
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\图片\没有图片.jpg", msoFalse, msoTrue, Range("n18").Left, Range("n18").Top, Range("n18:t26").Width, Range("n18:t26").Height
- End If
- PC = Dir(ThisWorkbook.Path & "\身份证" & Target.Text & "-正.jpg")
- If Not PC = "" Then
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\身份证" & Target.Text & "-正.jpg", msoFalse, msoTrue, Range("a19").Left, Range("f19").Top, Range("a19:f19").Width, Range("a19:f28").Height
- Else
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\身份证\没有图片-正.jpg", msoFalse, msoTrue, Range("a19").Left, Range("f19").Top, Range("a19:f19").Width, Range("a19:f28").Height
- End If
- PC = Dir(ThisWorkbook.Path & "\身份证" & Target.Text & "-反.jpg")
- If Not PC = "" Then
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\身份证" & Target.Text & "-反.jpg", msoFalse, msoTrue, Range("a29").Left, Range("f29").Top, Range("a29:f29").Width, Range("a29:f38").Height
- Else
- Sheet83.Shapes.AddPicture ThisWorkbook.Path & "\身份证\没有图片-反.jpg", msoFalse, msoTrue, Range("a29").Left, Range("f29").Top, Range("a29:f29").Width, Range("a29:f38").Height
- End If
- End If
- Exit Sub
- End Sub
复制代码 |
|