"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

 

[RoryA]

For that error, slide90 does not have that control. Simple as that.

 

[JackMDaniels]

To save me causing further damage, would you (for a cost of course) amend it for me? if so PM me you email along with a cost and preferred means of payment

 

[RoryA]

We don't allow offering or soliciting payment on the board, I'm afraid.

What I will do is give you an email address and you can send it to me and I'll see what I can do (for free!). Please include specifics of how to cause the error!

If I can't figure it out, you can always use the MrExcel consulting services.

 

[RoryA]

OK got your file. Works fine in 2010 and 2013 but I could replicate the error by opening it in 2003 using the compatibility pack because the ActiveX controls get converted. If you save it as a ppt file (and make sure it still behaves the way you expect), I think that will allow it to work for your client too.

 

[JackMDaniels]

So to confirm my best bet would be to

> Downsave to "Powerpoint 97-2003 Presentation"
> Check the Macro is doing as it's told

Then send to the client and (touch wood) it would resolve?

 

[RoryA]

Yep.

Probably worth just double-checking he is using PP 2003 first.

 

[JackMDaniels]

Hi Rory

Thanks again for the attention, unfortunately I've tried downsaving it but the issue still remains.

Could you confirm these are filled in correctly? (see image) imgur: the simple image sharer

 

[RoryA]

Sorry - not sure what the relevance of that information is?

 

[JackMDaniels]

It was just in hope something was not ticked that may have caused the issues, as downsaving it to 2003 hasn't resolved it

 

[RoryA]

Have you verified that your client is using 2003 with the compatibility pack?