Salve a tutti.

Ho un problema nell'utilizzo di una activex dll che ho creato. Siccome è molto tempo che
non uso vb6 forse sbaglio qualcosa di banale che adesso mi sfugge. Potete aiutarmi, per cortesia ?

Devo creare una dll .
L'unico metodo da implementare è quello che segue e deve effettuare l'operazione di importare immagini linkate dentro un documento word.

Public Sub IncludiImmagini(p_percorso As String)

'apre documento - uso il "late-binding" per non
'dipendere dalla versione di word
Dim wrdApp As Object
Set wrdApp = CreateObject("Word.Application")
Dim WrdDoc As Object

Dim x As Integer
Dim oImage As Object

wrdApp.Visible = False
Set WrdDoc = wrdApp.Documents.Open(p_percorso )
WrdDoc.Select

x = 2

For Each oImage In ActiveDocument.Shapes
If Not (oImage.LinkFormat Is Nothing) Then
x = x + 1
If x = 3 Then
oImage.Select
x = 0
DoEvents
End If
oImage.LinkFormat.SavePictureWithDocument = True
oImage.LinkFormat.BreakLink
ActiveDocument.UndoClear
End If

Next

WrdDoc.Save
WrdDoc.Close
wrdApp.Quit

End Sub

Se creo la dll e la utilizzo dentro un progetto vb ( includendola da reference )
e la richiamo così :

Dim l_word As New MioProgettoDll.ClasseDll
l_word.IncludiImmagini ("C:\temp\MioDocumento.doc")

ottengo un errore 424 object required (ovviamente il path è valido e il documento accessibile).

Se invece includo nel progetto la classe (.cls ) ClasseDll, tutto funziona correttamente.

Cosa sbaglio o dimentico di fare ?

Grazie