코드를 통해 매크로 설정을 활성화하는 방법은 무엇입니까?

Question

다음 코드를 사용하여 Powerpoint Presentation에서 매크로를 만들었습니다. 이 작은 코드를 실행할 때 "시각적 기본 프로젝트에 대한 프로그래밍 방식의 액세스는 신뢰할 수 없습니다"라는 예외가 발생했습니다. 옵션에서 보안 센터 설정을 변경하면이 문제를 해결할 수 있습니다. 그러나 코드를 통해 이러한 설정을 어떻게 바꿀 수 있는지 누군가가 나를 도울 수 있습니까? 어떤 파워 포인트 interop APIs? 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); 

Answer 1

가 해당 설정이이 같은 일을 할 수 있도록 단지, 레지스트리 키에 저장되어 있지만 해당 레지스트리 키에 액세스 할 수있는 권한으로 실행해야합니다 . 나는 기본적인 테스트를했고 그것은 내 컴퓨터에서 작동하는 것처럼 보였다.

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(); 
}