|
楼主 |
发表于 2016-10-9 18:05:21
|
显示全部楼层
湖北省黄石市
.版本 2
.子程序 置插入图片, , 公开
.参数 工作表序号, 整数型
.参数 图片路径, 文本型
.参数 设置透明色, 整数型, 可空
.局部变量 对象, 对象
EXCEL.读对象型属性 (“worksheets”, ).读对象型属性 (“item”, 工作表序号).读对象型属性 (“shapes”, ).写属性 (“Addpicture”, 图片路径, 真, 真, 0, 0, 200, 200)
EXCEL.读对象型属性 (“worksheets”, ).读对象型属性 (“item”, 工作表序号).读对象型属性 (“Shapes”, ).对象型方法 (“SelectAll”, )
对象 = EXCEL.读对象型属性 (“Selection”, ).读对象型属性 (“ShapeRange”, ).读对象型属性 (“PictureFormat”, )
对象.写属性 (“TransparentBackground”, 真)
对象.写属性 (“TransparencyColor”, 设置透明色)
参考这个代码,我没试过 |
|