[已解决]代码老是出错，想加一个IF语句，但不会，请帮忙

Joli520

当sheets1 的F3单元格所选择编号的图片不存在时，就会出现错误，可能是少了一句判断没有图片时的代码，但对于代码，本人还不会，所以请各位帮忙检查或代完善下。（注：原代码仍网上下载的）
另外，如果我想加一段清空的代码，要怎么写？清空单元格的代码，我可以通过录制宏所得，但如果要清空图片，我就不会了。麻烦帮忙下
详情见附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-3 22:08

Book10.rar (31.19 KB, 下载次数: 21)

2013-7-3 22:08 上传

点击文件名下载附件

跳转到最佳答案楼层

妞叫七七

添加下面红色字段的语句
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 100
If Target.Address = "$F$3" Then
Dim Pic As Object, PicPathAndName As String, PicFolder As String
Dim PicT As Integer, PicL As Integer, PicH As Integer, PicW As Integer

'图片文件夹名称
PicFolder = "员工相片"
'所选图片路径
PicPathAndName = ThisWorkbook.Path & "\" & PicFolder & "\" & Range("F3") & ".jpg"

Set Pic = ActiveSheet.Shapes("pic")
'原图片的位置和大小
With Pic
    PicT = .Top
    PicL = .Left
    PicH = .Height
    PicW = .Width
End With
'删除原图片
Pic.Delete

'插入所选图片
Set Pic = ActiveSheet.Shapes.AddPicture(Filename:=PicPathAndName, LinkToFile:=msoFalse, _
      SaveWithDocument:=msoTrue, Left:=PicL, Top:=PicT, Width:=PicW, Height:=PicH)
'设置图片名称
Pic.Name = "pic"
End If
If Dir("员工相片") = "" Then
MsgBox "没有找到图片"
End If
Set Pic = Nothing
Exit Sub
100
MsgBox "没有图片"
End Sub

hwc2ycy

图片输出在哪个位置？

我心飞翔410

最近 七七 一军崛起嘛

Joli520

hwc2ycy 发表于 2013-7-2 23:05
图片输出在哪个位置？

您好，图片在C4单元格显示。

Joli520

妞叫七七 发表于 2013-7-2 22:51
添加下面红色字段的语句
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 100

您好，还是不行。当图片文件夹（员工相片）中没有对应编号的相片时，连前面有对应编号相片的也显示不了了。麻烦再帮改改。图片固定在C4单元格显示.还有，当有图片显示时，也会提示“没有图片”，不知道为什么。

hwc2ycy

Book10.rar (31.19 KB, 下载次数: 21)

2013-7-3 22:08 上传

点击文件名下载附件

Joli520

hwc2ycy 发表于 2013-7-3 22:08

谢谢你了

hwc2ycy

Joli520 发表于 2013-7-4 08:51
谢谢你了

你用图片的方法不如直接用形状，然后设置图案为你的文件，这样简单，而且也好用。

Joli520

hwc2ycy 发表于 2013-7-4 08:58
你用图片的方法不如直接用形状，然后设置图案为你的文件，这样简单，而且也好用。

直接用图形要怎么用？