CodePane을 VBE (Active Module Pane)로 변경

Question

VBA 편집기 (확장 성)에서 프로그래밍하고 프로그래밍 방식으로 새 모듈을 만듭니다. 새 모듈이 문제없이 생성됩니다. 그러나 새 모듈을 만들면 빈 모듈로 코드 창에 열립니다. 그러나 새 모듈을 만든 후 활성 모듈 (새 모듈을 만든 코드를 실행하는 모듈)이 코드 창으로 돌아 가기를 원합니다. 나는 그 명령이 무엇을 할 것인지를 모른다. 이것은 내가 지금까지 시도한 것이다.

Sub addNewStandardModule() 

On Error Resume Next' Adds Extensibility Reference for programming in the VBE 
ThisWorkbook.VBProject.References.AddFromGuid GUID:="{0002E157-0000-0000-C000-000000000046}", Major:=5, Minor:=3 
On Error GoTo 0 

Dim VBProj As VBIDE.VBProject 
Dim VBComp As VBIDE.VBComponent 
Dim CodeMod As VBIDE.CodeModule 


     Set VBProj = ActiveWorkbook.VBProject 
     Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule) 
     VBComp.name = "Module6" 

     ' This is my attempt to return the active module to the active codepane, but it doesn't work 
     With Application.VBE 
      If Not .ActiveCodePane Is Nothing Then 
        Set .ActiveVBProject = .ActiveCodePane.CodeModule.Parent.Collection.Parent 
      End If 
     End With 

End Sub 

Answer 1

발견 한 항목. 희망이 미래에 다른 사람에게 유용 할 수 있습니다.

Sub createNewCodeModuleAndReturnToThisOne() 
Dim VBEProj As VBIDE.VBProject 
Dim vbComp As VBIDE.VBComponent 
Dim VBProj As VBIDE.VBProject 


    Set VBEProj = ActiveWorkbook.VBProject 
    Set vbComp = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule) 
    vbComp.name = "Module6" 
    VBEProj.VBComponents("Module5").Activate 
End Sub