Macros and combo boxes

Weinreja · Apr 16th, 2002, 03:50 PM

I used to use macros but its been awhile and I have forgotten the basics. Can anyone tell me the code for a basic combo box?
Thanks for your help!
Jill

Visions_Fugitive · Apr 16th, 2002, 03:57 PM

Quote:

I used to use macros but its been awhile and I have forgotten the basics. Can anyone tell me the code for a basic combo box?

I believe that combo boxes can only be placed on userforms. You have to design the userform and create code to load and display the form. I don't think a combobox can be brought up any other way.

Scott · Apr 16th, 2002, 04:02 PM

You can add a combo box to a spreadsheet without using a user form. You can select it from the Visual Basic menu. If you right click on the top menu, you can select it here, or go to VIEW-TOOLBARS and select VISUAL BASIC. Here is a macro that you can adjust and use that will add a combo box:

Sub AddBox()

ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=240.75, Top:=65.25, Width:=94.5, Height:= _
12.75).Select
Application.CommandBars("Control Toolbox").Visible = False
End Sub

[ This Message was edited by: Scott on 2002-04-16 15:03 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 16th, 2002, 03:50 PM	#1
Weinreja New Member Join Date: Apr 2002 Posts: 1	I used to use macros but its been awhile and I have forgotten the basics. Can anyone tell me the code for a basic combo box? Thanks for your help! Jill

Apr 16th, 2002, 04:02 PM	#3
Scott New Member Join Date: Feb 2002 Location: McKinney Texas Posts: 6	You can add a combo box to a spreadsheet without using a user form. You can select it from the Visual Basic menu. If you right click on the top menu, you can select it here, or go to VIEW-TOOLBARS and select VISUAL BASIC. Here is a macro that you can adjust and use that will add a combo box: Sub AddBox() ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=240.75, Top:=65.25, Width:=94.5, Height:= _ 12.75).Select Application.CommandBars("Control Toolbox").Visible = False End Sub [ This Message was edited by: Scott on 2002-04-16 15:03 ]