如何在ACCESS窗体中通过VBA代码实现将位图自动加文字？

比较简单的的方法是：在设计视图下预先向图片上添加(叠加)文本框或标签控件，如果是多行文本选择文本框比较合适，应去掉文本框前面的标签，在文本框属性中设置为无边框、底色设置为透明，字体、字号、颜色等都可以预先设置好，这些都弄好后就可以根据你的功能要求在不同的事件代码中(比如窗体加载、打开、打印按钮单击等等)直接向文本框赋值字符串就可以了，当然也可以让窗体进入打印预览，显示图像及文字满意后再正式打印。

工作表中的：

ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.Text = "文字"

窗体中的：

userform1.textbox1.text="文字"

---