如何解决图像/形状显示不正确 VBA Excel
Dim picNameDefault as String
picNameDefault = "ProcessingDocument"
Dim img As Shape
Set img = ActiveSheet.Shapes(picNameDefault)
img.Top = Range("M2").Top
img.Left = Range("M2").Left
Debug.Print img.Top
Debug.Print img.Left
Debug.Print Range("M2").Top
Debug.Print Range("M2").Left
所有位置(最后 Debug.Print
4 行)似乎都是正确的(顶部 = 顶部,左侧 = 左侧)。然而,在工作表中,图片移动如所附图片(第一个是之前,第二个是在运行代码之后)。这是一个文档录入界面,要移动的图片就是要抠像的文档。我不知道其他时候发生了什么,它工作正常。
解决方法
请尝试下一个方法。它专为经典旋转而设计,如您所说(旋转角度:0、90、270、180):
import dbConnect from "../../../utils/dbConnect";
import Worker from "../../../models/Worker";
dbConnect();
export default async (req,res) => {
const { method } = req;
switch (method) {
case "GET":
try {
const workers = await Worker.find({});
res.status(200).json({ success: true,data: workers });
} catch (error) {
res.status(400).json({ success: false });
}
break;
case "POST":
try {
const worker = await Worker.create(req.body);
res.status(201).json({ success: true,data: worker });
} catch (error) {
res.status(400).json({ success: false });
}
break;
default:
res.status(400).json({ success: false });
break;
}
};
如果(portret)图像的高度和宽度之间存在很大差异,则靠近工作表顶部的行的顶部定位将是错误的。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。