急!!excel在单元格中插入图片,图片大小自动与单元格一致
需要把文件夹中的图片根据名称插入到相对应名称的excel单元格中,一行对应一张图片。如果插入的图片一张张调整大小,很麻烦。求一种方法,把插入的图片自动调整到单元格大小~~...
需要把文件夹中的图片根据名称插入到相对应名称的excel单元格中,一行对应一张图片。如果插入的图片一张张调整大小,很麻烦。求一种方法,把插入的图片自动调整到单元格大小~~非常感谢
展开
2个回答
展开全部
插入图片后,右键图片--属性--勾选“大小随单元格变化”
列 :EXCEL表格,A列是产品图片,B列是货号,能否在B列输入货号(如123)的同时把放在E:\tmp目录下的相应货号的JPG图片调出来,且大小与A列单元格完全相符。
用vba,按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可
Sub addpicture()
Dim FirstRow, LastRow As Integer, FileType As String
FirstRow = Sheet1.UsedRange.Row
LastRow = FirstRow + Sheet1.UsedRange.Rows.Count - 1
FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg")
For i = FirstRow To LastRow
Numb = Cells(i, 2).Value
With ActiveSheet
.Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select
Set Target = .Cells(i, 1)
End With
With Selection
.Top = Target.Top + 1
.Left = Target.Left + 1
.Width = Target.Width - 1
.Height = Target.Height - 1
End With
Next i
End Sub
说明,图片文件夹 图片文件名与输入货号一致。
列 :EXCEL表格,A列是产品图片,B列是货号,能否在B列输入货号(如123)的同时把放在E:\tmp目录下的相应货号的JPG图片调出来,且大小与A列单元格完全相符。
用vba,按下ALT+F11,菜单:插入-模块,复制下面代码至代码框.按F5即可
Sub addpicture()
Dim FirstRow, LastRow As Integer, FileType As String
FirstRow = Sheet1.UsedRange.Row
LastRow = FirstRow + Sheet1.UsedRange.Rows.Count - 1
FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg")
For i = FirstRow To LastRow
Numb = Cells(i, 2).Value
With ActiveSheet
.Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select
Set Target = .Cells(i, 1)
End With
With Selection
.Top = Target.Top + 1
.Left = Target.Left + 1
.Width = Target.Width - 1
.Height = Target.Height - 1
End With
Next i
End Sub
说明,图片文件夹 图片文件名与输入货号一致。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询