2012-08-06 2 views
0

파워 포인트 프리젠 테이션에 matlab gui를 추가 할 수 있는지 궁금합니다. 프레젠테이션 또는 링크를 열면 matlab이 열립니다.파워 포인트 프리젠 테이션에 matlab gui를 추가하십시오.

이 함수를 호출하면 그림이 열리고 즉시 닫힙니다.

Private Sub click_Click() 
Call RunFile("new_control_pan", "C:\Users\mhaartman\Documents\PANE_golden2\PANE_golden\code") 
End Sub 

Sub RunFile(FILENAME As String, Optional FilePath As String) 
Dim MATLAB As Object 
Dim Result As String 
Dim Command As String 
Dim MATLABWasNotRunning As Boolean 
''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Set Up 
''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Connect to the automation server. 
' MATLAB becomes a MATLAB handle to the running instance 
' of MATLAB. 
On Error Resume Next ' Defer error trapping 
MATLAB = GetObject(, "matlab.application") 
If Err.Number <> 0 Then 
MATLABWasNotRunning = True 
Set MATLAB = CreateObject("matlab.application") 
Err.Clear ' Clear Err object in case error occurred. 
End If 
''''''''''''''''''''''''''''''''''''''''''''''''''' 
' Do the Work 
''''''''''''''''''''''''''''''''''''''''''''''''''' 
If Not IsMissing(FilePath) And Not FilePath = "" Then 
Command = "cd('" + FilePath + "')" 
Result = MATLAB.Execute(Command) 
End If 
Command = FILENAME 
Result = MATLAB.Execute(Command) 

'Result = MsgBox("Done", vbOkayOnly, "Click when done") 
End Sub 

고마워요!

+0

마치 ActiveX에서 가능할 것 같습니다. 그러나 개발자보기가 없어 ... 어떤 방법 으로든이 문제를 해결할 수 있습니까? – megv

답변

2

어쩌면 당신은 Calling MATLAB from PowerPoint을 볼 수 있습니다. 파일 교환에 대한이 제출은 수년 전에 작성 되었기 때문에 오래된 것일 수 있습니다. 그러나 최신 버전의 MATLAB은 일반적으로 PowerPoint에서 호출 할 수있는 COM 인터페이스를 제공합니다. 약간의 업데이트가 필요할 수 있지만 모든 문제를 수정할 수 있다고 확신합니다.

+0

나는 그것을 보았다. 최신 Matlab 및 최신 PowerPoint에 해당하는지 확실하지 않습니다. 설명 된 함수를 호출 할 때 오류가 발생합니다. – megv

+0

파일 교환의 제출이 몇 년 전에 작성 되었기 때문에 오래되어서는 안됩니다. 그러나 최신 버전의 MATLAB은 일반적으로 PowerPoint에서 호출 할 수있는 COM 인터페이스를 제공합니다. 약간의 업데이트가 필요할 수 있지만 모든 문제를 수정할 수 있다고 확신합니다. 어떤 오류가 발생합니까? –

+0

원래 답변을 편집하여 포인트를 줄 수 있습니까? VB에서 작동하는 것처럼 보입니다. – megv

관련 문제