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

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
>
>
>

thanks,
looks good


"Tom Ogilvy" <(E-Mail Removed)> wrote in message
news6D8A497-C609-4727-ADE7-(E-Mail Removed)...
> 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
> >
> >
> >