how to nudge a control located in a parent object (like a frame)

Question

I created a nudge command that moves the top/left properties of selected controls of a userform in a particular direction. now that I am using it, I see an issue with the command. Any parent controls (like frame, tab strip, multipage with imbedded controls) that have the focus are the ones that get nudged, even if there are selected controls in that parent object. how can I gain access to the controls inside&nbsp; of a parent object? below is the three line procedure that moves the control. anyone with userform.designer knowledge?&nbsp;&nbsp;&nbsp;    For Each ctl In Workbooks(SelectedWb).VBProject.VBComponents(CompName).Designer.Selected
        ctl.Left = ctl.Left + (DistanceInPixels / 2)
    Next ctl&nbsp;&nbsp;&nbsp;

danmcg · Accepted Answer

DanMcG&nbsp;For Each ctl In Workbooks(activeWb).VBProject.VBComponents(preserveName).Designer.Selected&nbsp; &nbsp; If TypeName(ctl) = "Frame" Then&nbsp; &nbsp; &nbsp; &nbsp; For Each ctl2 In &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Workbooks(activeWb).VBProject.VBComponents(preserveName).Designer.Controls(ctl.Name).Selected&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; childCount = childCount + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ctl2.Left = ctl2.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; Next ctl2&nbsp; &nbsp; &nbsp; &nbsp; If childCount = 0 Then ctl.Left = ctl.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; childCount = 0&nbsp; &nbsp; ElseIf TypeName(ctl) = "MultiPage" Then&nbsp; &nbsp; &nbsp; &nbsp; pageSelect = Workbooks(activeWb).VBProject.VBComponents(preserveName).Designer.Controls(ctl.Name).Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each ctl2 In &nbsp; &nbsp; &nbsp; Workbooks(activeWb).VBProject.VBComponents(preserveName).Designer.Controls(ctl.Name).Pages(pageSelect).Selected&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; childCount = childCount + 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ctl2.Left = ctl2.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next ctl2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If childCount = 0 Then ctl.Left = ctl.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; childCount = 0&nbsp; &nbsp; &nbsp; &nbsp; ElseIf TypeName(ctl) = "TabStrip" Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ctl.Left = ctl.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ctl.Left = ctl.Left + (lngDistanceInPixels / 2)&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; Next ctl

Forum Discussion

how to nudge a control located in a parent object (like a frame)

2 Replies

Resources