출처 : http://kin.naver.com/open100/db_detail.php?d1id=1&dir_id=10502&eid=D2exMVqB86uyNjw4iOyogEEuvxwNG1BQ

최근 플래시 애니메이션을 파워포인트에서 사용하는 분들이 많아졌는데 아직 플래시 애니메이션을 직접 슬라이드에 삽입하는 명령은 없으므로 컨트롤 도구를 이용해야 합니다.

1. 플래시 애니메이션을 삽입할 슬라이드를 열고, [보기]-[도구 모음]-[컨트롤 도구 상자] 메뉴를 선택합니다.

2. 컨트롤 도구 모음에서 [그 밖의 컨트롤] 버튼(해머와 렌치 아이콘이 있는 단추)을 클릭하고, 목록에서 Shockwave Flash Object를 선택합니다.

3. 슬라이드에서 마우스를 끌어 드롭해 플래시 애니메이션이 삽입될 위치와 크기를 지정합니다.

4. 이 개체를 마우스 오른쪽 버튼으로 클릭하고 표시되는 단축 메뉴에서 [속성]을 선택한다.

5. 표시되는 속성 창의 [사전순] 탭에서 [Movie] 속성 오른쪽에 있는 빈공간을 클릭하고, 파일 이름을 포함한 전체 드라이브 경로(예: C:My Documentsintro.swf)를 입력합니다. 만약 현재 파워포인트 문서와 플래시 파일이 같은 폴더에 있다면 플래시 파일 이름(예. intro.swf)만 입력해도 됩니다.

Note. 플래시 파일이 인터넷에 있다면
플래시 파일이 인터넷에 있다면 실행할 플래시 애니메이션 파일의 URL을 입력합니다.

6. 슬라이드 쇼 보기로 전환하고, 플래시 애니메이션을 확인합니다.

Note. 속성 창에서 플래시 애니메이션 설정하기
- 플래시 애니메이션의 시작 시점을 설정하고 싶다면 [FrameNum] 속성에서 시작 프레임 번호를 입력합니다.
- 만약 슬라이드 쇼에서 플래시 애니메이션이 재생되지 않는다면 [Playing] 속성을 [True]로 설정합니다.
- 삽입한 플래시 애니메이션을 프레젠테이션에 포함시키고 싶다면 [EmbedMovie] 속성을 [True]로 변경합니다.
- 플래시 애니메이션이 반복적으로 실행되지 않게 하려면 [Loop] 속성을 [False]로 설정합니다.





* 목록에 Flash 컨트롤(Shockwave Flash Object)이 없을 경우,
http://www.macromedia.com/shockwave/download/triggerpages_mmcom/flash-kr.html







* 참조.. 플래시 파일 컨트롤에 관련된 매크로 소스

Sub 되감기()
Slide4.ShockwaveFlash1.Rewind


End Sub


Sub 진폭반복()

Dim sh As Slide
Dim i As Integer, j As Integer
For Each sh In ActivePresentation.Slides
   i = sh.Shapes.Count
   'i = 550
   If i <> 0 Then
       For j = 1 To i
           With sh.Shapes(j)
               If .Type = msoOLEControlObject Then
                   If InStr(.OLEFormat.ProgID, "ShockwaveFlash") Then
                       With .OLEFormat.Object
                           .Loop = False '반복해서 무비를 재생하지 않도록 한다
                           .FrameNum = 150 '첫번째 프래임으로 설정
                           .Playing = True '슬라이드 쇼와 함께 무비실행
                       End With
                   End If
               End If
           End With
       Next j
   End If
Next sh
End Sub

Sub 진행()

Slide4.ShockwaveFlash1.Play
End Sub

Sub 노래반복()

Dim sh As Slide
Dim i As Integer, j As Integer
For Each sh In ActivePresentation.Slides
   i = sh.Shapes.Count
   'i = 550
   If i <> 0 Then
       For j = 1 To i
           With sh.Shapes(j)
               If .Type = msoOLEControlObject Then
                   If InStr(.OLEFormat.ProgID, "ShockwaveFlash") Then
                       With .OLEFormat.Object
                           .Loop = False '반복해서 무비를 재생하지 않도록 한다
                           .FrameNum = 450 '첫번째 프래임으로 설정
                           .Playing = True '슬라이드 쇼와 함께 무비실행
                       End With
                   End If
               End If
           End With
       Next j
   End If
Next sh
End Sub