Need List of Embedded Files
Thanks for your suggestion...
This provides Object specific information, but the actual filename remains
elusive - any additional thoughts?
ldb
"Peter T" <peter_t@discussions wrote in message
...
Try something like this
Sub test()
Dim ot As XlOLEType
Dim ole As OLEObject
For Each ole In ActiveSheet.OLEObjects
ot = ole.OLEType
If ot = xlOLELink Then
Debug.Print ole.Name, ole.TopLeftCell.Address, ole.SourceName
ElseIf ot = xlOLEEmbed Then
Debug.Print ole.Name, ole.TopLeftCell.Address, ole.progID, " Embedded"
End If
Next
End Sub
Press Ctrl-g to see debug results in the Immediate window.
Regards,
Peter T
"ldb" wrote in message
...
I have a workbook with 40 +/- embedded files (Word, Excel, eMail,
PowerPoint)
I have been able to able to identify the Objects as "Object #" and
BottomRightCell address.
I appreciate any thoughts as to how get a list of the actual names of the
embedded files.
Thanks.
ldb
|