Microsoft Graph to Link to Excel Worksheet

[Steve Rindsberg]

A message pops up saying, "Excel.Chart.8".

So we're no longer dealing with an MSGraph chart.

Try something like this:

At the top, a new variable:

Dim oCht as Object

then further down, instead of:

oSh.OLEFormat.Activate
ActiveWindow.Selection.Unselect

use

Set oCht = oSh.OLEFormat.Object
oCht.Activate
oCht.Application.Quit
Set oCht = Nothing

That's a reasonable guess. If it doesn't work, I'll have to go back and
recreate some graphs using Jim's method.


--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================

 

[Domenic]

Unfortunately, it didn't work. After running the macro, it launches
Excel but nothing else happens afterwards.

 

[Steve Rindsberg]

Rats.

I'll have to replay Jim's suggestions here. Or better yet, can I bum a
presentation offa you? <g> If you've got a small, non-proprietary example, can
you shoot it to me at steve at-sign pptools dot com

So we're no longer dealing with an MSGraph chart.

Try something like this:

At the top, a new variable:

Dim oCht as Object

then further down, instead of:

oSh.OLEFormat.Activate
ActiveWindow.Selection.Unselect

use

Set oCht = oSh.OLEFormat.Object
oCht.Activate
oCht.Application.Quit
Set oCht = Nothing

That's a reasonable guess. If it doesn't work, I'll have to go back and
recreate some graphs using Jim's method.

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Featured Presenter, PowerPoint Live 2004
October 10-13, San Diego, CA www.PowerPointLive.com
================================================