Combobox code

[Brawler]

Hello,
Can someone help me figure out whats wrong with below code. Code does exactly what it shall, but still gives error on "property or method". The code creates a combobox with a listfillrange from another sheet.

Sub Object()
'
Dims1 = Range("b1").Value

'
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=277.5, Top:=36.5, Width:=177.5, Height:=28).Select
With Selection
.ListFillRange = "Object!" & Dims1
.LinkedCell = "$V$7"
.DropDownLines = 8
.Display3DShading = False
End With

End Sub

 

[Norie]

Remove these 2 lines.

.DropDownLines = 8
.Display3DShading = False

 

[Brawler]

Thx. Did it.
If anyone still reads. Why is it that these "Selection" parameters gives fault?

 

[Norie]

The problem might be with what Selection actually is.

If I print the TypeName of Selection when I run your code I get OLEObject and when I look up OLEObject in the Object Browser it doesn't have a either of the properties DropDownLines or Display3DShading.

 

[Jon Peltier]

You might try it without selecting the control:

WithActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=277.5, Top:=36.5, Width:=177.5, Height:=28)
    .ListFillRange = "Object!" & Dims1
    .LinkedCell = "$V$7"
    .DropDownLines = 8
    .Display3DShading = False
End With

 

[Norie]

Jon

I tried that, even threw in a few variables, but couldn't get it to work.

Also, I couldn't find anything for Display3DShading in the Object Browser.

 

[Jon Peltier]

Jon

I tried that, even threw in a few variables, but couldn't get it to work.

Also, I couldn't find anything for Display3DShading in the Object Browser.

I didn't try it, my bad. But that should have helped if the Selection data type was strange.

 

[Brawler]

Hello,
Thanks everyone. It worked