Combo Box

[Guest]

I'm trying to get a combo box on forms toolbar to exactly fit in a cell but
can't get row height to be exaxt. Can this be dine? Using Excel 2003

Thanks.

 

[Guest]

The only trouble is there is a limitation to the minimum height for a Forms
Combobox (at least in Excel 2000, assume same in 2003). So you can set all
the other dimensions to match your cell but, if the cell is not tall enough,
you will need to set the row height bigger to accomodate the combo - the
following code, putting in the proper object names, should do it:

Sheets("SheetName").Shapes("Drop Down 1").Top = Range(ComboCell).Top
Sheets("SheetName").Shapes("Drop Down 1").Left = Range(ComboCell).Left
Sheets("SheetName").Shapes("Drop Down 1").Width = Range(ComboCell).Width
Range(ComboCell).RowHeight = Sheets("SheetName").Shapes("Drop Down 1").Height

If for some reason changing the row height is not desirable, then you could
use a combobox from the Controls Toolbox, which does not have a minimum
height limitation.

 

[Guest]

Thanks a lot. Apreciated.

The only trouble is there is a limitation to the minimum height for a Forms
Combobox (at least in Excel 2000, assume same in 2003). So you can set all
the other dimensions to match your cell but, if the cell is not tall enough,
you will need to set the row height bigger to accomodate the combo - the
following code, putting in the proper object names, should do it:

Sheets("SheetName").Shapes("Drop Down 1").Top = Range(ComboCell).Top
Sheets("SheetName").Shapes("Drop Down 1").Left = Range(ComboCell).Left
Sheets("SheetName").Shapes("Drop Down 1").Width = Range(ComboCell).Width
Range(ComboCell).RowHeight = Sheets("SheetName").Shapes("Drop Down 1").Height

If for some reason changing the row height is not desirable, then you could
use a combobox from the Controls Toolbox, which does not have a minimum
height limitation.