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.

Editado el el 14 de junio4 años por fx.ingenieria
Me faltaba poner infor

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

 

Antoni millones de gracias.  Solucionado este asunto.