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

Posted 2021-04-06

我正在开始一个包含考试问题的Access数据库。几乎每个问题都会附上一张照片。我宁愿不将图片保存在数据库中以保持较小。

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

我现在花了三天时间在互联网上搜索，但仍然无法找到可行的解决方案。这似乎不应该这么难！？

我使用的是Office 365，VBA 7.1和Windows 10.我不是程序员，上次使用Access时间很早（Access 97）。

请帮忙。

伊莎贝拉

答案

最后它非常简单。我发布了解决方案，也许它会在三天内保存其他人。

只是为了解释这些名字。

ImageSource是一个包含文件路径的文本框。

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

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

9996略小于我的报告宽度，它是缇。

这是代码：

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