技巧114 在员工登记表中自动插入图片(如图片库没有图片怎么办?)

HANHAN417

如图片路径里面没有相关图片文件, VBA会显示错误, 这种情况下如何修改VBA代码, 能够在准备插入图片的单元格显示NO PICTURE, 并且VBA能够继续执行.

谢谢各位高手指点

Sub InsertPic()
    Dim iRow As Single, Shp As Shape, Target As Range
    With ActiveSheet
        For iRow = 4 To .Cells(65536, 1).End(xlUp).Row
            .Pictures.Insert("D:\c-data\桌面\技巧114 在员工登记表中自动插入图片\" & .Cells(iRow, 2) & ".jpg").Select
            Set Target = .Cells(iRow, 3)
            With Selection
                .Top = Target.Top + 1
                .Left = Target.Left + 1
                .Width = Target.Width - 1
                .Height = Target.Height - 1
            End With
        Next
    End With
End Sub

[ 本帖最后由 HANHAN417 于 2009-11-22 00:46 编辑 ]

HANHAN417

多谢各位高手帮忙

HANHAN417

Sub InsertPic()
On Error Resume Next
    Dim iRow As Single, Shp As Shape, Target As Range
    With ActiveSheet
        For iRow = 4 To .Cells(65536, 1).End(xlUp).Row
            .Pictures.Insert("D:\c-data\桌面\技巧114 在员工登记表中自动插入图片\" & .Cells(iRow, 2) & ".jpg").Select
            Set Target = .Cells(iRow, 3)
            With Selection
                .Top = Target.Top + 1
                .Left = Target.Left + 1
                .Width = Target.Width - 1
                .Height = Target.Height - 1
            End With
        Next
    End With
End Sub

loaiky

HANHAN417 发表于 2009-11-23 03:13
Sub InsertPic()
On Error Resume Next
    Dim iRow As Single, Shp As Shape, Target As Range

这个貌似不对。我运行出来的是因为no pic会有图片错位。。。。