Reset_Notes

Sub

시트에 사용된 모든 메모의 위치와 크기를 초기화하는 VBA 명령문입니다.

예제파일 다운로드

구문 Reset_Notes [시트], [크기초기화], [위치초기화]

인수구분 형식 설명

시트 선택 Worksheet

메모를 초기화 할 대상 시트입니다. 기본값은 현재 활성화된 시트입니다.

크기초기화 선택 Boolean

True일 경우 메모의 크기를 초기화합니다. 기본값은 True 입니다.

위치초기화 선택 Boolean

True일 경우 메모의 위치를 초기화합니다. 기본값은 True 입니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요

Sub Reset_Notes(Optional WS As Worksheet, Optional cSize As Boolean = True, Optional cPos As Boolean = True)

If WS Is Nothing Then Set WS = ActiveSheet

Dim c As Comment

For Each c In WS.Comments
    With c
        If cSize = True Then c.Shape.TextFrame.AutoSize = True
        If cPos = True Then
            c.Shape.Top = c.Parent.Top + 5
            c.Shape.Left = c.Parent.Offset(0, 1).Left + 5
        End If
    End With
Next
End Sub

Module1 · Reset_Notes

Sub Reset_Notes(Optional WS As Worksheet, Optional cSize As Boolean = True, Optional cPos As Boolean = True)

If WS Is Nothing Then Set WS = ActiveSheet

Dim c As Comment

For Each c In WS.Comments

With c

If cSize = True Then c.Shape.TextFrame.AutoSize = True

If cPos = True Then

c.Shape.Top = c.Parent.Top + 5

c.Shape.Left = c.Parent.Offset(0, 1).Left + 5

End If

End With

End Sub

활용 예제

현재 통합문서 특정 시트의 메모 초기화하기

Reset_Notes ThisWorkBook.WorkSheets("시트명")

현재 활성화된 시트의 메모 크기만 초기화하기

Reset_Notes ActiveSheet, 1, 0

5 (1개 평가)

강민준🤗 2024.08.11 12:57

좋은 자료 감사합니다.🙇‍♂️

Reset_Notes

마스터 코드

활용 예제

바로가기

커뮤니티

문의

[공지] 오빠두에듀 프리랜서 보조 강사 모집

[직원 채용] 오빠두엑셀이 정규직 동료를 모십니다

두드림 무료 챌린지, 새단장 프로모션