如何在EXCEL表中插入照片,很多很多照片,怎么弄?

2025-01-28 09:50:42
推荐回答(3个)
回答1:

试试这个方法或许有用:在插入照片后(在照片被选取的状态下),在照片上点右键选“设置图片格式”→“大小”,调整“比例”选项的值,可改变图片的大小,(此时文档会很大 ,则需在“图片”界面选“压缩”,)“确认”后将图片拖到需要放置的单元格即可。

回答2:

不知道要求在Excel里面图片大小如何,如果要求在Excel里面比较小,在屏幕下都能看到全景的话:

建议:
先用图像观看软件批量性的讲图片改小,再插入Excel中
例如流行看图软件 ACDSee相片管理器就有批量变小的功能。

注意:
如果图片全都插入后Excel文档会变得很大,这个时候需要压缩图片

回答3:

转载:

你可以设个宏

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpeg").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".gif").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".jpe").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
ActiveSheet.Pictures.Insert("C:\temp\" & Target.Text & ".BMP").Select 'Insert Pictures"
Selection.Name = Target.Text 'Picture name
Selection.ShapeRange.LockAspectRatio = msoFalse '
Selection.ShapeRange.Height = Target.Height 'H
Selection.ShapeRange.Width = Target.Width 'W
Selection.ShapeRange.Top = Target.Top 'Top
Selection.ShapeRange.Left = Target.Left 'Left
End Sub