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
可以直接进行批量的导入图片并且图片大小于单元格一致

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com