파워포인트 글자 크기 일괄 변경 - pawopointeu geulja keugi ilgwal byeongyeong

나눔터  

  HOME > 나눔터 > 묻고답하기 > 파워포인트

나눔터 홈

묻고답하기
• 엑셀
• 워드
• 액세스
• 파워포인트
• 아웃룩
• 원노트
• 오피스공통

MVP
• MVP 안내
• MVP 명예의 전당
• MVP 카페

MY나눔터

작성자:    이영범 (imtel) 추천:  3 파일:     어러슬라이드를 한번에 수정할수 있나요.ppt (36.5KB) 조회:  4286 제목:   글꼴,크기한번에 수정

* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 1. 파워포인트 버전(95,97,2000,2002): 2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): 3. CPU (486,PentiumI/II/III/IV...): 4. RAM (32,64,128,256,512MB,1G...): * 아래줄에 질문을 작성하세요 >>  여러슬라이들 10~20개 이상 한번에 모든 슬라이드에 글꼴을 변경 할수 있나요 [불량 게시물 신고]

황정원 님이 원하는 정확한 기능은 없는듯 하네요. 다른 몇 가지 유사한 기능은 있습니다. 1. 특정 글꼴 한꺼번에 바꾸기   - 서식-글꼴바꾸기 대화상자에서 현재글꼴에서 원하는 글꼴 선택 후 새글꼴에서 바꾸고자 하는 글꼴을 선택하면 한꺼번에 글꼴을 바꾸실 수 있습니다. 2. 모양복사/붙여넣기 : 글꼴, 폰트크기, 글꼴색 바꾸기  - 원하는 글꼴에 마우스 클릭 후 도구모음에서 '모양복사' 버튼을 더블클릭하면 글꼴, 글자색, 크기 등이 복사됩니다. 이 때 마우스 포인트가 화살표에서 글자입력 형태로 변경이 됩니다.(모양복사 버튼을 한 번 누르면 한번만 모양을 한 번만 붙여넣을 수 있고 더블클릭을 하면 여러번 붙여넣을 수 있습니다.)  - 그 상태에서 원하는 단락이나 단어를 드래그하거나 클릭하면 복사했던 글꼴, 글자색, 크기 등이 그대로 적용이 됩니다. 적용이 끝나면 esc키를 누르시면 됩니다. 05-30 (09:45) ⓧ삭제 ■신고

마돈나 서식복사 단축키는 CTRL + SHIFT + C  붙여넣기는 CTRL + SHIFT + V 입니다. 06-02 (21:04) ⓧ삭제 ■신고

        

작성일 : 2006-05-29(21:29)
최종수정일 : 2006-05-29(21:31)

파워포인트 에서 단축키 Alt+F11에서 삽입-> 모듈 추가 한 후,

아래 코드 입력

실행(F5)

' 는 주석

Function FontChange(ByRef tr As TextRange) Dim tf2 As TextFrame2 Dim shp As Shape ' '기본폰트 ' tr.Font.Name = "맑은 고딕" ' '한글인 경우 폰트 ' tr.Font.NameFarEast = "맑은 고딕" ' '영문숫자인 경우 폰트 ' tr.Font.NameAscii = "Times New Roman" ' '폰트 색깔 ' tr.Font.Color.RGB = RGB(155, 125, 200) ' '폰트 사이즈 tr.Font.Size = 40 ' '좌우정렬 ' tr.ParagraphFormat.Alignment = ppAlignCenter ' '줄간격 ' With tr.ParagraphFormat ' .LineRuleWithin = msoTrue '문단 내 줄간격 ' .SpaceWithin = 1.5 ' .LineRuleBefore = msoTrue '문단 전 줄간격 ' .SpaceBefore = 0.5 ' .LineRuleAfter = msoTrue '문단 후 줄간격 ' .SpaceAfter = 0.5 ' End With ' ' Set shp = tr.Parent.Parent ' Set tf2 = shp.TextFrame2 ' '줄바꿈(테이블의 경우 오류) ' 'tf2.WordWrap = msoFalse ' '글자간격 ' tf2.TextRange.Font.Spacing = -1 ' '위아래정렬 ' tf2.VerticalAnchor = msoAnchorMiddle End Function