파워포인트에 virtools 실행하기
파워포인트에 Viewpoint 및 Virtools 콘텐츠 등이 삽입된 웹페이지를 상대경로로 삽입하고 슬라이드가 시작될 때 자동으로 실행시키는 방법은 다음과 같다.
- 파워포인트을 실행시킨다.
- 콘트롤도구상자에서 기타 콘트롤 아이콘을 누른다.
- 표시되는 콘트롤 목록에서 Microsoft 웹 브라우저를 선택한다.
- 파워포인트 슬라이드 영역에서 드래그하여 웹 브라우저를 삽입한다.
- 웹 브라우저를 우클릭하여 팝업 메뉴에서 코드보기를 항목을 선택한다.
- 비주얼베이직 편집창이 나타나면 편집창 상단 위의 두개의 콤보 박스 중 오른쪽에서 DocumentComplete를 선택한다.(잘 찾아보면 찾을 수 있을 것이다)
- 편집창에 함수가 자동으로 삽입되면 아래와 같이 코드를 완성한다. 이때 세번째 줄의 webpage.html 을 연결하고자 하는 웹페이지의 상대 경로를 입력한다.
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If URL = "" Then sURL = ActivePresentation.Path & "\WebPage.html" sURL = Replace(sURL, "\\", "\") WebBrowser1.Navigate (sURL) End If End Sub* 참고 : 절대경로를 입력할 경우에는 다음과 같이 하면 된다.
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If URL = "" Then WebBrowser1.Navigate ("http://www.naver.com") End If End Sub또는
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) If URL = "" Then WebBrowser1.Navigate ("c:\WebPage.html") End If End Sub
<출처 : http://blog.naver.com/chaehj72/20032570576>