| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 파워포인트 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
안녕하세요? 처음 글을 쓰네요. 고수님께 도움을 받고 싶어서요.
1. 주어진 문제.
- 파워포인트로 문서를 작성하면 작성날자를 로고에 기록해야 합니다.로고는 슬라이드 마스터에 있습니다. 문서 작성때마다 제목에 작성일을 적고 로고가 있는 슬라이드 마스터를 열고 매뉴얼로 날자를 수정하고 마스터 닫기 합니다.(매번 합니다.)
2. 개선 방향.
- 매뉴얼로 진행하는 반복 작업을 슬라이드 문서에 일시를 기재하고 매크로 실행 버턴을 누르면 슬라이드 마스터에 적힌 로고에 일시가 자동 수정 되도록 코딩 하려고 합니다.
3. 도움 받고 싶은 부분
- 현재 코딩된 매크로를 실행하면 슬라이드 마스터가 열리고, 첫번째 장의 로고만 수정이 됩니다. 다음 페이지에도 유사 로고가 있는데 다음 페이지는 수정이 안됩니다.(저의 코딩 문제로 판단) 도움 받고 싶은 부분이 이것인데요, 첫번째 슬라이드 마스터가 활성화 되고 수정된 후 다음 페이지의 슬라이드 마스터를 활성화 시키고 로고의 일자를 바꾸는 코딩입니다. 며칠째 하고 있는데 잘 안되네요. 이 부분에 대한 고수님또는 경험 있으신분의 도움 받고 싶습니다. (제가 설명을 잘했는지 모르겠네요...)
이상입니다.
그럼 오늘 하루도 승리하세요
//------------------ 작성중 coding -----------------------------//
ActiveWindow.ViewType = ppViewSlideMaster
ActivePresentation.SlideMaster.Shapes("Text Box 21").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=12, Length:=5).Select
ActiveWindow.View.Paste
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=29, Length:=5).Select
ActiveWindow.View.Paste
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font
.NameAscii = "Tahoma"
.NameOther = "Tahoma"
End With
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 8
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Bold = msoFalse
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Shadow = msoFalse
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Color.RGB = RGB(Red:=255, Green:=0, Blue:=0)
--> 여기까지 실행하고.. 다음 페이지의 로고 내용을 수정해야 하는데.. 선택이 안됩니다..
ActivePresentation.SlideMaster.Shapes("Text Box 21").Select
...
ActiveWindow.ViewType == ppViewSlide |
|
파워포인트에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
