OfficeTutor 365

파워포인트에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    ist공원 (istpark) 추천:  4 파일:     조회:  1242 제목:   특정색의 글자를 선택해서 밑줄 긋는 vba를 알고 싶습니다.
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 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...):  * 아래줄에 질문을 작성하세요 >>  파워포인트 전체 페이지에서 색상있는 글자만 선택해서 밑줄이 그어지도록 매크로를 짜고 싶은데요... 엑셀 vba는 조금은 합니다만, 파워포인트 vba는 시작이 너무 어렵군요. 고수님들은 자상하신 안내를 받고 싶습니다. 좋은 하루 되세요... 　 [불량 게시물 신고]
이중광 안녕하세요 ist공원님^^ Sub SetUnderLine() Dim Pres As Presentation Dim Sld As Slide Dim shp As Shape Dim Chr As TextRange For Each Pres In Presentations     For Each Sld In Pres.Slides         For Each shp In Sld.Shapes             For Each Chr In shp.TextFrame.TextRange.Characters                 If Chr.Font.Color <> 0 Then Chr.Font.Underline = msoTrue             Next         Next     Next Next End Sub 아래 코드를 실행하시면 모든 프리젠테이션의 Shape개체들의 Text를 검사해서 Font가 검정색이 아니면 UnderLine을 설정하는 코드입니다.^^ 그럼 좋은 하루되세요^^ 09-26 (23:51) ⓧ삭제 ■신고 ist공원 감사합니다...이중광님... 큰 도움 됐습니다...^^ 09-27 (20:10) ⓧ삭제 ■신고
작성일 : 2006-09-26(12:52) 최종수정일 : 2006-09-26(12:52)