글 수 182
출처 : 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
최근 플래시 애니메이션을 파워포인트에서 사용하는 분들이 많아졌는데 아직 플래시 애니메이션을 직접 슬라이드에 삽입하는 명령은 없으므로 컨트롤 도구를 이용해야 합니다.
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