把复制到单元格,调整单元格大小至适合,可用ALT键+鼠标挪动,以锚定左上角,再调整右下角单元格至等于单元格大小。
然后右键,选属性--选“大小位置均随单元格改变"--确定
此时调整单元格则也随之调整了。
打开Excel,在一个单元格中插入一张(如下图所示)。
调整的大小放在一个单元格里,如下图所示。
点击,右键选择“设置格式”。
在打开的“设置格式”对话框中,点击“属性”选项卡,选中“大小、位置随单元格而变”,然后点击“确定”。
这时候还需要点击,软后点击“绘图”(如果没有绘图工具,可以点击菜单栏“视图”—“工具栏”—“绘图”),选择“自动对齐”—>“对齐网格”。
设置完后,可以拖拽下到单元格边缘,自动对齐到单元格了。现在拖拽的效果如下图所示。
方法/步骤1、先打开需要压缩的包含大量的EXCEL文件。
2、打开后先设定所需要的大小。建议经过这个过程,否则后面压缩后再放大就变得不清晰了。
3、大小设定完成后点击最左上角的“文件”按钮。
4、从d出的菜单中选择“另存为”命令,并选择保存位置。
5、在d出的“另存为”对话框中选择“工具”,再选择“压缩”。
6、在d出的“压缩”对话框中选择输出分辨率,如果要压缩更小,则可以选择更底的分辨率,而如果还要最大化压缩,则可以再选择“删除的剪裁区域”,设置完成后点击“确定”按钮。
7、然后在返回的“另存为”对话框中选择“保存”按钮,并选择“是”。建议改名称保存。
8、文件保存后可以看到由之前的17MB到了17KB。把复制到单元格,调整单元格大小至适合,可用ALT键+鼠标挪动,以锚定左上角,再调整右下角单元格至等于单元格大小。\x0d\然后右键,选属性--选“大小位置均随单元格改变"--确定\x0d\此时调整单元格则也随之调整了。 \x0d\\x0d\以下是你需的VBA代码,你可以用宏录制一个快捷键,删除中间代码。每在当前单元格插入一张,就执行一次宏。\x0d\Sub InsertPic()\x0d\ cColumn = ActiveCellColumn\x0d\ rRow = ActiveCellRow\x0d\ n = Sheet1ShapesCount\x0d\\x0d\ ActiveSheetShapes("Picture " & n)Select\x0d\ SelectionShapeRangeLockAspectRatio = msoFalse\x0d\ SelectionShapeRangeWidth = ActiveSheetColumns(cColumn)ColumnWidth 644\x0d\ SelectionShapeRangeHeight = ActiveSheetRows(rRow)RowHeight\x0d\ With Selection\x0d\ Placement = xlMoveAndSize\x0d\ PrintObject = True\x0d\ End With\x0d\End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)