CEL怎么自动匹配文件夹图片

ZMM2017

CEL怎么自动匹配文件夹图片,请赐教

爱疯

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    ActiveSheet.Pictures.Delete
    Call ImportPic
End Sub

Sub ImportPic()
    Dim p, f
    p = ThisWorkbook.Path & "\"
    f = [A9] & ".jpg"
    If Dir(p & f) <> "" Then
        With [Q7:R15]
            Me.Shapes.AddPicture filename:=p & f, _
                                 LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
                                 Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height
        End With
    End If
End Sub



案例模板3.rar (402.04 KB, 下载次数: 19)

2017-2-15 10:31 上传

点击文件名下载附件