파워포인트에 virtools 실행하기


파워포인트에 Viewpoint 및 Virtools 콘텐츠 등이 삽입된 웹페이지를 상대경로로 삽입하고 슬라이드가 시작될 때 자동으로 실행시키는 방법은 다음과 같다.
  1. 파워포인트을 실행시킨다.
  2. 콘트롤도구상자에서 기타 콘트롤 아이콘을 누른다.
  3. 표시되는 콘트롤 목록에서 Microsoft 웹 브라우저를 선택한다.
  4. 파워포인트 슬라이드 영역에서 드래그하여 웹 브라우저를 삽입한다.
  5. 웹 브라우저를 우클릭하여 팝업 메뉴에서 코드보기를 항목을 선택한다.
  6. 비주얼베이직 편집창이 나타나면 편집창 상단 위의 두개의 콤보 박스 중 오른쪽에서 DocumentComplete를 선택한다.(잘 찾아보면 찾을 수 있을 것이다)
  7. 편집창에 함수가 자동으로 삽입되면 아래와 같이 코드를 완성한다. 이때 세번째 줄의 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>