精易论坛

标题: 易语言Excel工作簿组件指定单元格插入图片源码例程分享 [打印本页]

作者: whuaqiang1    时间: 2017-11-22 12:50
标题: 易语言Excel工作簿组件指定单元格插入图片源码例程分享
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支持库列表   支持库注释   
eExcel2000EXCEL2000支持库


作者: 已重置457142    时间: 2017-11-22 13:30
学习了
作者: liulo    时间: 2017-11-22 13:45
收藏了可能以后会用到
作者: whuaqiang1    时间: 2017-11-22 14:07
有个地方错了 ,不是右  是顶边
作者: kyo9766    时间: 2017-11-22 16:53
感谢分享,以后或许会用到
作者: dulang    时间: 2017-11-23 09:37
支持开源,感谢分享……
作者: subbo010    时间: 2017-11-23 20:44
感谢分享,以后或许会用到
作者: 178826559    时间: 2017-11-25 10:05
感谢分享,谢谢!
作者: 菜鸟杰西卡    时间: 2017-11-28 12:35
提示: 作者被禁止或删除 内容自动屏蔽
作者: lingang    时间: 2018-8-2 11:30
太有用了,感谢!
作者: 1006706246    时间: 2019-9-10 00:49
学习了,I会看看
作者: 新人E    时间: 2021-5-24 21:15
感谢四年前提供的代码  如今派上用场
作者: gc2517984    时间: 2021-10-22 02:51
大佬,怎么修改图片大小?
作者: liou9799    时间: 2021-12-12 13:18
感谢分享
作者: yongxuan    时间: 2022-4-17 20:32
看看有没有帮助吧
作者: 8657    时间: 2022-4-21 20:30
大佬,怎么修改图片大小?
作者: madezhi    时间: 2022-5-13 11:40
这个有用 学习了
作者: 梦梦小安    时间: 2023-5-22 12:56
我找了好久了...去百du找不到
作者: 逍遥无涯    时间: 2024-12-27 21:00
终于找到了,下载学习一下了,感谢
作者: lassgo    时间: 2024-12-27 21:03
全论坛易友发来贺电,祝贺大家一起进步!




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4