|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub Prod_AttachPIC() '添加图片
Dim PicFile As FileDialog
With Sheet1
Set PicFile = Application.FileDialog(msoFileDialogFolderPicker)
With PicFile
.Title = "选择展示图片"
.Filters.Add "所有图片格式", "*.jpg, *.jpeg, *.gif, *.png, *.bmp, *.tiff", 1
If .Show <> -1 Then GoTo NoSelect
Sheet1.Range("O14").Value = .SelectedItems(1)
End With
If .Range("B7").Value = False Then Sheet2.Range("K" & Sheet1.Range("B6").Value).Value = .Range("O14").Value
Prod_DisplayPIC
NoSelect:
End With
End Sub
|
|