excel 怎么把插入的图片自动缩放成单元格的大小
请教详细方法或教程,图很大,单元格小,希望把图插入时就变成单元格这么小,谢谢wwj805,但我的单元格大小是固定的,只是想插入的时候就变成单元格大小,就这一个功能,只希望...
请教详细方法或教程,图很大,单元格小,希望把图插入时就变成单元格这么小,谢谢wwj805,但我的单元格大小是固定的,只是想插入的时候就变成单元格大小,就这一个功能,只希望电脑自动缩放,几千张图,我一个一个去缩放,不累死啊,用VBA的话,请给个能用的代码,谢谢
展开
8个回答
展开全部
把图片复制到单元格,调整单元格大小至适合图片,可用ALT键+鼠标挪动图片,以锚定左上角,再调整右下角单元格至图片等于单元格大小。
然后右键图片,选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。
以下是你需的VBA代码,你可以用宏录制一个快捷键,删除中间代码。每在当前单元格插入一张图片,就执行一次宏。
Sub InsertPic()
cColumn = ActiveCell.Column
rRow = ActiveCell.Row
n = Sheet1.Shapes.Count
ActiveSheet.Shapes("Picture " & n).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = ActiveSheet.Columns(cColumn).ColumnWidth * 6.44
Selection.ShapeRange.Height = ActiveSheet.Rows(rRow).RowHeight
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Sub
然后右键图片,选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。
以下是你需的VBA代码,你可以用宏录制一个快捷键,删除中间代码。每在当前单元格插入一张图片,就执行一次宏。
Sub InsertPic()
cColumn = ActiveCell.Column
rRow = ActiveCell.Row
n = Sheet1.Shapes.Count
ActiveSheet.Shapes("Picture " & n).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = ActiveSheet.Columns(cColumn).ColumnWidth * 6.44
Selection.ShapeRange.Height = ActiveSheet.Rows(rRow).RowHeight
With Selection
.Placement = xlMoveAndSize
.PrintObject = True
End With
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以先插入一个图片,用alt缩放到你要求的单元格里面,完成后,在图片属性里面记录下图片的宽和高
再去插入替他的图片,插入完成后,可以按shift选中多个图片统一设定大小的,一次性就完成了啊
再去插入替他的图片,插入完成后,可以按shift选中多个图片统一设定大小的,一次性就完成了啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
1.批处理你的图片,调整成固定高度,置于独立文件夹中备用。
2.选定单元格,单击工具栏:插入-图片-来自文件,导入一张图片。
3.选定图片所在行,单击工具栏:格式-行-行高,调整至适合图片的行高。
4.选定图片所在行,单击工具栏:格式刷,刷选其他需要导入图片的行,完成调整所有的行高。
2.选定单元格,单击工具栏:插入-图片-来自文件,导入一张图片。
3.选定图片所在行,单击工具栏:格式-行-行高,调整至适合图片的行高。
4.选定图片所在行,单击工具栏:格式刷,刷选其他需要导入图片的行,完成调整所有的行高。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询