엑셀에서 체크박스 정렬이 쉽지 않다. 그래서 ..여기저기써치~
비슷한게 요기요기:
https://ko.extendoffice.com/documents/excel/4783-excel-checkbox-center-in-cell.html
하지만 ~ 딱 원하는 기능이 아니라.. 요래요래
코드 요고 가따 쓰면 되요~
Sub CenterCheckbox()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = 15 ' 최소한의 너비
chkBox.Height = 15 ' 최소한의 높이
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = 15 ' 최소한의 너비
chkFBox.Height = 15 ' 최소한의 높이
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub
쓰는 방법은~
대상은 요런 체크박스 막나가는 걸 !!~ 고칠건데, 좌측 상단 비주얼베이직 버튼 클릭!
원하는 시트에 마우스 오른쪽 클릭하면
path:삽입>모듈 클릭하면 창이 하나 뜨는데 거기 위에 소스 !~ cv
하고 ctrl + S 로 저장!~
다시 엑셀로 와서
개발도구>좌측상단의 매크로 버튼 눌리면
매크로 창이 뜨는데 거기 못보던 ~ 'CenterCheckbox' 매크로가 생겨있고 ~
실행 클릭!하면~
짜잔!~ 최소화 하고 ~ 셀 가운대 정렬!~까지
잘 쓰세요 ~