Maybe try the Top Margin property of the label--if the text is not dynamic, you can effectively use that property to vertically center the text.

Well, read my previous post, aelwell!

But thanks for trying! :)

eyedam

Hi Janise,
I know this is an old thread, but I believe I have found a good workaround for this problem which might help other people. I had pretty much the same problem and ended up "washing up to shore" here at this forum a little while ago.

Microsoft applications like Access and Word do this crazy thing where they annoyingly automatically center text within inline (non-floating) labels - but they don't really have a "vertical alignment" option that I know of - so the label text is always just higher than everything else (ARG!!!); However, it is possible to chop off some of the excess space below the text in a label so it looks like the text is perfectly inline (haHA!).

In WORD I do this (probably same for Access too):
Note: This is for Times New Roman 12pt font. You might have to crop a little more or a little less with a different font and size!

             1. Go to View->Toolbars->Visual Basic (adds the VB toolbar - leave alone if already checked)

             2. Click on the symbol with a blue triangle, ruler and pencil to go into "Design Mode". If you're already there: ok good.

             3. Right-Click on the label you want to format - and select "Format Control..."

             4. A window named "Format Object" should pop up and you should be in the "Picture" tab. It should say "Crop from" in the window and in the "Bottom:" field type 0.09". Yes that's 9/100 inches. Press OK. (You're cropping 0.09" off the bottom of the label - which I think is about 6 or 7 pixels [if your resolution is 1280x800? - not important]).

             5. The text in the label will look really weird and distorted at first. That's ok. Click on the same Blue triangle/ruler/pencil icon again to exit "Design mode" and everything should fall nicely into place.

This is some VB script that I think will do pretty much the same thing for those crazy VB people (I like Java and C++ but who cares). Atleast this is what the macro recorder doohickey spit out when I did the above steps.

Sub YourMacroNameHere()
Selection.InlineShapes(1).PictureFormat.CropBottom = 6.48
End Sub

Hope that helped ;)

I need some coffee.

Hi Janise, in 2004 you posted the query above. Just wondering if you have ever found a workable solution for it? I'm now stuck in the exact same situation, any help would be immensely appreciated.

Alex

Its not elegant but this is what i did

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


'only works up to 10 line addresses

    ' find how many lines in address
    Dim n As Integer
    Dim m As Integer
    n = 0
    Dim lastposition As Integer
    Dim WorkAddress As String
    Dim LeadingBlanks As String

    ' remove double lines and truncate trailing lines
    WorkAddress = Replace(Trim(Me.Address), vbCrLf & vbCrLf, vbCrLf)

    ' count lines
    lastposition = 1
    Do
        lastposition = InStr(lastposition + 1, WorkAddress, vbCrLf)
        n = n + 1
    Loop Until lastposition = 0

    ' add leading blanks to make all addresses take up 10 lines
    LeadingBlanks = ""
    For m = 10 To n Step -1
        LeadingBlanks = LeadingBlanks & vbCrLf
    Next

    ' diaplay address with leading blanks
    Me.TxtAddress = LeadingBlanks & WorkAddress

End Sub

Its not elegant but this is what i did

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


'only works up to 10 line addresses

    ' find how many lines in address
    Dim n As Integer
    Dim m As Integer
    n = 0
    Dim lastposition As Integer
    Dim WorkAddress As String
    Dim LeadingBlanks As String

    ' remove double lines and truncate trailing lines
    WorkAddress = Replace(Trim(Me.Address), vbCrLf & vbCrLf, vbCrLf)

    ' count lines
    lastposition = 1
    Do
        lastposition = InStr(lastposition + 1, WorkAddress, vbCrLf)
        n = n + 1
    Loop Until lastposition = 0

    ' add leading blanks to make all addresses take up 10 lines
    LeadingBlanks = ""
    For m = 10 To n Step -1
        LeadingBlanks = LeadingBlanks & vbCrLf
    Next

    ' diaplay address with leading blanks
    Me.TxtAddress = LeadingBlanks & WorkAddress

End Sub

It is possible to set the vertical alignment of Text box or label in MS ACCESS.
Select the Text box or Label and Go to Porperties , Then Scroll down to the TopMargin and set its value to 0.2 or 0.3 depending on your text box or label size..

Thanks

Alam Shehzad
Pakistan