Ensuring size of active x list boxes

[raccoon588]

I have the following code and it works if the only thing i list is the font size. When i add the height and width i get an error. Run- time error '438': Objest doesnt support this property method.

is there anything i can do to get my active x list boxes to stop resizing?

I sent the integral height property to false but it continues to resize.

For Each OLEobj In ActiveSheet.OLEObjects


If OLEobj.progID = "Forms.ListBox.1" Then
   ' OLEobj
    OLEobj.Object.Font.Size = 12
    OLEobj.Object.Height = 47.25
    OLEobj.Object.Width = 141.75
End If
Next OLEobj
End Sub

 

[Jaafar Tribak]

When does the resizing happen ?

 

[raccoon588]

usually when someone opens the file on a different PC and then i reopen it on mine.

 

[Jaafar Tribak]

usually when someone opens the file on a different PC and then i reopen it on mine.

I know activeX controls on worksheets are buggy although I personally never had problems with them. I was going to suggest using a ListBox from the Forms toolbar but that wouldn't let you change the font size.

Just a stab in the dark, try toggling the Visible Property after setting the font size and see what happens .