#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 13
Default 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.
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,163
Default 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.

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 13
Default 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.

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
linking a form combo box... results from the combo box to another Trey Excel Discussion (Misc queries) 1 July 15th 07 01:58 AM
combo reference on another combo box for picking address etc. kbjin Excel Worksheet Functions 1 December 8th 06 03:29 PM
Combo box values based on other combo box value JCanyoneer Excel Programming 1 April 5th 05 06:41 PM
"Combo Box - getting control combo box to stick in place in worksh ajr Excel Discussion (Misc queries) 1 February 16th 05 02:05 AM
"Combo Box - getting control combo box to stick in place in worksh ajr Excel Discussion (Misc queries) 0 February 15th 05 07:45 PM


All times are GMT +1. The time now is 09:02 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"