Font size reducing by itself in a list box.

We wrote a VBA app under Excel 2010. A particular user on an XP machine is seeing the font size in a list box reduced to almost unreadable size. The list box font property is set to Arial 12. Another user on an XP machine cannot replicate the problem. And the developer, myself, cannot reproduce it on a Win2007 machine. Attached is a screenshot of the reduced font list box.

Any help would be greatly appreciated, thanks.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

NorieVBA ExpertCommented:
No screenshot I'm afraid.:)

Where is the listbox located and how did you create it?
The font file on the particular machine might be damaged. How does that font appear in other contexts?
Martin LissOlder than dirtCommented:
I assume that the control is on a sheet and that you are using an ActiveX listbox rather than a forms listbox. If so that's a known problem when using ActiveX controls on a sheet which they really aren't designed for. On the other hand, the problem with using a forms listbox is that while the font size won't change, it is set at a small size that can't be changed. There's another option however which is described in my Magical Floating ActiveX Control article. And yes, it uses ActiveX controls but you won't experience the shrinking font problem because the listbox will be recreated each time.
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

mcgilvraAuthor Commented:
List box is located on a worksheet. List box was created from Controls (not forms). List box text entries are added via VBA code. I'll have to check on font appearance in other contexts. Screen shot is now attached.
Martin LissOlder than dirtCommented:
I assume that you chose the control at the arrow. If so then please see my previous post.
ActiveX listbox
mcgilvraAuthor Commented:
I am using an ActiveX Listbox on a sheet. I found a solution in another ExpertExchange article: "Dealing with unintended Excel Active-X resizing quirks (VBA code simulates "self correction")"

Here's the solution: set the ListBox IntegralHeight property to True, then back to False, then restore it's original Height and Width properties, this can all be done in code during initialization.

Here's my code for a ListBox named lbLogList:

    With Sheets("Graphs").lbLogList
        SaveHeight = .Height 'save original height and width
        SaveWidth = .Width
        .IntegralHeight = True 'set to an integral height, this will fix the shrinking text problem but make the box bigger.
        .IntegralHeight = False 'return to non-integral height
        .Height = SaveHeight  'restore original height and width
        .Width = SaveWidth
    End With

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Martin LissOlder than dirtCommented:
I'll bet that after several clicks that while the size of the listbox will be restored that the size of the font will shrink.
Martin LissOlder than dirtCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.