
工具/原料
EXCEL丶EXCEL文件
步骤
2.打开后先设定图片所需要的大小;
3.图片大小设定完成后点击最左上角的“文件”按钮;
4.从d出的菜单中选择“另存为”命令,并选择保存位置;
5.在d出的“另存为”对话框中选择“工具”,再选择“压缩图片”;
6.在d出的“压缩图片”对话框中选择输出分辨率,如果要压缩更小,则可以选择更底的分辨率,而如果还要最大化压缩,则可以再选择“删除图片的剪裁区域”,设置完成后点击“确定”按钮;
7.然后在返回的“另存为”对话框中选择“保存”按钮,并选择“是”即可。
把图片复制到单元格,调整单元格大小至适合图片,可用ALT键+鼠标挪动图片,以锚定左上角,再调整右下角单元格至图片等于单元格大小。\x0d\x0a然后右键图片,选属性--选“大小位置均随单元格改变"--确定\x0d\x0a此时调整单元格则图片也随之调整了。 \x0d\x0a\x0d\x0a以下是你需的VBA代码,你可以用宏录制一个快捷键,删除中间代码。每在当前单元格插入一张图片,就执行一次宏。\x0d\x0aSub InsertPic()\x0d\x0acColumn = ActiveCell.Column\x0d\x0arRow = ActiveCell.Row\x0d\x0an = Sheet1.Shapes.Count\x0d\x0a\x0d\x0aActiveSheet.Shapes("Picture " &n).Select\x0d\x0aSelection.ShapeRange.LockAspectRatio = msoFalse\x0d\x0aSelection.ShapeRange.Width = ActiveSheet.Columns(cColumn).ColumnWidth * 6.44\x0d\x0aSelection.ShapeRange.Height = ActiveSheet.Rows(rRow).RowHeight\x0d\x0aWith Selection\x0d\x0a.Placement = xlMoveAndSize\x0d\x0a.PrintObject = True\x0d\x0aEnd With\x0d\x0aEnd Sub在excel软件中设置保存文件时不压缩图片,即可再次打开文件后,拉伸缩小图片查看的时候不会改变清晰度。具体 *** 作请参照以下步骤。
1、在电脑上打开目标excel文件,拉伸图片后可以发现图片清晰度变低了。
2、接着进行设置 *** 作,用鼠标选中图片后,点击上方菜单栏项目“格式”中的“压缩图片”图标。
3、点击之后出现“压缩图片”对话框,点击页面中的“选项”按钮。
4、在“压缩设置”界面取消对压缩选项的勾选,目标输出选择第一个分辨率最高的选项,然后点击确定退出界面。
5、之后返回至“压缩图片”设置界面,点击确定退出。
6、之后重新插入目标图片,缩小为小图后再保存文件。再次打开文件,拉伸目标图片,可以发现清晰度没有发生变化。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)