본문 바로가기
컴퓨터 활용(한글, 오피스 등)/문서작성 도구(앱)

파워포인트_표 서식 복사

by 3604 2022. 12. 16.
728x90

VBA로 특정 테이블의 글꼴, 배경 등 몇몇 주요서식을 복사해서

원하는 테이블에 서식만 복사할 수 있도록 만들어 보았습니다.

첨부한 TableFormatCopy1.pptm을 열고 테스트해보세요.

 

그림처럼 리본메뉴가 생성되는데

Copy Table Format 버튼은 테이블의 서식을 복사합니다.

Paste Table Format 은 복사된 서식을 선택된 테이블에 일괄 적용합니다.

 

현재 테이블의 전체적인 배경,

1행1열의 배경색, 투명도, 글자크기, 한영글꼴, 외곽선, 좌우상하정렬, 좌우여백

1행2열의 배경색, 투명도, 글자크기, 한영글꼴, 외곽선(상하좌우 테두리), 좌우상하정렬, 좌우여백

을 복사합니다.

 

리본메뉴에 기능을 추가한 실행 영상입니다.

 

추가기능으로 이용하려면 첨부한 pptm 을 ppam 형식으로 다시 저장해서 아래처럼 추가기능으로 설치하면

영구적으로 이 리본 메뉴를 이용할 수 있습니다.

질문자님의 PC에만 설치되고 다른 사용자는 매크로를 사용할 필요가 없습니다.

 

소스는 아래와 같습니다.

파일 첨부합니다.

 

TableFormatCopy1.pptm
0.06MB
 

 

[2021.12.20] 제목줄과 바로 다음줄 뿐만 아니라 세번째 줄의 서식도 홀짝 번갈아가면 복사하는 버전을 추가합니다.

또한 복사한 테이블 서식을 모든 슬라이드의 테이블에 적용하는 버튼도 추가했습니다.

 

 
TableFormatCopy2.pptm
0.05MB

 

[2021.12.21] 이전에는 아래의 1,2,3번 영역을 반영했다면 이번에는 제목줄 아래에 2행 이후의 1열들(아래 4번 영역)의 표 속성이 다른 셀들과 다른 경우를 반영한 버전입니다.

 

 

[2021.12.27.] 테이블 전체가 아니라 하나의 셀 속성을 복사해서 다른 선택된 셀 들에 복사하거나 혹은 테이블전체에 복사하는 기능을 추가했습니다.

 

 

[2022.02.05.] Table(표)의 Border 와 관련해서 버그가 많네요. 특정 셀의 대각선.Visible 속성이나 선을 보이고 감추는 것과 관련해서 작동하지 않는 경우가 많습니다. 그래서 선을 감출 때 .Visible 속성이 작동하지 않아 .Transparancy 속성의 100으로 주는 경우가 많습니다. 차라리 선이 없는 경우 아예 속성을 부여하지 않는 것이 좋겠습니다.

일단 어찌해서 대체로(?) 작동하게 수정한 버전입니다.

 

 

 

 

(아래는 추가기능(ppam)으로 변환한 파일입니다. 항상 사용할 수 있는 추가기능으로 사용하는 방법은 위를 참고하세요.)

 

 

728x90