'엑셀화면을 더 넓게 보기 위해 화면 크기를 100% 이하로 줄이게 되면 화면을 넓게 볼수는 있지만 글씨 등이 너무 작아져 보기 힘든경우가 있다.

'이럴 경우 글씨 크기는 조절하기 쉽지만

'메모기능을 사용하면 덩달아 메모 사이즈와 글씨 크기가 작아서 보기 힘든경우가 있다.

'메모가 몇 개 되지 않으면 하나하나 조정하면 되지만 광범위하게 분포되어 있는경우 조정하기가 난감하다.

'이럴경우 현재 시트의 모든 메모의 글씨크기, 메모상자 크기를 조정할 때 사용하는 VBA 코드이다.

'이 코드를 매크로를 지정하거나 프로그래밍하면 된다.

 

'변수를 Comment 타입으로 선언

Dim memo As Comment

'현재 시트의 모든 메모 크기를 일괄조정
For Each memo In ActiveSheet.Comments
    memo.Shape.TextFrame.Characters.Font.Size = 12 '폰트 크기 조정
    memo.Shape.ScaleHeight 2.8, msoFalse  '세로 크기(조정..배수)
    memo.Shape.ScaleWidth 3#, msoFalse  '가로크기(조정.. 배수)

Next

+ Recent posts