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

xujinhua

(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坐标及大小，并按照此坐标及大小插入图片
怎么对上述返回值进行编辑，调整插入图片的插入位置及大小呢

stoyer

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位置

stoyer

(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))

xujinhua

stoyer 发表于 2021-6-10 10:36
(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))

谢谢啊，原来可以直接加减的。。

xujinhua

stoyer 发表于 2021-6-10 10:36
(vlax-invoke-method sp 'AddPicture x 0 1 (+ x1 10) (+ y1 10)  (- w1 20) (- h1 20))

你好，试了下，错误的参数类型，应该是返回值不是数字，不能直接加减

hh_lj007

在VBA中我是在AddPicture后，设置的图片的【宽×高】实现

xujinhua

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>

xujinhua

stoyer 发表于 2021-6-13 01:18
(vlax-invoke-method sp 'AddPicture x t t
    (+ 10 (vlax-variant-value x1))
    (+ 10 (vlax-var ...

感谢！学习了