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

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

Private Sub Worksheet_Change(ByVal Target As Range)

    Const t1 = 2

    Const t2 = 3

    If Target.Address(0, 0) = "B1" Then

        a = Target.Text

        If Len(a) <> 2 Then

            MsgBox "出错"

            Exit Sub

        End If

        Application.EnableEvents = False

        If t1 Then a = Left(a, t1 - 1) & "爱" & Mid(a, t1)

        If t2 Then a = Left(a, t1 - 1) & "你" & Mid(a, t1)

        Target = a

        Application.EnableEvents = True

    End If

End Sub

Sub Example_AddText()

Dim textObj As AcadText

Dim textString As String

Dim insertionPoint(0 To 2) As Double

Dim height As Double

' Define the text object

textString = "Hello, World."

insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0

height = 0.5

ThisDrawing.ActiveLayout = ThisDrawing.Layouts("布局2") '激活指定布局

' Create the text object in model space

Set textObj = ThisDrawing.PaperSpace.AddText(textString, insertionPoint, height) '在图纸空间（刚激活的）添加文字

ZoomAll

End Sub

---