明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 274|回复: 6

[提问] [求助] 图片插入excel位置调整

[复制链接]
发表于 2021-6-10 09:48 | 显示全部楼层 |阅读模式
(setq range3 (vlax-get-property active-sheet1 "Range" "A1"))
(setq x1 (vlax-get-property range3 'Left);x坐标  返回值#<variant 5 259.2>
        y1 (vlax-get-property range3 'Top);Y坐标  返回值#<variant 5 1758>
        w1 (vlax-get-property range3 'Width);宽   返回值#<variant 5 244.8>
        h1 (vlax-get-property range3 'Height));高  返回值#<variant 5 264>
       (setq sp (vlax-get-property sht 'Shapes));shapes形状外形,返回值#<VLA-OBJECT Shapes 0ac04e4c>         
(vlax-invoke-method sp 'AddPicture x t t x1 y1 w1 h1);按照获取的A1位置



请教下各位大神,上述代码为获得单元格  a1坐标及大小,并按照此坐标及大小插入图片
怎么对上述返回值进行编辑,调整插入图片的插入位置及大小呢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2021-6-10 10:36 | 显示全部楼层
(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))
 楼主| 发表于 2021-6-12 09:29 | 显示全部楼层
stoyer 发表于 2021-6-10 10:36
(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))

谢谢啊,原来可以直接加减的。。
 楼主| 发表于 2021-6-12 09:35 | 显示全部楼层
stoyer 发表于 2021-6-10 10:36
(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))

你好,试了下,错误的参数类型,应该是返回值不是数字,不能直接加减
发表于 2021-6-12 09:54 | 显示全部楼层
在VBA中我是在AddPicture后,设置的图片的【宽×高】实现
 楼主| 发表于 2021-6-12 10:48 | 显示全部楼层
hh_lj007 发表于 2021-6-12 09:54
在VBA中我是在AddPicture后,设置的图片的【宽×高】实现

如果插入固定大宽X高照片,我改成
(vlax-invoke-method sp 'AddPicture x t t x1 y1  200 200)
就可以了了,可左上角的插入点x1、y1怎么改呢
X1  返回值#<variant 5 259.2>
Y1 返回值#<variant 5 1758>
发表于 2021-6-13 01:18 | 显示全部楼层
xujinhua 发表于 2021-6-12 09:35
你好,试了下,错误的参数类型,应该是返回值不是数字,不能直接加减

(vlax-invoke-method sp 'AddPicture x t t
    (+ 10 (vlax-variant-value x1))
    (+ 10 (vlax-variant-value y1))
    (- (vlax-variant-value w1) 20)
    (- (vlax-variant-value h1) 20));按照获取的A1位置
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2021-6-16 06:42 , Processed in 0.962741 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表