Hi,
You cannot explicitly add a document module associated with a slide in
PowerPoint. When you add a active control on the slide, the document module
is inserted automaticallty. To add code into it, you will need to retreive
the reference. The VBComponent type to check for is vbext_ct_Document and
check it's name property.

Unless I'm mistaken, you'd want to add the event handlers and other code to the Slide
object that contains the controls.  This example builds the code in a string; you may
prefer to add it from a file instead:

Sub AddSomeCode()

Dim x As Long
Dim sCode As String
Dim sSlideName As String

' Build the code; this assumes there's a cmdClickMe object
' on the slide and that it has a click event:
sCode = "Private Sub cmdClickMe_Click()" & vbCrLf
sCode = sCode & "MsgBox " & Chr$(34) & "You clicked?" & Chr$(34) & vbCrLf
sCode = sCode & "End Sub" & vbCrLf

sSlideName = "Slide1"   ' name is assigned by PPT

With ActivePresentation.VBProject

   For x = 1 To .VBComponents.Count
       With .VBComponents(x)
           Debug.Print .Name
           If .Name = sSlideName Then
               .CodeModule.AddFromString (sCode)
           End If
           
       End With
   Next
End With

'
oPres.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdMod
u
' le).CodeModule.AddFromString(s)
End Sub

oPres.VBProject.VBComponents.Add(Microsoft.Vbe.Interop.vbext_ComponentType.vbext_ct_StdMod
ule).CodeModule.AddFromString(s)

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ:  www.pptfaq.com
PPTools:  www.pptools.com
================================================

Thanks!