Вызов VBA AddIn макрос из VSTO PowerPoint ленты

Question

Я застрял в течение нескольких часов по этой проблеме:

Я разрабатываю PowerPoint AddIn в C#, и я хочу использовать макрос из другой надстройки, который является PPAM файл. Файл PPAM установлен и включен.

В справочнике Application я обнаружил, что мне нужно использовать метод Application.Run но я не могу заставить его работать (ничего не происходит) ... Вот мой код:

Globals.ThisAddIn.Application.Run("PPspliT.ppam!PPspliT.PPspliT_main", null); 

PPspliT.ppam является установленный AddIn (, который расположен здесь: C:\Users\XXXX\AppData\Roaming\Microsoft\AddIns\PPspliT\)

модуль, в котором PPspliT_main макрос называется называется PPspliT.

Еще одна вещь, которую я нахожу странной, заключается в том, что Run должен принимать два аргумента, даже если макрос не имеет никакого аргумента (, поэтому я поместил null как второй аргумент).

Я также попытался установить AddIn программно с помощью этого:

String addinPath = @"C:\Users\XXXXX\AppData\Roaming\Microsoft\AddIns\PPspliT"; 
var macroFilePath = Path.Combine(addinPath, "PPspliT.ppam"); 
var addins = Globals.ThisAddIn.Application.AddIns.Add(macroFilePath); 
if (!(addins.Registered == MsoTriState.msoTrue && addins.Loaded == MsoTriState.msoTrue)) 
{ 
    addins.Registered = MsoTriState.msoTrue; 
    addins.Loaded = MsoTriState.msoTrue; 
} 
var app = Globals.ThisAddIn.Application; 
string macroToInvoke = string.Format("{0}!{1}", "PPspliT.ppam", "PPspliT.PPspliT_main"); 
Globals.ThisAddIn.Application.Run(macroToInvoke, null); 

Спасибо за вашу помощь! Acacio

Answer 1

Эта вещь сводила меня с ума, но я нашел, как заставить ее работать! Вот что я сделал (используя этот http://support.microsoft.com/kb/306682:

Так как я объяснил в моем вопросе я первым программным зарегистрироваться и загрузить надстройку, то я следующее:

private void RunMacro(object oApp, object[] oRunArgs) 
    { 
     oApp.GetType().InvokeMember("Run", 
     System.Reflection.BindingFlags.Default | 
     System.Reflection.BindingFlags.InvokeMethod, 
     null, oApp, oRunArgs); 
    } 

Globals.ThisAddIn.RunMacro(Globals.ThisAddIn.Application , new object[] {"PPspliT_main"}); 

Спасибо всем за вашу помощь !

Answer 2

Прежде чем запрашивать его, попробуйте открыть макрос презентации (PPAM) (через Application.Presentations.Open). В MSDN reference для Application.Run указано, что презентация должна быть загружена (интерпретируется как означающая ранее открытая).

Presentation ppam = Globals.ThisAddIn.Application.Presentations.Open(macroFilePath); 
string macroToInvoke = string.Format("{0}!{1}", ppam.Name, "PPspliT.PPspliT_main"); 
Globals.ThisAddIn.Application.Run(macroToInvoke, null); 

Answer 3

Просто подъехала немного кода в VB6, который вызывает подпрограмму в загруженном надстройку

Предполагая ссылку на запущенный экземпляр РРТ в oPPTApp и Общественную подпрограмму в загруженном Add- в:

Public Sub BlahBlah() 
    MsgBox "Hah! You found me!" 
End Sub 

Это запустит его:

oPPTApp.Run "BlahBlah" 

Обратите внимание, что вам не нужно ProVi имя надстройки или имя модуля, в котором живет ваша подпрограмма.

Опять же, так оно работает из VB5/6 или других подпрограмм VBA.