EXCEL插入图片会偏移

a740929654

excel.插入图片 (“C:\Users\admin\Desktop\777\图片1.png”, “阻抗表及模拟图”, 0, 0, 280, 180)   图片多的时候，偏移更大，能不能固定10行插入图片

花间一壶酒

好像可以通过单元格定位来着  

你的猫

方案 1：取单元格坐标，每 10 行定位（完美固定，无偏移），代码来自豆包 你懒得问 我帮你问了

  

变量名	类 型	静态	数组	备 注
循环次数	整数型  ' 当前第几张图片，从1开始
目标行号	整数型
图片顶边磅	小数型
工作表	Excel工作表

' 绑定工作表
工作表 ＝ excel.取工作表 (“阻抗表及模拟图”)
' 循环插入图片（示例循环）
计次循环首 (图片总数, 循环次数)
' 固定每10行一张：第一张从第10行开始，第二张20行，第三张30行...
目标行号 ＝ 10 × 循环次数

' 读取目标行U列单元格的真实顶边坐标（磅，自动适配行高，不会偏移）
图片顶边磅 ＝ 工作表.取单元格 (目标行号, 21).顶边位置

' 插入图片：左边固定U列左侧，顶边绑定目标行，宽高不变
excel.插入图片 (“C:\Users\admin\Desktop\777\图片” ＋ 到文本 (循环次数) ＋ “.png”, “阻抗表及模拟图”, 工作表.取单元格 (目标行号,21).左边位置, 图片顶边磅, 280, 180)

计次循环尾 ()

.局部变量 循环次数, 整数型  ' 当前第几张图片，从1开始<br /> .局部变量 目标行号, 整数型<br /> .局部变量 图片顶边磅, 小数型<br /> .局部变量 工作表, Excel工作表<br /> <br /> ' 绑定工作表<br /> 工作表 ＝ excel.取工作表 (“阻抗表及模拟图”)<br /> <br /> ' 循环插入图片（示例循环）<br /> .计次循环首 (图片总数, 循环次数)<br />     ' 固定每10行一张：第一张从第10行开始，第二张20行，第三张30行...<br />     目标行号 ＝ 10 × 循环次数<br />     <br />     ' 读取目标行U列单元格的真实顶边坐标（磅，自动适配行高，不会偏移）<br />     图片顶边磅 ＝ 工作表.取单元格 (目标行号, 21).顶边位置<br />     <br />     ' 插入图片：左边固定U列左侧，顶边绑定目标行，宽高不变<br />     excel.插入图片 (“C:\Users\admin\Desktop\777\图片” ＋ 到文本(循环次数) ＋ “.png”, “阻抗表及模拟图”, 工作表.取单元格(目标行号,21).左边位置, 图片顶边磅, 280, 180)<br />     <br /> .计次循环尾 ()

liwei321gogo

比如你要把图片放在A10单元格的下方，你就获a1-a10的区域高度就行了

斗战胜猴

  

子程序名	返回值类型	公开	备 注
插入图片_按路径	逻辑型
参数名	类 型	参考	可空	数组	备 注
图片路径	文本型				图片文件的完整路径
单元格位置	文本型				"A1"  到单元格(), , 默认为 A1
Placement	整数型				xlMoveAndSize (1): 大小和位置随单元格而变。 ' xlMove (2): 大小固定，位置随单元格而变。 ' xlFreeFloating (3): 大小和位置固定。3不好用

变量名	类 型	静态	数组	备 注
objWorksheet	对象
objShapes	对象			' 新增：用于存储Shapes集合对象
objRange	对象
leftPos	双精度小数型
topPos	双精度小数型
width	双精度小数型
height	双精度小数型
objPicture	对象
cell_obj	对象
行数	整数型
列数	整数型
新单元格位置	文本型

objWorksheet ＝ 程序对象Excel.读对象型属性 (“ActiveSheet”, )
如果 (图片路径 ≠ “” 且 文件是否存在 (图片路径))
objRange ＝ objWorksheet.读对象型属性 (“Range”, 单元格位置)
行数 ＝ objRange.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
列数 ＝ objRange.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )
如果真 (行数 ＝ 1 且 列数 ＝ 1)
cell_obj ＝ objRange.读对象型属性 (“Item”, 1, 1)
新单元格位置 ＝ cell_obj.读对象型属性 (“MergeArea”, ).读文本属性 (“Address”, 假, 假, 1, 假)
如果真 (新单元格位置 ≠ cell_obj.读文本属性 (“Address”, 假, 假, 1, 假))
objRange.清除 ()
objRange ＝ objWorksheet.读对象型属性 (“Range”, 新单元格位置)


leftPos ＝ objRange.读数值属性 (“Left”, )
topPos ＝ objRange.读数值属性 (“Top”, )
objShapes ＝ objWorksheet.读对象型属性 (“Shapes”, )
objPicture ＝ objShapes.对象型方法 (“AddPicture”, 图片路径, -1, -2, leftPos, topPos, -1, -1)
如果 (Placement ＞ 1)
width ＝ objPicture.读数值属性 (“Width”, )
height ＝ objPicture.读数值属性 (“Height”, )
width ＝ objRange.读数值属性 (“Width”, )
height ＝ objRange.读数值属性 (“Height”, )
Placement ＝ 1
objPicture.写属性 (“Width”, width)
objPicture.写属性 (“Height”, height)
objPicture.写属性 (“Placement”, Placement)
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 插入图片_按路径, 逻辑型, 公开<br /> .参数 图片路径, 文本型, , 图片文件的完整路径<br /> .参数 单元格位置, 文本型, , "A1"  到单元格(), , 默认为 A1<br /> .参数 Placement, 整数型, 可空, xlMoveAndSize (1): 大小和位置随单元格而变。 ' xlMove (2): 大小固定，位置随单元格而变。 ' xlFreeFloating (3): 大小和位置固定。3不好用<br /> .局部变量 objWorksheet, 对象<br /> .局部变量 objShapes, 对象, , ,  ' 新增：用于存储Shapes集合对象<br /> .局部变量 objRange, 对象<br /> .局部变量 leftPos, 双精度小数型<br /> .局部变量 topPos, 双精度小数型<br /> .局部变量 width, 双精度小数型<br /> .局部变量 height, 双精度小数型<br /> .局部变量 objPicture, 对象<br /> .局部变量 cell_obj, 对象<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 新单元格位置, 文本型<br /> <br /> objWorksheet ＝ 程序对象Excel.读对象型属性 (“ActiveSheet”, )<br /> .如果 (图片路径 ≠ “” 且 文件是否存在 (图片路径))<br />     objRange ＝ objWorksheet.读对象型属性 (“Range”, 单元格位置)<br />     行数 ＝ objRange.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br />     列数 ＝ objRange.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )<br />     .如果真 (行数 ＝ 1 且 列数 ＝ 1)<br />         cell_obj ＝ objRange.读对象型属性 (“Item”, 1, 1)<br />         新单元格位置 ＝ cell_obj.读对象型属性 (“MergeArea”, ).读文本属性 (“Address”, 假, 假, 1, 假)<br />         .如果真 (新单元格位置 ≠ cell_obj.读文本属性 (“Address”, 假, 假, 1, 假))<br />             objRange.清除 ()<br />             objRange ＝ objWorksheet.读对象型属性 (“Range”, 新单元格位置)<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     leftPos ＝ objRange.读数值属性 (“Left”, )<br />     topPos ＝ objRange.读数值属性 (“Top”, )<br />     objShapes ＝ objWorksheet.读对象型属性 (“Shapes”, )<br />     objPicture ＝ objShapes.对象型方法 (“AddPicture”, 图片路径, -1, -2, leftPos, topPos, -1, -1)<br /> <br />     .如果 (Placement ＞ 1)<br />         width ＝ objPicture.读数值属性 (“Width”, )<br />         height ＝ objPicture.读数值属性 (“Height”, )<br />     .否则<br />         width ＝ objRange.读数值属性 (“Width”, )<br />         height ＝ objRange.读数值属性 (“Height”, )<br />         Placement ＝ 1<br />     .如果结束<br />     objPicture.写属性 (“Width”, width)<br />     objPicture.写属性 (“Height”, height)<br />     objPicture.写属性 (“Placement”, Placement)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束

yb139

问题分析：使用易语言的 excel.插入图片 命令时，如果直接指定像素坐标插入图片，当图片数量增多时会因为行高计算不准确导致偏移。

解决方案：应该通过单元格的真实位置来定位图片，而不是使用固定像素值。可以参考楼上几位的方法：

方法1：使用单元格的顶边位置和左边位置来精确定位
```易语言
目标行号 ＝ 10 × 循环次数
图片顶边磅 ＝ 工作表.取单元格 (目标行号，21).顶边位置
excel.插入图片 (图片路径，“阻抗表及模拟图”, 工作表.取单元格 (目标行号，21).左边位置，图片顶边磅，280, 180)
```

方法2：设置图片的 Placement 参数为 1（xlMoveAndSize），让图片随单元格移动和调整大小。

这样可以确保每张图片都精确对应到指定的单元格位置，不会出现偏移问题。

a740929654

斗战胜猴 发表于 2026-6-23 11:25
[e=0].版本 2

.子程序 插入图片_按路径, 逻辑型, 公开

没有激活sheet参数？

小书

用哪个模块？