List Boxes Font Size

[raccoon588]

I have 42 list boxes. When the file is opened on a different PC and then i reopen it on mine the font shrinks. Is there a way to loop through all 42 boxes when the file is opened and set the all to font size 24?

 

[Richard U]

if these are activex controls, you can do it this way

For Each OLEobj In ActiveSheet.OLEObjects
MsgBox OLEobj.progID
If OLEobj.progID = "Forms.ListBox.1" Then
   ' OLEobj
    OLEobj.Object.Font.Size = 24
End If
Next OLEobj
End Sub

 

[My Aswer Is This]

That answer works for me. I was trying to answer this post but could not come up with a answer.
I've looped through UserForm controls before but not activex controls.

if these are activex controls, you can do it this way

For Each OLEobj In ActiveSheet.OLEObjects
MsgBox OLEobj.progID
If OLEobj.progID = "Forms.ListBox.1" Then
   ' OLEobj
    OLEobj.Object.Font.Size = 24
End If
Next OLEobj
End Sub

 

[raccoon588]

is there a way to do it without the msg box popping up for everyone?

 

[My Aswer Is This]

is there a way to do it without the msg box popping up for everyone?

Just remove that line of code.
It's always a good ideal to always try to understand code.
See. Remove this line of code:

MsgBox OLEobj.progID
​

 

[raccoon588]

Thank you

 

[My Aswer Is This]

Glad to see Richard was able to teach us both something today. Take care.

Thank you

 

[Richard U]

Sorry, I left the message box in, just delete it.