Vba 在报告中插入图片并调整其大小

我正在启动一个带有考试问题的Access数据库。几乎每个问题都会有一幅图。我宁愿不把图片保存在数据库里，以保持它的小

我想在报告中插入这些图片。所有图片必须具有相同的宽度（报告的宽度），但高度必须根据原始纵横比调整大小。有些是风景画，有些是肖像画

---

我使用的是Office 365、VBA 7.1和Windows 10。

最后它非常简单。我正在发布解决方案，也许它可以为其他人节省三天时间

只是解释一下名字

ImageSource是包含文件路径的文本框

ImageFrame是我放在报告上的空图像

代码放在我的报告上我的GroupHeader的OnFormat部分

9996比我报告的宽度小一点，它是以twips为单位的

代码如下：

Private Sub GroupHeader3_Format(Cancel As Integer, FormatCount As Integer)
    Me![ImageFrame].Picture = Me![ImageSource]
    Me![ImageFrame].Width = 9996
    Me![ImageFrame].Height = 9996 * Me![ImageFrame].ImageHeight / Me![ImageFrame].ImageWidth
End Sub

---

你可以学习一个演示。虽然也用于下载图片，但它展示了如何从表单和报表的路径中检索图片。谢谢，我最终找到了它，它非常简单。