Excel 如何让放入图片的大小固定

发布网友 发布时间：2022-04-20 18:42

我来回答

共2个回答

热心网友 时间：2022-06-02 07:45

展开3全部

1、以图中的表格为例。在工作表的菜单栏中顺序点： 插入--图片--来自文件 。　　

2、弹出操作框，找到要插入的图片，然后点：插入　　

3、图片即插入到工作表中，鼠标点住图片不放，把它移动到A1单元格中;按A1单元格的大小，调节图片的尺寸;图片的四周都有空心的小圆圈，光标点住小圆圈，拖动能调节图片尺寸;调到图片大小与A1单元格一样时，光标在其它单元格点下，表示完成刚才的动作;　　

4、然后，鼠标右键点下图片，弹出的菜单中，点“ 设置图片格式 ”　　

5、弹出的设置框中，点“ 属性 ”;　　

热心网友 时间：2022-06-02 07:46

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