컴파일 오류가 나는 프리젠 테이션을

Question

내가 난처한 상황에 빠진거야를 활성화 할 때 내가 바보 뭔가가 될있어 같은 느낌 다른 파일에 포함되어 있고 열려있는 프리젠 테이션 (초기 매크로가 실행 된 매크로)에 "적용"됩니다. 컴파일 오류가 발생합니다 : 메소드 또는 데이터 멤버가 두 번째 행에서 마지막 행에 없습니다. 해당 줄을 주석 처리하면 코드가 제대로 실행되지만 잘못된 프레젠테이션에 매크로가 적용됩니다.

아이디어가 있으십니까? 사전에

감사합니다, 조

Function IsPresentationOpen(Name As String) As Boolean 
    Dim codePres As Presentation 
    On Error Resume Next 
    Set codePres = Application.Presentations.Item(Name) 
    IsWorkBookOpen = (Not codePres Is Nothing) 

End Function 

Sub Run_Macro() 

    Dim BriefingTemplate As Presentation 
    Set BriefingTemplate = Application.ActivePresentation 

'Open Joe's Code Workbook 
    Dim xRet As Boolean 
    xRet = IsPresentationOpen("CODE.potm") 
    If xRet Then 
    Else 
     Presentations.Open "Direcory\CODE.potm" 
    End If 

'Run Macro 
    BriefingTemplate.Activate       '<<This is the line w/ the error 
    Application.Run ("'CODE.potm'!Macro"), BriefingTemplate 


End Sub 

Sub a_RunAll_PM(BriefingTemplate As Presentation) 

BriefingTemplate.Activate 

    Call a_Scorecards_PM 
    Call CurrentTemps_PM 
    Call RadarSat_PM 
    Call Severe_PM 
    Call Day1_PM 
    Call Day2 
    Call JetStream_PM 
    Call Operational_Impact_PM 
    Call D1_Headlines_PM 
    Call D2_Headlines 
End Sub 

Sub a_Scorecards_PM() 
    Dim oPic As Shape 
    Set oPic = ActivePresentation.Slides(1).Shapes.AddPicture(_ 
    FileName:="H:\Weather Briefs\Daily Ops Scorecards\SWA_Page_1.jpg", _ 
    LinkToFile:=msoFalse, _ 
    SaveWithDocument:=msoTrue, Left:=0, Top:=0, _ 
    Width:=720, Height:=540) 

    ActivePresentation.Slides(1).Copy 
    ActivePresentation.Slides.Paste 24 

End Sub 

Answer 1

보다는 업데이트 할 프레젠테이션, 액세스해야하는 각 절차에 매개 변수로 프레젠테이션을 전달합니다 "활성화"

'I am assuming "a_RunAll_PM" is what is called "Macro" in your original question code 
Sub a_RunAll_PM(BriefingTemplate As Presentation) 

    'Removed "Call" as that is obsolete 
    a_Scorecards_PM BriefingTemplate '<-- pass the presentation as a parameter 
    CurrentTemps_PM BriefingTemplate '<-- may need to pass to other procedures too? 
    RadarSat_PM 
    Severe_PM 
    Day1_PM 
    Day2 
    JetStream_PM 
    Operational_Impact_PM 
    D1_Headlines_PM 
    D2_Headlines 
End Sub 

Sub a_Scorecards_PM(pres as Presentation) 
    Dim oPic As Shape 
    'Use the "pres" parameter rather than "ActivePresentation" 
    Set oPic = pres.Slides(1).Shapes.AddPicture(_ 
    FileName:="H:\Weather Briefs\Daily Ops Scorecards\SWA_Page_1.jpg", _ 
    LinkToFile:=msoFalse, _ 
    SaveWithDocument:=msoTrue, Left:=0, Top:=0, _ 
    Width:=720, Height:=540) 

    pres.Slides(1).Copy 
    pres.Slides.Paste 24 

End Sub