Thanks Peter.

the is in place works fine.
but the container errors as in Excel but I'll do it with is in place only.

Other question.
Do you know how I could launch a Sub every time a new workbook is open.
I have included this scipt in the auto open section of an add-in.
I can identify the cases when i need to launch my sub that changes the color
index / color theme (necessary only when I display an excel graph embedded in
Powerpoint)

If I include directly my sub in the auto open (which includes
activeworkbook.colors...), it does not work, because when the add in is
loaded, there is not yet any active book....

IS there a way to put in a single addin a sub that will be lauched every
time a new workbook is opened or created ??


"Peter T" wrote:

If you only need to know if the Workbook is embedded is to check its
IsInPlace property, False if opened in Excel otherwise True. If you need to
know the name of the parent app check the wb's Container name (under an
error handler 'cos it'll error in Excel).

With both methods, if you need to know in the wb's open event postpone and
check in an OnTime macro called from the open event.

b = wb.IsInPlace
On error resume next
s = wb.Container.Name
On error got to 0
If len(s) then etc