Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 08-29-2013, 08:54 AM
RoyLittle0 RoyLittle0 is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2007
Novice
Extract links from PowerPoint to FlowChart
 
Join Date: Apr 2013
Posts: 10
RoyLittle0 is on a distinguished road
Default Extract links from PowerPoint to FlowChart

Hi All



I have a PowerPoint presentation that acts as a Flow Chart, It is a fault diagnostic tool that lets the user choose options which links to the next action to be taken, There are 116 pages and all work from links from another page.

The original powerPoint was created from a flow chart, when I say created I meant it was painstakingly written based on a flow chart, but the flow chart hasn't been updated where the PowerPoint has, so I need to now update the flowchart to match the PowerPoint, although I don't know exactly what has been updated, so I need a way of tracing the links from page to page, without having to click on each page and manually find them.

Is there a way that I can get the link data from the PowerPoint, so basically
Slide 1 Links to Slide 10 and 22
Slide 10 links to Slide 18 and 100, etc, etc
Preferably in a Visual way
Reply With Quote
  #2  
Old 09-01-2013, 08:18 AM
JohnWilson JohnWilson is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,813
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

The only way would be to use vba code.

IF the links are all of type link to slide xx (NOT NEXT, PREVIOUS etc)

You could try this to add the links as text just off slide.

Code:
Sub chexLinks()
Dim osld As Slide
Dim ohl As Hyperlink
Dim txtBox As Shape
Dim strLinks As String
Dim lngID As Long
Dim lngPos As Long
Dim b_found As Boolean
Call removeall
For Each osld In ActivePresentation.Slides
For Each ohl In osld.Hyperlinks
If ohl.Address = "" Then 'internal
lngPos = InStr(ohl.SubAddress, ",")
lngID = CLng(Left(ohl.SubAddress, lngPos - 1))
If lngPos > 0 Then
b_found = True
strLinks = strLinks & "Link to Slide " & ActivePresentation.Slides.FindBySlideID(lngID).SlideIndex & vbCrLf
End If
End If
Next ohl
If b_found Then
Set txtBox = osld.Shapes.AddLabel(msoTextOrientationHorizontal, -120, 10, 120, 100)
txtBox.TextFrame.TextRange = strLinks
txtBox.TextFrame.TextRange.Font.Size = 12
txtBox.Name = "Link report"
End If
b_found = False
strLinks = ""
Next osld
End Sub

Sub removeall()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
On Error Resume Next
osld.Shapes("Link report").Delete
Next osld
End Sub

Don't know what to do with the code?
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials

Last edited by JohnWilson; 09-01-2013 at 12:48 PM.
Reply With Quote
  #3  
Old 09-01-2013, 10:30 AM
RoyLittle0 RoyLittle0 is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2007
Novice
Extract links from PowerPoint to FlowChart
 
Join Date: Apr 2013
Posts: 10
RoyLittle0 is on a distinguished road
Default

Thanks for the reply, i get an syntax error on the below line

strLinks = strLinks & "Link to Slide " & ActivePresentation.Slides.FindBySlideID(lngID).Sli deIndex & vbCrLf
Reply With Quote
  #4  
Old 09-01-2013, 11:33 AM
JohnWilson JohnWilson is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,813
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

The website seems to have inserted a space that wasn't in what I posted.
strLinks = strLinks & "Link to Slide " & ActivePresentation.Slides.FindBySlideID(lngID).Sli deIndex & vbCrLf
Try changing Sli deIndex to SlideIndex
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
  #5  
Old 09-01-2013, 11:51 AM
RoyLittle0 RoyLittle0 is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2007
Novice
Extract links from PowerPoint to FlowChart
 
Join Date: Apr 2013
Posts: 10
RoyLittle0 is on a distinguished road
Default

That's better,

Works perfect, thank you
Reply With Quote
  #6  
Old 09-01-2013, 12:46 PM
JohnWilson JohnWilson is offline Extract links from PowerPoint to FlowChart Windows 7 64bit Extract links from PowerPoint to FlowChart Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,813
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

Should make the job a little easier!
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Need help with hyperlinks from flowchart shapes habitus PowerPoint 0 09-21-2012 02:48 AM
Edits links to Excel file in PowerPoint ziba PowerPoint 4 01-09-2012 08:48 AM
Powerpoint 2010 autoupdate links during slideshow pickone PowerPoint 0 10-02-2011 10:33 AM
PowerPoint removes urlencoding on links kamcknig PowerPoint 0 08-10-2011 08:50 AM
Flowchart windseaker PowerPoint 1 05-14-2010 09:57 AM

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 06:27 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft