2012-08-06 135 views
0

我很好奇,如果我可以添加一個matlab gui到PowerPoint演示文稿。無論是在演示文稿或鏈接打開matlab。添加一個matlab gui到PowerPoint演示文稿

我調用這個函數,它會打開圖形,然後立即關閉它。

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 ..但我沒有在PowerPoint中的開發人員視圖......任何方式aroudn這? – megv 2012-08-06 01:38:52

回答

2

也許你可以看看Calling MATLAB from PowerPoint。這個提交的文件交換可能會過時,因爲它是在幾年前創建的。但最新版本的MATLAB通常繼續提供一個COM接口,可以從PowerPoint中調用該接口。它可能需要一些更新,但我相信任何問題都是可以糾正的。

+0

我看着那個。不確定這適用於最新的Matlab和最新的PowerPoint。嘗試調用所述功能時出現錯誤 – megv 2012-08-07 04:53:15

+0

由於文件交換是幾年前創建的,因此文件交換上的提交可能已過時。但最新版本的MATLAB通常繼續提供一個COM接口,可以從PowerPoint中調用該接口。它可能需要一些更新,但我相信任何問題都是可以糾正的。你有什麼錯誤,什麼時候? – 2012-08-07 16:19:31

+0

你能編輯你的原始答案,所以我可以給你點 - 似乎工作..只是一些問題與VB – megv 2012-08-07 17:46:46

相關問題