Forum Discussion

Brass Contributor

Jan 22, 2021

Solved

Can I programmatically change properties of selected userform controls when I am designing the form?

I have created code to add 4 new commands to a context menu (MSForms Control) that is shown when I right click on selected controls in a userform. Basically I want to nudge the selected controls in a...

excel

Macros and VBA

DanMcG
Jan 29, 2021
DanMcG
I've determined that this cannot be done, so how do I close the question?

DanMcG

Brass Contributor

Jan 29, 2021

DanMcG

I've determined that this cannot be done, so how do I close the question?

ExcelHCFUser

Copper Contributor

Feb 15, 2021

DanMcG

ThisWorkbook.VBProject.VBComponents("UserForm1").designer.controls("ComboBox1").left = 0

and/or

ThisWorkbook.VBProject.VBComponents("UserForm1").designer.controls("ComboBox1").top = 0

note that ThisWorkbook.VBProject.VBComponents("UserForm1").designer properties and methods are hidden and there is no intellisense available

DanMcG

Brass Contributor

Feb 18, 2021

ExcelHCFUser

This can be done by accessing the .Designer property of the selected vbcomponent. Below will move the selected controls a specific direction a number of pixels.

Sub nudgeHor(distanceInPixels As Long)
    Dim ctl    As Control
    For Each ctl In ThisWorkbook.VBProject.VBComponents(Application.VBE.SelectedVBComponent.Name).Designer.Selected
        ctl.Left = ctl.Left + distanceInPixels
    Next ctl
End Sub
Sub nudgeVer(distanceInPixels As Long)
    Dim ctl    As Control
    For Each ctl In ThisWorkbook.VBProject.VBComponents(Application.VBE.SelectedVBComponent.Name).Designer.Selected
        ctl.Top = ctl.Top + distanceInPixels
    Next ctl
End Sub

BartH_NL
Copper Contributor
Apr 12, 2025
This is correct. You can even use the .designer to activate controls in the VBIDE if you don't know where they are.