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

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

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