<em>excel</em> 怎么把插入的图片自动缩放成单元格的大小-excel 图片自动放大,

把图片复制到单元格，调整单元格大小至适合图片，可用ALT键+鼠标挪动图片，以锚定左上角，再调整右下角单元格至图片等于单元格大小。
然后右636f70797a64338键图片，选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。

以下是你需的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

把图片复制到单元格，调整单元格大小至适合图片，可用e68a847a686964616f363ALT键+鼠标挪动图片，以锚定左上角，再调整右下角单元格至图片等于单元格大小。
然后右键图片，选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则图片也随之调整了。

以下是你需的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
选中图片，点右键，设置图片大小到你想要的大小就可以了

因为这个图片可能原来的尺寸就比较大，在没有设置的情况下 恢复默认值了

用图像控件就可以,只要把picturesizemode设置为:1-picturesizemodestretch,然后编写Image1_MouseMove事件改变一下大小就行了