Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks

Set y = Nothing

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks

thanks for the response.
i gave it a try;
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
Set y = Nothing
but MS Project is still running.

Project 2003, Excel 2003


"Bob Phillips" wrote in message
...
Set y = Nothing

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks

That's a different matter. I am lost as to why you want to close MS Project,
perhaps you copuld explain, but perhaps you could connect to that app ands
close it from Excel. Here is how I would do it. I haven't tested with M S
Project as I don't use that, but I tested it with Word, same principle

Dim oApp As Object

Set oApp = GetObject(, "MSProject.Application")

oApp.Quit

Set oApp = Nothing




--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
thanks for the response.
i gave it a try;
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
Set y = Nothing
but MS Project is still running.

Project 2003, Excel 2003


"Bob Phillips" wrote in message
...
Set y = Nothing

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks

thanks for the help.

We have a MS Project embedded in Excel.
the user can enter info into the MS Project.
then the user clicks a button. it activates MS Project collects data and
brings into excel.




"Bob Phillips" wrote in message
...
That's a different matter. I am lost as to why you want to close MS
Project,
perhaps you copuld explain, but perhaps you could connect to that app ands
close it from Excel. Here is how I would do it. I haven't tested with M S
Project as I don't use that, but I tested it with Word, same principle

Dim oApp As Object

Set oApp = GetObject(, "MSProject.Application")

oApp.Quit

Set oApp = Nothing




--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
thanks for the response.
i gave it a try;
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
Set y = Nothing
but MS Project is still running.

Project 2003, Excel 2003


"Bob Phillips" wrote in message
...
Set y = Nothing

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks

so does my suggestion work?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
thanks for the help.

We have a MS Project embedded in Excel.
the user can enter info into the MS Project.
then the user clicks a button. it activates MS Project collects data and
brings into excel.




"Bob Phillips" wrote in message
...
That's a different matter. I am lost as to why you want to close MS
Project,
perhaps you copuld explain, but perhaps you could connect to that app
ands
close it from Excel. Here is how I would do it. I haven't tested with M
S
Project as I don't use that, but I tested it with Word, same principle

Dim oApp As Object

Set oApp = GetObject(, "MSProject.Application")

oApp.Quit

Set oApp = Nothing




--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
thanks for the response.
i gave it a try;
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
Set y = Nothing
but MS Project is still running.

Project 2003, Excel 2003


"Bob Phillips" wrote in message
...
Set y = Nothing

--

HTH

RP
(remove nothere from the email address if mailing direct)


"greg" wrote in message
...
Hello,
I have an excel worksheet with an embedded MS Project file.
to get at the ms project i do the following:
Set y = ThisWorkbook.Sheets("MS Project").OLEObjects(1)
y.Verb
but how can i de-activate it?
thanks