Source: http://support.microsoft.com/default.aspx?scid=kb;EN-US;q222689
Sub UpdateAllGraphs()
Dim oShape As Shape
Dim oSlide As Slide
Dim oGraph As Object
' Loop through each slide in the presentation.
For Each oSlide In ActivePresentation.Slides
' Loop through all the shapes on the current slide.
For Each oShape In oSlide.Shapes
' Check whether the shape is an OLE object.
If oShape.Type = msoEmbeddedOLEObject Then
' Check whether the OLE object is a Graph object.
If oShape.OLEFormat.ProgID = "MSGraph.Chart.8" Then
' Found a graph; obtain object reference, and
' then update.
Set oGraph = oShape.OLEFormat.Object
oGraph.Application.Update
End If
End If
Next oShape
Next oSlide
End Sub
Netflix Through Cox Cable / Canada Comes Out On Top As Netflix Rates North
American Isps Ars Technica - It has nothing to do with the cable tv feed,
just the internet connection.
-
*Netflix Through Cox Cable / Canada Comes Out On Top As Netflix Rates North
American Isps Ars Technica - It has nothing to do with the cable tv feed,
ju...
3 years ago
No comments:
Post a Comment