Commandbutton size=false?

[Guanjin Peter]

Hi I'm facing a little problem here. WHenever I select a list from the combobox, it autosizes the columns and rows. Thus it also affects the sizes of the command button and move it out of place.
Is there a command to force the commnad button not to move or resize?

 

[dafan]

Design mode -> Control button -> Rightclick -> Format Control -> Properties -> Don't move or size with cells.

 

[Guanjin Peter]

hmm...that works.....the button wouldn't move, but will resize...hmm....any idea?

 

[Guanjin Peter]

found another alternative is to create the buttons manually on new load, delete on exit.

the below compiles with error. any idea?

Private Sub CommandButton1_Click()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=441, Top:=10.5, Width:=130.5, Height:=23.25) = True
End Sub

 

[Case_Germany]

Hi,

try:

Sub Test()
    Dim objOLEObject As OLEObject
    Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:= _
        "Forms.CommandButton.1", Left:=441, Top:=10.5, _
        Width:=130.5, Height:=23.25)
End Sub

Case_Germany