Re: Microsoft Graph to Link to Excel Work***

From: Steve Rindsberg (abuse_at_localhost.com)
Date: 08/14/04 

Date: Sat, 14 Aug 2004 16:04:17 EDT

Try:

Sub ActivateEmAllDanO()

Dim oSl as Slide
Dim oSh as Shape

for each oSl in ActivePresentation.Slides
   for each oSh in oSl.Shapes
       
       ' is it an embedded OLE object?
       if osh.type = msoembeddedOLEobject then
           ' crude check: is it a chart?
           if InStr(Ucase(osh.oleformat.progid),"CHART") > 0 then
               ' slap it upside the head
               osh.oleformat.activate
               activewindow.selection.unselect
           end if
       end if
   next oSh
Next oSl
End Sub

In article <eJZ3ddhgEHA.644@tk2msftngp13.phx.gbl>, Jim Gordon MVP wrote:
> I'm not quite ready to throw in the towel on this one.
>
> It seems to me there should be a macro that would handle the activation
> of the chart object for you.
>
> I scarfed around PPT's help and found this code sample but it does not
> work. But it seems to me with the proper syntax this could be made to
> work with an auto_open macro that would cause the embedded object to be
> activated so that it would update itself.
>
> Perhaps someone wiser about this will offer a code snippet.
>
> Sub Updater()
> With ActivePresentation.Slides(1).Shapes(1)
> For Each sVerb In OLEFormat.ObjectVerbs
> If sVerb = "Open" Then
> With Application.ActionSettings(ppMouseClick)
> .Action = ppActionOLEVerb
> .ActionVerb = sVerb
> End With
> Exit For
> End If
> Next
> End With
> End Sub
> 

--
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
================================================
Loading