VBA往工作表内批量插入和单元格大小一致的图片

作者：绿色风分类：时间：2022-08-18 浏览：138

楼主 YESS95	使用VBA往工作表内批量插入和单元格大小一致的图片。 Sub test() Dim pic As Shape Dim i As Integer Application.Dialogs(xlDialogInsertPicture).Show For Each pic In Shapes If pic.Type = 13 Then i = i + 1 With pic .LockAspectRatio = msoFalse .Top = Cells(i, 1).Top .Left = Cells(i, 1).Left .Height = Cells(i, 1).Height .Width = Cells(i, 1).Width End With End If Next End Sub 批量插入图片.gif 插入图片.rar
2楼绿篱	先做记号.... 感谢分享...
3楼 LOGO	要是插入图片后修改单元格的行高列宽让图片也跟着调整，应该怎么修改代码呢？

免责声明

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

评论列表