ReferencedOLEFileDescriptors.Add

[Anonymous]

If I use the function ReferencedOLEFileDescriptors.Add with the option of embedding a file I get an "Invalid Procedure" call error.
It works fine if I link the file.
Any ideas?

[Anonymous]

This works:

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim xtt As ReferencedOLEFileDescriptor
Set xtt = oDrawDoc.ReferencedOLEFileDescriptors.Add("1.doc")
Unload Me

This does NOT:
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim xtt As ReferencedOLEFileDescriptor
Set xtt = oDrawDoc.ReferencedOLEFileDescriptors.Add("1.doc", kOLEDocumentEmbeddingObject)
Unload Me

[Anonymous]

The API currently does not support adding embedded OLE references. The only
option is to use linking.

Sanjay-

wrote in message news:5206291@discussion.autodesk.com...
This works:

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim xtt As ReferencedOLEFileDescriptor
Set xtt = oDrawDoc.ReferencedOLEFileDescriptors.Add("1.doc")
Unload Me

This does NOT:
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim xtt As ReferencedOLEFileDescriptor
Set xtt = oDrawDoc.ReferencedOLEFileDescriptors.Add("1.doc",
kOLEDocumentEmbeddingObject)
Unload Me

[Anonymous]

That would explain why it is not working....

Thanks!

[Crstiano]

Hi Sanjay,

"The API currently does not support adding embedded OLE references "

Today (7y ago), this information is valid?

[maxstels]

Also interesting