728x90
반응형
아래 내용은 엑셀 사용 시 정렬을 바꾸며 메모 위치가 뒤죽박죽되는 경우 사용하는 재정렬과 엑셀 크기를 자동으로 조절해주는 방식이다.
요약
- ALT + F11
- Insert > Module
- 코드 입력
- F5 (코드 실행 후 재정렬되어있다.)
참고주소
Sub ResetComments()
'Update 20230224
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
pComment.Shape.Top = pComment.Parent.Top + 5
pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
For Each mbox In ActiveSheet.Comments
mbox.Shape.TextFrame.AutoSize = True '//크기를 자동으로
Next mbox
End Sub
728x90
반응형