"Compile Error method data not found"

[JackMDaniels]

Help! I've had a Macro made in PowerPoint (I'm aware VBA in PowerPoint is different to Excel but hoping someone speaks the language), sending it to my client and him (and his team) are getting a dialog box come up saying "Compile Error method data not found" when filling in the form. I am not getting this so it's almost impossible to correct a problem I cannot replicate! Below is the code, if anything more is needed to help investigate let me know!
Thanks in advance!

Function Fetch(alt, delim)    Fetch = delim + delim + delim + delim
    
    For Each des In ActivePresentation.Designs
            For Each shp In des.SlideMaster.Shapes
                If shp.AlternativeText = alt Then
                    'first (slidemaster)
                    Fetch = shp.TextFrame.TextRange.Text
                End If
            Next shp
        
        If des.HasTitleMaster Then
            For Each shp In des.TitleMaster.Shapes
                If shp.AlternativeText = alt Then
                    'second (titlemaster)
                    Fetch = shp.TextFrame.TextRange.Text
                End If
            Next shp
        End If
    Next des
End Function


Function Submit(alt, data, b)
    For Each des In ActivePresentation.Designs
            For Each shp In des.SlideMaster.Shapes
                If shp.AlternativeText = alt Then
                    'first (slidemaster)
                    shp.TextFrame.TextRange.Text = data
                    If (b) Then
                        shp.TextFrame.TextRange.Font.Bold = msoCTrue
                    End If
                End If
                If shp.HasTextFrame Then
                    shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
                End If
            Next shp
        
        If des.HasTitleMaster Then
            For Each shp In des.TitleMaster.Shapes
                If shp.AlternativeText = alt Then
                    'second (titlemaster)
                    shp.TextFrame.TextRange.Text = data
                    If (b) Then
                        shp.TextFrame.TextRange.Font.Bold = msoCTrue
                    End If
                End If
                If shp.HasTextFrame Then
                    shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
                End If
            Next shp
        End If
        
        For Each Layout In des.SlideMaster.CustomLayouts
            For Each shp In Layout.Shapes
                If shp.AlternativeText = alt Then
                    'first (slidemaster)
                    shp.TextFrame.TextRange.Text = data
                    If (b) Then
                        shp.TextFrame.TextRange.Font.Bold = msoCTrue
                    End If
                End If
                If shp.HasTextFrame Then
                    shp.TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS
                End If
            Next shp
        Next Layout
    Next des
End Function
Sub FORM()


UserForm1.Show


End Sub

 

[JackMDaniels]

Apologies Rory, to confirm the client (and company) use PPT 2007

 

[RoryA]

I'm afraid I don't have Office 2007 installed anywhere (because I hate it) to test that. About all I can suggest is get them to check the ActiveX settings in the Trust Center on their machine and make sure they are not set to disable all ActiveX controls.

 

[JackMDaniels]

Me and you both mate, although I have an old machine with it on and I'm not having the problem occur, so it cannot be to do with the version. This is killing me!

 

[RoryA]

I'd start with the Trust Center settings then.

 

[JackMDaniels]

Thanks, send instructions to client (fingers crossed!)

 

[JackMDaniels]

It seems the clients trust center settings are all as they should be. I guess rewriting the macro from scratch is my next option? Luckily it's a very simple one!

 

[JackMDaniels]

 With Slide90
    '.lblVersionStatus.Caption = Version & "/" & Status
   [COLOR=#ff0000] .lblDate.Caption = Daate[/COLOR]
    .lblOwner.Caption = Owner
    .lblCreator.Caption = Creator
    .lblFunction.Caption = Fuunction
    .lblApprover.Caption = Approver
    .lblDocID.Caption = DocID
    .lblDocLocation.Caption = DocLocation
   
    .lblVersionStatus.<wbr>ForeColor = RGB(18, 65, 145)
    .lblDate.ForeColor = RGB(18, 65, 145)
    .lblOwner.ForeColor = RGB(18, 65, 145)
    .lblCreator.ForeColor = RGB(18, 65, 145)
    .lblFunction.ForeColor = RGB(18, 65, 145)
    .lblApprover.ForeColor = RGB(18, 65, 145)
    .lblDocID.ForeColor = RGB(18, 65, 145)
    .lblDocLocation.ForeColor = RGB(18, 65, 145)
End With

Also if this helps you have a brain wave, I disabled the first form field and the issue moved down to the next one.

 

[RoryA]

That's what I'd expect because I think all the ActiveX controls have been disabled. What exactly were the client's ActiveX settings in Trust Center?

 

[JackMDaniels]

sorry Rory, image link - imgur: the simple image sharer

 

[RoryA]

Curious. If I have time later this week I'll set up a VM with Office 2007 and test your file on it.