엑셀 모든 메모 위치와 크기를 초기화 :: Reset_Notes 사용법

엑셀 메모 초기화 :: Reset_Notes 명령문 사용법 총정리

엑셀 Reset_Notes 명령문 목차 바로가기

예제파일 다운로드
명령문 상세 설명
Reset_Notes 명령문 전체 코드
명령문 실전 사용예제
동작원리 단계별 알아보기

요약

시트에 사용된 모든 메모의 위치와 크기를 초기화합니다.

명령문 구문

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

사용된 인수 및 변수 알아보기

인수	설명
시트 [선택인수, WorkSheet]	메모를 초기화 할 대상 시트입니다. 기본값은 현재 활성화된 시트입니다.
크기초기화 [선택인수, Boolean]	True일 경우 메모의 크기를 초기화합니다. 기본값은 True 입니다.
위치초기화 [선택인수, Boolean]	True일 경우 메모의 위치를 초기화합니다. 기본값은 True 입니다.

예제파일 다운로드

오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.

[엑셀VBA함수] Reset_Notes 명령문
예제파일
로그인하기

상세 설명

Reset_Notes 명령문은 특정 시트에서 사용된 모든 메모의 위치와 크기를 초기화하는 매크로입니다. 만약 현재 실행중인 파일의 모든 시트 메모를 한 번에 초기화하려면, Reset_Notes 매크로를 아래와 같이 사용합니다.

Sub 통합문서_메모초기화()
 
Dim WS As Worksheet
 
For Each WS In ThisWorkbook.Worksheets
Reset_Notes WS
Next
 
End Sub

실전 사용 예제

현재 통합문서 특정 시트의 메모 초기화하기
Reset_Notes ThisWorkBook.WorkSheets("시트명")
현재 활성화된 시트의 메모 위치만 초기화하기
Reset_Notes ActiveSheet, 1, 0

엑셀 메모 초기화, Reset_Notes 명령문 동작원리

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
Next
End Sub

5 1 투표

게시글평점