Как включить настройки макроса через код? - PullRequest
Новая
       25

Как включить настройки макроса через код?

0 голосов
/ 10 февраля 2012

Я создал макрос в презентации Powerpoint, используя следующий код.При запуске этого небольшого фрагмента кода я получал исключение «программный доступ к проекту Visual Basic не является доверенным».Я знаю, что это можно решить, изменив параметры Центра управления безопасностью в настройках.Но может ли кто-нибудь помочь мне, как я могу изменить эти настройки через код.Ike какой-либо API взаимодействия PowerPoint ??pl предложить .. Заранее спасибо.

Мой пример кода: 

PowerPoint.Application oPPT = new PowerPoint.Application();
oPPT.Visible = Office.MsoTriState.msoTrue;

//Add New Presentation
PowerPoint.Presentations oPresSet = oPPT.Presentations;
PowerPoint.Presentation oPres = oPresSet.Add(Office.MsoTriState.msoTrue);

//Add Slides to the Presentation
PowerPoint.Slides oSlides = oPres.Slides;
PowerPoint.Slide oSlide = oSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitle);

VBComponent vbc =  oPres.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule);
string code = "sub VBAMacro()\r\n" + "ActivePresentation.Close\n" + "End Sub";
vbc.CodeModule.AddFromString(code);

1 Ответ

2 голосов
/ 11 февраля 2012

В конце концов, этот параметр просто сохраняется в разделе реестра, так что вы можете сделать что-то подобное, но вам нужно будет запустить с разрешениями для доступа к этому разделу реестра.Я провел базовый тест, и он, похоже, работал на моей машине. 

using (var key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Software\Microsoft\Office\14.0\PowerPoint\Security",true))
{
    int origVal = (int)key.GetValue("AccessVBOM", 0);
    if (origVal != 1)
        key.SetValue("AccessVBOM", 1);


    PowerPoint.Application oPPT = new PowerPoint.Application();
    oPPT.Visible = Office.MsoTriState.msoTrue;

    //Add New Presentation
    PowerPoint.Presentations oPresSet = oPPT.Presentations;
    PowerPoint.Presentation oPres = oPresSet.Add(Office.MsoTriState.msoTrue);

    //Add Slides to the Presentation
    PowerPoint.Slides oSlides = oPres.Slides;
    PowerPoint.Slide oSlide = oSlides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitle);

    VBComponent vbc = oPres.VBProject.VBComponents.Add(vbext_ComponentType.vbext_ct_StdModule);
    string code = "sub VBAMacro()\r\n" + "ActivePresentation.Close\n" + "End Sub";
    vbc.CodeModule.AddFromString(code);

    if (origVal != 1)
    {
        key.SetValue("AccessVBOM", origVal);
    }

    key.Close();
}
...