'проходит по указанным элементам управления и устанавливает их размеры + местоположение
Sub SizeElementsOnSheet()
    With ThisWorkbook.Sheets("XXX")
        Call EditParamElements(.btLoad, .Range(Cells( 2 ,  1 ), Cells( 2 ,  2 )))        
    End With
End Sub
'MainRange-Диапазон по которому будет подгоняться элемент управления
Sub EditParamElements(El As Variant, Rg As Range)
    If El.Top <> Rg.Top Then El.Top = Rg.Top
    If El.Left <> Rg.Left Then El.Left = Rg.Left
    If El.Height <> Rg.Height Then El.Height = Rg.Height
    If El.Width <> Rg.Width Then El.Width = Rg.Width
End Sub