ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Combo Box (https://www.excelbanter.com/excel-programming/330169-combo-box.html)

Inserting an option button in Word

Combo Box
 
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.

K Dales[_2_]

Combo Box
 
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.

" Inserting an option button in Word" wrote:

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.


Inserting an option button in Word

Combo Box
 
Thanks a lot. Apreciated.

"K Dales" wrote:

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.

" Inserting an option button in Word" wrote:

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.



All times are GMT +1. The time now is 09:35 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com