贲门怎么读:Excel中显示照片的代码

Sub DisplayPhoto1()

    ' 显示一个打开文件对话框，为当前的雇员记录
    ' 选择一个文件名．如果用户选择了一个文件，
    ' 则将它显示到图像框中
    Dim FileNameAs String
    Dim result As Integer
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItemAs Variant
    With fd
        .Title = "选择雇员照片"
        .Filters.Add "所有文件", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "位图文件", "*.bmp"
        .FilterIndex = 3   '默认显示第3类格式的文件（即*.bmp格式文件）
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.Path  '对话框中初始显示的路径
        result = .Show
        If result <> 0Then
            FileName = .SelectedItems.Item(1)
            ImgPhoto.Picture = LoadPicture(FileName)  '加载图片，ImgPhoto为图像框名称
        End If
    End With
    
    Set fd = Nothing
    
End Sub


Sub DisplayPhoto2()
    '显示一个打开文件对话框，允许选择多个文件，并在消息框中显示每个选定的文件。
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItemAs Variant
    
    With fd
        .Title = "选取个人相片"
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp", 1  '供选择的图像类型
        .AllowMultiSelect = True    '允许多选
        .InitialFileName = CurrentProject.Path  '对话框中初始显示的路径
        If .Show = -1Then
            For Each vrtSelectedItem In .SelectedItems
                MsgBox "你选择的文件是: " & vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With

    Set fd = Nothing

End Sub

Sub DisplayPhoto3()
    Dim bHasPhotoAs Boolean'有无照片
    If Dir(ThisWorkbook.Path & "\photo\" & Sheets("员工名册").Cells(5, 3).Text) = "" Then
        'Cells(5, 3)单元格值为照片的名称
        If bHasPhoto =True Then'如果连续几个都无照片，则不重新加载none.jpg
            ImgPhoto.Picture = LoadPicture(ThisWorkbook.Path & "\photo\none.jpg")
        End If
        bHasPhoto = False
    Else
        ImgPhoto.Picture = LoadPicture(ThisWorkbook.Path & "\photo\" & Sheets("候选名单").Cells(5, 3).Text)  '加载图片
        bHasPhoto = True
    End If
End Sub