如何将嵌入的图片复制到新的图像控件？
背景：在运行时，我需要使用两个客户端徽标之一作为各种表单的标题。表单的数量至少为三个，但该数量和徽标选择会根据用户所做的选择而变化。用户是我无法控制的各种笔记本电脑上的众多销售人员之一，这些笔记本电脑在程序运行时可能具有网络访问权限，也可能没有网络访问权限。我所知道的是，我们至少有 Access 2007、2010、2013 或 2016，可能是 Windows……或 Mac。 我已经将徽标嵌入到数据库中。
我希望能够CreateControl acImage，将其移动到正确的位置，然后MyImage.Picture = EmbeddedPicture，但我愿意选择。
如何在 VBA 中引用已经嵌入的图片？
【问题讨论】：
如果您已经将图片嵌入到数据库中，它将可用于按图片名称的所有控件，并且您可以使用如下代码在表单上创建新图片：
Dim ctlImage As Image
DoCmd.OpenForm "Form2", acDesign
Set ctlImage = CreateControl("Form2", acImage, acDetail, , , 1000, 1000, 5000, 2000)
ctlImage.Picture = "image001.jpg"
DoCmd.Close acForm, "Form2", acSaveYes
在创建之前确保图片嵌入并且您可以在任何具有该属性的对象的Picture属性的下拉列表框中看到图片文件名。先在Picture Type属性中选择“Embedded”。
嵌入图片最简单的方法是选择图片文件并将图片类型更改为嵌入。在此之后，图片将被复制到数据库的系统表之一，并可供任何带有图片的控件使用。
请注意，要创建新控件，表单应在设计模式下打开。我建议避免这种情况，因为如果您将应用程序编译为 accde，此操作会产生错误。
更好的方法是手动创建图片对象，然后根据需要的图片更改图片属性。您还可以创建一些对象并在运行时使它们可见/不可见。
【讨论】：