아래와 같이 단어,뜻,예문,예문해석으로 구성된 엑셀양식으로부터 위처럼 단어풀이 슬라이드를 일괄 생성해주는 VBA매크로 프로그램입니다.
Eng 열이 영어단어 Kor 열이 한글 해석, Sentence 가 예문입니다.
파워포인트 맨 마지막 기준 슬라이드에 위의 이름과 같은 도형이 있어야 합니다.
기준 슬라이드에는 각 도형의 애니메이션이 적용되어 있으면 이 효과는 복사됩니다.
먼저 맨 마지막 기준 슬라이드의 Eng, Kor, Sentence 도형의 폰트나 색상, 글자크기, 애니메이션 등을 설정합니다.
Alt-F8을 누르고 아래 매크로를 실행합니다.
1. GeneratePPT는 엑셀 파일로 부터 각 슬라이드를 만들어줍니다.
2. InsertTTS는 구글 TTS발음을 다운로드받아 삽입해줍니다. TTSMP3=True 로 바꿔주면 TTSMP3사이트에서 발음을 다운로드합니다. 이 사이트는 특히 아마존 TTS 규격인 SSML을 지원합니다. <prosody rate="0.8" pitch="high" volume="loud"> 이런 스크립트 설정이 가능합니다.
참고: https://docs.aws.amazon.com/polly/latest/dg/supportedtags.html
3. InsertLocalMP3 는 로컬 폴더의 mp3파일을 일괄로 삽입합니다.
TypeCast.ai 사이트를 이용하면 효과적입니다.
4. ApplyTransition 은 화면 전환효과를 일괄로 추가합니다.
가장 큰 특징은 영어 단어 발음과 예문 발음을 자동으로 삽입하는 점입니다.
아래와 같은 3가지 방법을 제공합니다.
1. Google TTS
https://translate.google.com/?sl=auto&tl=en&text=words%20you%20want%20to%20know
제한 없음.
2. TTSMP3.com
https://ttsmp3.com/makemp3_new.php
이 사이트는 Amazon계열 TTS소리를 하루에 3000자 이내 다운로드할 수 있음.
3.로컬 드라이브에 저장된 mp3파일
특히 typecast.ai 등에서 각 문장별로 저장된 mp3 파일이나 로컬 드라이드에 저장된 001.mp3, 002.mp3 등 특정 폴더 안의 일련의 로컬 파일들을 한 슬라이드당 2개씩(Eng, Sentence) 삽입하고 애니메이션을 설정해줍니다.
참고로 음질 좋은 인공지능 TTS 사이트를 추가로 안내합니다.
실시간으로 녹음하거나 다운로드 받아서 문장별로 파일을 분리해줘야 합니다.
- 구글 Cloud Speech AI:
https://cloud.google.com/text-to-speech/
- Microsoft Azure AI Speech:
https://azure.microsoft.com/ko-kr/products/cognitive-services/text-to-speech/#features
MS사이트는 특히 Tampermonkey스크립트를 이용해 아래처럼 다운로드 기능을 활성화시킬 수 있습니다.
이 사이트들은 음질이 우수하나 다운로드 후 문장별로 mp3파일을 끊어줘야하는 단점이 있습니다.
생성 슬라이드 쇼 결과 화면:
스피커 도형을 누르면 소리를 끄거나 켤 수 있고
새로고침은 현재 슬라이드를 다시 보여주어서 발음을 다시 들을 수 있습니다.
좌상단 번호버튼을 누르면 모든 슬라이드보기 화면이 뜹니다.
실행과정 캡쳐:
예제문장 생성시 기존에 사용된 어휘가 그대로 사용되지 않고 과거형 등으로 바뀐 경우
사용자가 직접 강조할 부분을 [괄호]로 묶어주도록 했습니다.
샘플:
아래 두 파일은 코드 내용은 같으나 1번은 구글 발음을 다운로드한 것이고
2번은 Typecast.ai 의 Katie 발음을 로컬로 다운받아 일괄삽입한 것입니다.
1.Google TTS 발음
2. TypeCast.AI 사이트의 Katie 발음
이 콘텐츠는 인공지능 가상 연기자 서비스, 타입캐스트를 활용하여 제작되었습니다. 출연진: (Katie) https://typecast.ai/kr |
'PPT+VBA' 카테고리의 다른 글
구역내 슬라이드 랜덤 순서로 이동하기 (0) | 2023.02.17 |
---|---|
자유형 도형의 점편집시 점과 점을 수평 또는 수직으로 맞추기 (0) | 2023.02.05 |
현재 선택된 도형을 클립보드 이미지로 채우기 (0) | 2023.01.29 |
[엑셀연동] 봉투 주소 일괄 출력 (1) | 2023.01.18 |
엑셀데이터 연동 PPT 슬라이드 만들기 예제와 구글 TTS 발음 다운로드 (0) | 2022.12.02 |
지도 도형 내부를 사각형으로 자동채우기 (0) | 2022.11.21 |
PPT 시작할 때 매크로 파일들 자동으로 열기 (0) | 2022.11.16 |
오디오 Fade Out 효과 구현 (0) | 2022.11.13 |
최근댓글