Cómo alinear check boxes en formularios

[fx.ingenieria]

ALINEAR CHECK BOX.xlsmBuenos días, mi consulta es que si pueden ayudarme para alinear esos check boxes, centrarlos y que todos me queden uniformemente ordenados en el formlario.  Mil gracias.

[Antoni]

Prueba con esta macro.

Sub Alinear()
For Each check In ActiveSheet.Shapes
   If check.Name Like "Check*" Then
      check.Height = 15
      check.Width = 15
      check.Left = check.TopLeftCell.Left + 6
      check.Top = check.TopLeftCell.Top + 3
   End If
Next
End Sub

 

[fx.ingenieria]

Antoni millones de gracias.  Solucionado este asunto.