Possible in Ppt?

[Guest]

Using native Ppt (MS Graph) charts linked to Excel data sources - I've found
helpful ways to;

Update all charts in the presentation via an add-in
http://www.pptfaq.com/FAQ00025.htm

Break all OLE links in the presentation via a macro
http://skp.mvps.org/ppt00047.htm

The link breaking macro only does 'standard' links - i.e. not those for Ppt
charts linked to an excel data source. Does anyone know if it would be
possible to script a macro or add-in to break these type of chart links?

Any suggestions / links greatly appreciated,

Cheers,

 

[Steve Rindsberg]

The link breaking macro only does 'standard' links - i.e. not those for Ppt
charts linked to an excel data source. Does anyone know if it would be
possible to script a macro or add-in to break these type of chart links?

Unfortunately, no. MSGraph will tell your macro whether or not a chart has
linked data but it won't tell you the source of the link or give you any
methods for changing/breaking the link.

You can ungroup then regroup the chart to break the link; the side-effects of
that may not suit you though ... it also makes it a Not-Chart ... just a
collection of rectangles, lines and text rather than a chart that you can edit.

 

[Guest]

Steve Rindsberg" wrote:

Unfortunately, no. MSGraph will tell your macro whether or not a chart has
linked data but it won't tell you the source of the link or give you any
methods for changing/breaking the link.

You can ungroup then regroup the chart to break the link; the side-effects
of
that may not suit you though ... it also makes it a Not-Chart ... just a
collection of rectangles, lines and text rather than a chart that you can
edit.

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Thanks for the reply Steve =)

Actually I think that ungrouping solution may well suit us down to the
ground! Our scenario is one of monthly reports updating each month but we
need the facility to keep a static copy of the Ppt presentation for e.g. May
as a future reference.

Time for a little playing around here now but I do believe you've just saved
me a LOT of work converting Ppt charts to excel charts in a mad rush.

Thanks again,

 

[Steve Rindsberg]

Actually I think that ungrouping solution may well suit us down to the
ground! Our scenario is one of monthly reports updating each month but we
need the facility to keep a static copy of the Ppt presentation for e.g. May
as a future reference.

Ah, well in that case, it might just be perfect. And this may help:

Ungroup all the OLE objects in a presentation
http://www.rdpslides.com/pptfaq/FAQ00326.htm

You might want to modify it along these lines:

For Each oSld In oSlides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
' is it an OLE embedded object?
If oShp.Type = msoEmbeddedOLEObject Then
' is it an MSGraph object, specifically?
If Instr(oShp.OLEFormat.ProgID,"MSGraph.Chart") > 0 Then
' It is, it is. Whack it! Whack it real good, Bubba!
Set oShapeRange = oShp.Ungroup
oShapeRange.Group
End If
End If
Next oShp
Next oSld

 

[Guest]

Steve Rindsberg" wrote:

Ah, well in that case, it might just be perfect. And this may help:

Ungroup all the OLE objects in a presentation
http://www.rdpslides.com/pptfaq/FAQ00326.htm

You might want to modify it along these lines:

For Each oSld In oSlides
Set oShapes = oSld.Shapes
For Each oShp In oShapes
' is it an OLE embedded object?
If oShp.Type = msoEmbeddedOLEObject Then
' is it an MSGraph object, specifically?
If Instr(oShp.OLEFormat.ProgID,"MSGraph.Chart") > 0 Then
' It is, it is. Whack it! Whack it real good, Bubba!
Set oShapeRange = oShp.Ungroup
oShapeRange.Group
End If
End If
Next oShp
Next oSld

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Thanks again Steve, very helpful of you

Playing around with these macros now should be just the job once they're up
and running..

 

[Guest]

:

Ah, well in that case, it might just be perfect... <snip>

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================


Got it working perfectly with the macro you posted with just a teensy bit
of minor tweakage. Absolutely love the "whack it, whack it" comment so that's
staying in

Thanks again,

Tareq

 

[Echo S]

Absolutely love the "whack it, whack it" comment so that's
staying in

LOL! Steve even makes funny in his code comments. Now *that's* funny!

Echo

 

[Steve Rindsberg]

Got it working perfectly with the macro you posted with just a teensy bit

of minor tweakage. Absolutely love the "whack it, whack it" comment so that's
staying in

If it can't be fun, why do it, right? <g>

Glad it's working. And fun.