반응형

하지만 ~ 딱 원하는 기능이 아니라.. 요래요래

코드 요고 가따 쓰면 되요~

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' 매크로가 생겨있고 ~

실행 클릭!하면~

짜잔!~ 최소화 하고 ~ 셀 가운대 정렬!~까지

잘 쓰세요 ~

 
반응형

+ Recent posts