贲门怎么读: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