Excel宏改变插入图片大小

　　把图片复制到单元格，调整单元格大小至适合图片，可用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