Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding ComboBox programitacally
Hello,
I am struggling a little. I see you can add a CheckBox by doing this: With ActiveSheet.CheckBoxes.Add(Range(objRange.Address) .Left + Range(objRange.Address).width / 2 - 6, _ Range(objRange.Address).Top + Range(objRange.Address).height / 2 - 10, 15, 25) However I am trying to build a combobox. I have been trying a bunch of things such as: Dim objSheet As Excel.Worksheet Set objSheet = Excel.ActiveSheet Dim objRange As Excel.Range Set objRange = Range("$F$10") objSheet.ComboBoxes.Add .... etc.... can anyone help on creating a combo box. in a specific range area? thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding ComboBox programitacally
I don't know about your calculations/measurements, but this will put in a
combobox (dropdown box) from the forms toolbar: Sub aAA() Set objRange = Range("J13") With ActiveSheet.DropDowns.Add( _ Range(objRange.Address).Left + _ Range(objRange.Address).Width / 2 - 6, _ Range(objRange.Address).Top + _ Range(objRange.Address).Height / 2 - 10, 15, 25) End With End Sub -- Regards, Tom Ogilvy "greg" wrote: Hello, I am struggling a little. I see you can add a CheckBox by doing this: With ActiveSheet.CheckBoxes.Add(Range(objRange.Address) .Left + Range(objRange.Address).width / 2 - 6, _ Range(objRange.Address).Top + Range(objRange.Address).height / 2 - 10, 15, 25) However I am trying to build a combobox. I have been trying a bunch of things such as: Dim objSheet As Excel.Worksheet Set objSheet = Excel.ActiveSheet Dim objRange As Excel.Range Set objRange = Range("$F$10") objSheet.ComboBoxes.Add .... etc.... can anyone help on creating a combo box. in a specific range area? thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding ComboBox programitacally
thanks,
looks good "Tom Ogilvy" wrote in message ... I don't know about your calculations/measurements, but this will put in a combobox (dropdown box) from the forms toolbar: Sub aAA() Set objRange = Range("J13") With ActiveSheet.DropDowns.Add( _ Range(objRange.Address).Left + _ Range(objRange.Address).Width / 2 - 6, _ Range(objRange.Address).Top + _ Range(objRange.Address).Height / 2 - 10, 15, 25) End With End Sub -- Regards, Tom Ogilvy "greg" wrote: Hello, I am struggling a little. I see you can add a CheckBox by doing this: With ActiveSheet.CheckBoxes.Add(Range(objRange.Address) .Left + Range(objRange.Address).width / 2 - 6, _ Range(objRange.Address).Top + Range(objRange.Address).height / 2 - 10, 15, 25) However I am trying to build a combobox. I have been trying a bunch of things such as: Dim objSheet As Excel.Worksheet Set objSheet = Excel.ActiveSheet Dim objRange As Excel.Range Set objRange = Range("$F$10") objSheet.ComboBoxes.Add .... etc.... can anyone help on creating a combo box. in a specific range area? thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding Combobox Values | Excel Programming | |||
Creating/Adding Combobox | Excel Programming | |||
Dynamically adding data to a Combobox? | Excel Programming | |||
Having problems with adding input from combobox | Excel Programming | |||
3 possible methods for adding value to a combobox | Excel Programming |