易语言Excel工作簿组件指定单元格插入图片源码例程分享

whuaqiang1

Excel工作簿组件自带命令插入的图片位置以坑爹的磅为单位，磅转化为其他单位又是以约多少为结果，实在是不能看，
参考了别的大神的源码做出来的子程序，具体哪位大神不知道，大神做好事没留名。
现在论坛请教点什么，多半是以自己去百度为答案，就是没有答案。真是痛苦。希望用的到的人拿去参考。

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
单元格对象	对象
读出属性	变体型
单元格	文本型
文本	文本型
A1单元格对象	对象
宽度1	双精度小数型
宽度2	双精度小数型
高度1	双精度小数型
高度2	双精度小数型

Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.打开 (“D:\1\1.xlsx”)
单元格插入图片 (“D6”, “D:\1509519373847.jpg”, 0, 0, 48, 48)
Excel工作簿1.保存 (“D:\1\1.xlsx”)
Excel工作簿1.关闭 ()
Excel程序1.释放 ()

子程序名	返回值类型	公开	备 注
单元格插入图片
参数名	类 型	参考	可空	数组	备 注
单元格	文本型				插入图片的单元格
图片路径	文本型				插入的图片路径
左	双精度小数型
右	双精度小数型
图片宽	双精度小数型
图片高	双精度小数型

变量名	类 型	静态	数组	备 注
宽度1	双精度小数型
宽度2	双精度小数型
高度1	双精度小数型
高度2	双精度小数型
A1单元格对象	对象
单元格对象	对象

Excel工作簿1.首单元格 ＝ “A1”
Excel工作簿1.尾单元格 ＝ 单元格
A1单元格对象 ＝ Excel工作簿1.取单元格对象 ()
宽度1 ＝ A1单元格对象.读属性 (“Width”, ).取数值 ()
高度1 ＝ A1单元格对象.读属性 (“Height”, ).取数值 ()
Excel工作簿1.首单元格 ＝ 单元格
Excel工作簿1.尾单元格 ＝ 单元格
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
宽度2 ＝ 单元格对象.读属性 (“Width”, ).取数值 ()
高度2 ＝ 单元格对象.读属性 (“Height”, ).取数值 ()
单元格对象 ＝ 单元格对象.读对象型属性 (“Parent”, )
单元格对象 ＝ 单元格对象.读对象型属性 (“Shapes”, )
单元格对象.对象型方法 (“AddPicture”, 图片路径, 假, 真, 左 ＋ 宽度1 － 宽度2, 右 ＋ 高度1 － 高度2, 图片宽, 图片高)

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 eExcel2000<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 单元格对象, 对象<br /> .局部变量 读出属性, 变体型<br /> .局部变量 单元格, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 A1单元格对象, 对象<br /> .局部变量 宽度1, 双精度小数型<br /> .局部变量 宽度2, 双精度小数型<br /> .局部变量 高度1, 双精度小数型<br /> .局部变量 高度2, 双精度小数型<br /> <br /> Excel程序1.创建 ()<br /> Excel工作簿1.置程序 (Excel程序1)<br /> Excel工作簿1.打开 (“D:\1\1.xlsx”)<br /> 单元格插入图片 (“D6”, “D:\1509519373847.jpg”, 0, 0, 48, 48)<br /> Excel工作簿1.保存 (“D:\1\1.xlsx”)<br /> Excel工作簿1.关闭 ()<br /> Excel程序1.释放 ()<br /> <br /> <br /> .子程序 单元格插入图片<br /> .参数 单元格, 文本型, , 插入图片的单元格<br /> .参数 图片路径, 文本型, , 插入的图片路径<br /> .参数 左, 双精度小数型<br /> .参数 右, 双精度小数型<br /> .参数 图片宽, 双精度小数型<br /> .参数 图片高, 双精度小数型<br /> .局部变量 宽度1, 双精度小数型<br /> .局部变量 宽度2, 双精度小数型<br /> .局部变量 高度1, 双精度小数型<br /> .局部变量 高度2, 双精度小数型<br /> .局部变量 A1单元格对象, 对象<br /> .局部变量 单元格对象, 对象<br /> <br /> Excel工作簿1.首单元格 ＝ “A1”<br /> Excel工作簿1.尾单元格 ＝ 单元格<br /> A1单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br /> 宽度1 ＝ A1单元格对象.读属性 (“Width”, ).取数值 ()<br /> 高度1 ＝ A1单元格对象.读属性 (“Height”, ).取数值 ()<br /> Excel工作簿1.首单元格 ＝ 单元格<br /> Excel工作簿1.尾单元格 ＝ 单元格<br /> 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br /> 宽度2 ＝ 单元格对象.读属性 (“Width”, ).取数值 ()<br /> 高度2 ＝ 单元格对象.读属性 (“Height”, ).取数值 ()<br /> 单元格对象 ＝ 单元格对象.读对象型属性 (“Parent”, )<br /> 单元格对象 ＝ 单元格对象.读对象型属性 (“Shapes”, )<br /> 单元格对象.对象型方法 (“AddPicture”, 图片路径, 假, 真, 左 ＋ 宽度1 － 宽度2, 右 ＋ 高度1 － 高度2, 图片宽, 图片高)

梦梦小安

我找了好久了...去百du找不到

madezhi

这个有用 学习了

8657

大佬，怎么修改图片大小？

yongxuan

看看有没有帮助吧

liou9799

感谢分享

gc2517984

大佬，怎么修改图片大小？

新人E

感谢四年前提供的代码  如今派上用场

1006706246

学习了，I会看看

lingang

太有用了，感谢！