ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何让单元格适合图片大小?

如何让单元格适合图片大小?

作者:绿色风 分类: 时间:2022-08-17 浏览:128
楼主
rabbitllu
Q:如何让单元格适合图片大小?

 

效果图:

 

A:图片尺寸大小是固定的,如何批量使单元格大小与图片尺寸一致,可以使用VBA实现:
  1. Sub test()
  2. Dim oShp As Shape
  3. '工作表中图片循环
  4. For Each oShp In Worksheets("sheet1").Shapes
  5.     With oShp
  6.         '以图片左上角单元格为基准确定行高
  7.         Rows(.TopLeftCell.Row & ":" & .TopLeftCell.Row).RowHeight = .Height
  8.     End With
  9. Next oShp
  10. End Sub

单元格高度适应图片大小.rar
2楼
我们都爱桃伯特
看不明白
3楼
rabbitllu
就是说你复制到E的图片是多大,单元格高度就会自动变成图片大小,不用去手工调整行高
4楼
vanesshuan
哦,这样的
5楼
335081548
谢谢分享
6楼
芐雨
分享学习
7楼
yxge24
这个不错 学习了!
有时候自己手动折腾死。..
8楼
老糊涂
分享学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap