EXCLE图形插入实例

根据所给名称找到相应图片，并进行导入。

代码如下：

Sub Import_picture()
For Each shap In Sheet1.Shapes '在sheet1中的图片对象进行循环If shap.Type <> 8 Then shap.Delete  '在插入图片之前删除以前插入的图片，但不删除命令按钮
Next shap
For Each Rng In Range([a1], Cells(Application.CountA(Columns(1)), 1)) '建立姓名循环区域i = ThisWorkbook.Path & "\picture\" & Rng & ".jpg" '找出图片的存放的磁盘位置Set rngs = Cells(Rng.Row, 2) '建立插入图片的位置区域Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height '插入图片，设置图片的坐标位置
Next Rng '继续循环插入直到循环结束。
End Sub

点击“导入图片按钮”后

实例附件下载：点击下载

EXCLE图形插入实例相关推荐

用python绘制漂亮的图形-用python绘制图形的实例详解
1.环境系统:windows10 python版本:python3.6.1 使用的库:matplotlib,numpy 2.numpy库产生随机数几种方法import numpy as npnumpy ...
python的交互式解释器_python3.4.1解释器python交互式图形编程实例（三）
本文实例为大家分享了python交互式图形编程实例的第三部代码,供大家参考,具体内容如下 #!/usr/bin/env python3 # -*- coding: utf-8 -*- #时钟 from ...
python图形化编程实例,python交互式图形编程实例（三）
本文实例为大家分享了python交互式图形编程实例的第三部代码,供大家参考,具体内容如下 #!/usr/bin/env python3 # -*- coding: utf-8 -*- #时钟 from ...
向Excle中插入多个表
向Excle中插入表,点击按钮时编辑框中的内容不能和以前的相同 //使用CDatabase.CRecordset时,需要使用的头文件 #include <odbcinst.h> #in ...
MATLAB图形插入标题
MATLAB图形插入标题点击图形窗口上方菜单栏插入–>标题然后进行编辑编辑
java界面布局举例,java图形界面实例
java写一个图形程序,让数组输出在图形界面上代码怎么写?别那么复杂的. 已把程序文件打包上传了,并附上运算结果图. import javax.swing.*;import java.awt.*;i ...
PROE图形插入WORD
PROE图形插入WORD 一.配置 (1) 野火版英文转中文安装前先在环境变量中加lang＝chs,在config把help_translation.menu_translation.msg_tra ...
CAD教程：将CAD图纸中图形插入到Word/WPS中
在使用浩辰CAD软件绘制图纸的过程中,有些时候会需要将CAD图纸中的图形插入到Word/WPS中,那么除了QQ微信截图外,还有哪些便捷方法可以将CAD图纸中的图形插入到Word或者WPS的便捷方法呢? ...
js控制台输出佛祖保佑图形图案实例代码
简介 js控制台输出佛祖保佑图形图案实例代码演示代码普通款 console.log([ " _ooOoo_", " o8888888o", " ...

EXCLE图形插入实例

EXCLE图形插入实例相关推荐

最新文章

热门文章