Advanced Search

Return to Snippet

Revision: 60187
at October 25, 2012 02:53 by sjmoorecouk
Initial Code 
Dim thisShape As Word.Shape
Dim x as Long
UpdateCharts:
On Error Resume Next
For Each thisShape In ActiveDocument.Shapes
x = x + 1
If thisShape.Type = msoLinkedOLEObject Then
   With thisShape.LinkFormat
    .SourceFullName = newFile
    StatusBar = x & " of " & TotalFieldCount & " links completed ..."
End With
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Relinks chart objects to a new source (where newfile is the variable containing that new full path/file source info)

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Linked Chart Update

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic