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

Question

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

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

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

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

请帮助。

洛

Answer 1

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

只是解释名字。

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