Excel 怎样让照片粘贴到对应到电子表格中
发布网友
发布时间：2022-02-22 07:23
共1个回答
热心网友
时间：2022-02-22 08:52
有一种方法是把图片的名称改成 单元格的内容 比如 单元格里是 数值代码 123 那么图片的名字也是123 用宏
Sub 贴图片()
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
If fd.Show = -1 Then
t = fd.SelectedItems(1) '选择之后就记录这个文件夹名称
Else
Exit Sub '否则就退出程序
End If
On Error Resume Next
Dim MR As Range
For Each MR In Selection
If Not IsEmpty(MR) Then
MR.Select
ML = MR.Left
MT = MR.Top
MW = MR.Width
MH = MR.Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Selection.ShapeRange.Fill.UserPicture _
path_str & MR.Value & ".jpg"
End If
Next
End Sub
可以直接进行批量的导入图片 并且图片大小于单元格一致
