作者：绿色风
分类：
时间：2022-08-17
浏览：131
楼主
wise |
Q:如何利用VBA插入图片?
A:ALT+F11→插入模块→在模块里面输入如下代码：
- Sub InsertPicture()
- Worksheets(1).Shapes.AddPicture ThisWorkbook.Path & "\ET.jpg", True, True, 30, 10, 300, 225
- End Sub
关键是AddPicture的使用。
 如何用VBA插入图片？.rar
|
2楼
biaotiger1 |
 2007不能录制图片操作的代码，真是郁闷
 |
3楼
BIN_YANG168 |
Q: 如何利用VBA 快速在工作表中插入图片？A: ALT +F11 →插入模块→在模块中输入以下代码: - Sub 插入图片()
- Worksheets(1).Shapes.AddPicture _
- "D:\2010元旦祝福.JPG", True, True, 30, 10, 300, 350
- End Sub
|
4楼
chenfuxiang |
谢谢了，学习了。
但有个问题，如果我图片较多，但各个图片尺寸、高宽比例不同时，怎样才能获得原始图片的高、宽比例？因为只有知道这个之后，才能根据它来调整图片的大小，以使图片好看，不然，图片看上去就不协调。 |
5楼
罗刚君 |
2010可以 |
6楼
paul001 |
虽然看不懂代码 但还是可以操作一下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一