EXCEL设置图片插入时自动压缩到设定大小
发布网友
发布时间：2022-04-29 12:58
共1个回答
热心网友
时间：2022-05-09 12:43
下面这个代码可以把一个已经存在于EXCEL中的图片移动到指定单元格，并使其与单元格大小相等
注意：要先选中一个目标单元格，再选中一个图片，运行本过程。
Sub
移动图片并改变大小()
Set
r
=
ActiveCell
x
=
r.ColumnWidth
y
=
r.RowHeight
Selection.ShapeRange.LockAspectRatio
=
msoFalse
Selection.ShapeRange.Height
=
y
k
=
Range("A1").Width
/
Columns(1).ColumnWidth
Selection.ShapeRange.Width
=
x
*
k
Selection.Cut
r.Select
ActiveSheet.Paste
End
Sub
