Adding Hyperlinks to text on a Summary Sheet in Powerpoint

Hi
I have a slide show that features No buttons, for questions 1- 10, If a user clicks a No button it prints a row of text with help for that particular topic.
Im using vba to generate the wording and code for the summary page, see below
Code for the No button is below
Sub No1(button As Shape)
If button.Fill.ForeColor.RGB <> RGB(128, 100, 162) Then
button.Fill.ForeColor.RGB = RGB(128, 100, 162)
Else
button.Fill.ForeColor.RGB = RGB(255, 255, 255) ' default white colour
        End If
        q1Answered = False
        If q1Answered = False Then
        numIncorrect = numIncorrect + 1
        answer1 = "1. Answer to question 1 - Click Here for Further Help" & vbCr 'ADDED
        End If
End Sub
Code for the summary page is below
Sub SummarySlide1() 'Summary Page for Create ADDED
    Dim printableSlide As Slide
    Dim homeButton As Shape
    Dim printButton As Shape
    Set printableSlide = _
    ActivePresentation.Slides.Add(Index:=summarySlideNumber1, _
Layout:=ppLayoutText)
    printableSlide.Shapes(1).TextFrame.TextRange.Font.Size = 9
    printableSlide.Shapes(1).TextFrame.TextRange.Text = _
    vbCr & vbCr & vbCr & userName & _
    vbCr & "The following areas have been highlighted as one(s) which need development"
    printableSlide.Shapes(2).TextFrame.TextRange.Font.Size = 8.5
    printableSlide.Shapes(2).TextFrame.TextRange.Text = _
        answer1 & vbCr & answer2 & vbCr & answer3 & vbCr & answer4 & vbCr & answer5 & vbCr & _
        answer6 & vbCr & answer7 & vbCr & vbCr & answer8
        ActivePresentation.SlideShowWindow.View.GotoSlide 40
        MsgBox " Please Remember to Print Your Results before you leave this Page "
    ActivePresentation.Saved = True
End Sub
So what you end up with on the summary sheet is all the NO's the user has clicked
for example
1. Answer to question 1 - Click Here for Further Help
What i'd like to do is turn the click here part in this text into a hyperlink to another web page
Is there a way to do this using vba?
Any help would be appreciated
Thanks
Jinks

Hi Jinks,
For this requirement, you could add a textbox with text: Click here, then use
Hyperlink Object to add click action.
With ActivePresentation.Slides(1).Shapes(3) _
.ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address = "http://www.microsoft.com"
End With
Regards
Starain
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Similar Messages

Adding hyperlinks to text via spreadsheet

Hi
I have built a 52 page product document, and now have been asked to produce a PDF version with Hyperlinks on all the 300+ product names.
The client is able to supply a spreadsheet of all the product names and URL in columns (XLS). Is there a way to find the Product Name in the doc and add the URL in to the hyperlinks panel.
thanks
Shane

Hi Mark
I've tried swapping in your script but it breaks in cs5.
From my knowledge of applescript, find and replace now has a findType, eg. --findType is "text", "grep", or "glyph" (this sets the type of find/change operation to use).
I've attached the FindChangeByList script below as this must use this method…
--FindChangeByList.applescript
--An InDesign CS5 AppleScript
--Loads a series of tab-delimited strings from a text file, then performs a series
--of find/change operations based on the strings read from the file.
--The data file is tab-delimited, with carriage returns separating records.
--The format of each record in the file is:
--findType<tab>findProperties<tab>changeProperties<tab>findChangeOptions<tab>description
--Where:
--<tab> is a tab character
--findType is "text", "grep", or "glyph" (this sets the type of find/change operation to use).
--findProperties is a properties record (as text) of the find preferences.
--changeProperties is a properties record (as text) of the change preferences.
--findChangeOptions is a properties record (as text) of the find/change options.
--description is a description of the find/change operation
--Very simple example:
--text {find what:"--"} {change to:"^_"} {include footnotes:true, include master pages:true, include hidden layers:true, whole word:false} Find all double dashes and replace with an em dash.
--More complex example:
--text {find what:"^9^9.^9^9"} {applied character style:"price"} {include footnotes:true, include master pages:true, include hidden layers:true, whole word:false} Find $10.00 to $99.99 and apply the character style "price".
--All InDesign search metacharacters are allowed in the "find what" and "change to" properties.
--For more on InDesign scripting, go to http://www.adobe.com/products/indesign/scripting/index.html
--or visit the InDesign Scripting User to User forum at http://www.adobeforums.com
tell application "Adobe InDesign CS5"
--Set the user interaction level to allow InDesign to display dialog boxes and alerts.
set user interaction level of script preferences to interact with all
set myTextObjects to {text, text frame, insertion point, character, word, text style range, line, paragraph, text column, cell, table, row, column}
if (count documents) is not 0 then
if (count stories of active document) is not 0 then
set mySelection to selection
if (count mySelection) is not 0 then
if class of item 1 of mySelection is in myTextObjects then
if class of item 1 of mySelection is text frame then
set myObject to object reference of text 1 of item 1 of mySelection
else if class of item 1 of mySelection is insertion point then
set myObject to parent story of item 1 of mySelection
else
set myObject to item 1 of mySelection
end if
my myDisplayDialog(myObject, myTextObjects)
else
set myObject to active document
end if
else
set myObject to active document
my myFindChangeByList(myObject)
end if
else
display dialog ("The current document contains no text. Please open a document containing text and try again.")
end if
else
display dialog ("No documents are open. Please open a document and try again.")
end if
end tell
on myDisplayDialog(myObject, myTextObjects)
tell application "Adobe InDesign CS5"
if class of myObject is insertion point then
set myObject to parent story of myObject
end if
set myDialog to make dialog with properties {name:"FindChangeByList"}
tell myDialog
tell (make dialog column)
set myRangeButtons to make radiobutton group
tell myRangeButtons
make radiobutton control with properties {static label:"Entire document", checked state:true}
make radiobutton control with properties {static label:"Selected story"}
if class of myObject is in myTextObjects and class of myObject is not insertion point then
set myContents to contents of myObject
if myContents is not equal to "" then
make radiobutton control with properties {static label:"Selection", checked state:true}
end if
end if
end tell
end tell
end tell
set myResult to show myDialog
if myResult is true then
set myRange to selected button of myRangeButtons
destroy myDialog
if myRange is 0 then
set myObject to document 1
else if myRange is 1 then
if class of myObject is not story then
set myObject to parent story of myObject
end if
end if
my myFindChangeByList(myObject)
else
destroy myDialog
end if
end tell
end myDisplayDialog
on myFindChangeByList(myObject)
local myFile, myFileRef, myEOF, myFindType
tell application "Adobe InDesign CS5"
set myFile to my myFindFile("FindChangeSupport:FindChangeList.txt")
set myFileRef to open for access (myFile as alias)
set myEOF to get eof myFileRef
set myOldDelimiters to AppleScript's text item delimiters
--That's a tab character between the quotation marks in the next line.
set AppleScript's text item delimiters to {" "}
if myEOF > 0 then
--Delimiter is return--if you have trouble reading your find/change file, it's
--probably because your line end characters are not Mac OS line end characters.
set myText to read myFileRef using delimiter {return}
close access myFileRef
repeat with myCounter from 1 to (count myText)
set myLine to item myCounter of myText
if myLine starts with "text" or myLine starts with "grep" or myLine starts with "glyph" then
if word 1 of myLine is "text" or word 1 of myLine is "grep" or word 1 of myLine is "glyph" then
set {myFindType, myFindPreferences, myChangePreferences, myFindChangeOptions, myDescription} to text items of myLine
if myFindType is "text" then
my myFindText(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
else if myFindType is "grep" then
my myFindGrep(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
else if myFindType is "glyph" then
my myFindGlyph(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
end if
end if
end if
end repeat
end if
set AppleScript's text item delimiters to myOldDelimiters
end tell
end myFindChangeByList
on myFindText(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
tell application "Adobe InDesign CS5"
--Clear the find text/change text preferences before each find/change operation.
set find text preferences to nothing
set change text preferences to nothing
set myScript to "tell application \"Adobe InDesign CS5\"" & return & "set properties of find text preferences to " & myFindPreferences & return
set myScript to myScript & "set properties of change text preferences to " & myChangePreferences & return
set myScript to myScript & "set properties of find change text options to " & myFindChangeOptions & return
set myScript to myScript & "end tell" & return
do script myScript language applescript language
tell myObject
set myFoundItems to change text
end tell
--Clear the find text/change text preferences after each find/change operation.
set find text preferences to nothing
set change text preferences to nothing
end tell
end myFindText
on myFindGrep(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
tell application "Adobe InDesign CS5"
--Clear the find grep/change grep preferences before each find/change operation.
set find grep preferences to nothing
set change grep preferences to nothing
set myScript to "tell application \"Adobe InDesign CS5\"" & return & "set properties of find grep preferences to " & myFindPreferences & return
set myScript to myScript & "set properties of change grep preferences to " & myChangePreferences & return
set myScript to myScript & "set properties of find change grep options to " & myFindChangeOptions & return
set myScript to myScript & "end tell" & return
do script myScript language applescript language
tell myObject
set myFoundItems to change grep
end tell
--Clear the find grep/change grep preferences after each find/change operation.
set find text preferences to nothing
set change text preferences to nothing
end tell
end myFindGrep
on myFindGlyph(myObject, myFindPreferences, myChangePreferences, myFindChangeOptions)
tell application "Adobe InDesign CS5"
--Clear the find glyph/change glyph preferences before each find/change operation.
set find glyph preferences to nothing
set change glyph preferences to nothing
set myScript to "tell application \"Adobe InDesign CS5\"" & return & "set properties of find glyph preferences to " & myFindPreferences & return
set myScript to myScript & "set properties of change glyph preferences to " & myChangePreferences & return
set myScript to myScript & "set properties of find change glyph options to " & myFindChangeOptions & return
set myScript to myScript & "end tell" & return
do script myScript language applescript language
tell myObject to change glyph
--Clear the find glyph/change glyph preferences after each find/change operation.
set find text preferences to nothing
set change text preferences to nothing
end tell
end myFindGlyph
on myFindFile(myFindFileName)
tell application "Adobe InDesign CS5"
try
set myScript to active script
on error
set myScript to path to me
end try
end tell
tell application "Finder"
set myScript to file myScript
set myParentFolder to (container of myScript) as string
set myFileName to myParentFolder & myFindFileName
set myResult to exists myFileName
if myResult is true then
else
set myFileName to choose file with prompt "Locate your find/change file"
end if
end tell
return myFileName
end myFindFile
thanks
shane

Adding hyperlinks to CP4 text

Can anyone help with advise on how to add a hyperlink to text
in Captivate 4. The hyperlinks from PowerPoint seem, to work, but I
can't see a way to add a hyperlink in the text field to an external
website.

Hi
Ok I was trying to record it, not working
Make sure that you've copied or saved the pdf files are in the web site folder first
1 insert text,
2 with this text, create a fake link, blue and underline
3 click on Click box in the tools box
4 resize the click box over the fake link, I only keep the hint Type hint here (I deleted the 2 others) and I type Click on the link, in French Cliquez sur le lien
5 click box is still selected, then in the left menu select Action tab
6 In drop-down menu On success select Open url or file
7 Click to browse, click on file or type the url
8 Click on the drop down menu (arrow), click and select New so that way it will opens in a New browser window.
When you export in swf
You will have, at the end of the exportation, to copy paste manually the files in the web folder where is the swf file.
Now we have a new problem. I didn't have this problem with all the projects published, but it happened once. Also, once on the server, the link would not open for that reason, see this blog. Still working on it.
http://sorcererstone.wordpress.com/2009/06/19/when-captivate-links-don t/
sophie
Date: Mon, 6 Sep 2010 19:21:40 -0600
From: [email protected]
To: [email protected]
Subject: Adding hyperlinks to CP4 text
Can someone provide me to the steps of adding hyperlinks
to CP4?
>

Adding a hyperlink to text

I apologise if this is a bit of a basic question, but is it possible to add a hyperlink to text? I have created an interactive tour of a map that invokes an overlay with some text that describes a destination on a map. Each destination has text and an image associated with it. It'd be nice on some of the desitantion text to be able to open up further info on a website in a new browser window (target="_blank").

Forum Bug: i complete my post.
Hi,
1) Using Edge Animate functions: sym.setVariable(), sym.getVariable() and open.window()
Here, you can download an example/tutorial.
Source: Adobe.
2) Using <a>.
I assume that you add a text box on stage.
Using compositionReady, you write:
var url = 'http://www.myDomain';
var aText = 'a text link';
var anchorTag = '<a href="' + url + '" target="_blank">' + aText + '</a>';
myTextBox = sym.$("Text");
myTextBox.html('There is a new website: '+anchorTag+' other words...');
Now without variables:
var anchorTag = '<a href="http://www.myDomain" target="_blank">a text link</a>';

Need a formula for a date in one table to show on a calendar on a "summary" sheet

Hello,
I have created a simple table for my daughter to keep track of her monthly bill's due dates which are in one row of the table. I'd like to create a "summary" sheet which consists of a calendar that shows those dates at one look, it would also show which bill that is due.
I am just beginning to learn about formulas and have created some simple ones, but this is beyond my talents!
I would TRULY appreciate anyone's help!
I tried to search for this subject first, so apologies if this has been answered already.

Here is what I came up with:
A couple things to remember:
1. I ended up using a VERY large IF function; you can see the multi-colored line of text at the top of the above screenshot (I hope it comes thru alright)
2. You will need to change what date is referenced in the first part of the function. In the first line of the calendar you need to reference cell A2 (as in the screenshot), but in others you will need to use the cell that contains the proper date.
3. This does not work if you have more than one bill due on the same date. I will try and work that out.
4. iCal would be MUCH easier. Not only can you set these due dates as recurring events, but iCal can keep things color coded, send you reminders, etc.

Is there any way to add a hyperlink to text in Messages.app?

Is there any way to add a hyperlink to text in Messages.app?
I frequently share links via Messages and would like to have clickable text with a hyperlink beneath vs an ugly URL.

Hi,
In iChat and early versions of Messages this used to be CMD + K keys together
This no longer works.
It seems CMD + K is free as a Modifier keystroke.
I would have added it as an item in System Preferences > Keyboard > Shortcuts.
The issue with that is the fact that there is also no longer an Menu item for it. (so it does not work).
You can add a URL and then Right Click and there is an Edit option but this only allows you to change the URL and not add a URL to existing unsent text.
Right Clicking unlinked Text does not allow you to Edit it either (well there are some format option but not Hyperlinks)
I can't find away around this.
I know in the past the AIM service suffered from malicious code sent in Hyperlinks so this might be the reason.
9:56 pm Monday; January 5, 2015
 iMac 2.5Ghz i5 2011 (Mavericks 10.9)
 G4/1GhzDual MDD (Leopard 10.5.8)
 MacBookPro 2Gb (Snow Leopard 10.6.8)
 Mac OS X (10.6.8),
 Couple of iPhones and an iPad

Hyperlink display text

I'm adding hyperlinks to a pages document but want to change the display text for the links. Is this possible & if so how?? Thanks!!

Select whatever text you want > Inspector > Link > Hyperlink > Enable as Hyperlink > Link to: whatever > URL: paste in address
Peter

Adding hyperlinks to Flash Executable files

I'm using a demo version of Flash 5 to see if I'd like to
invest in a copy of Flash. I added hyperlinked text to to a flash
movie I produced, and when I uploaded the html added to a webpage,
when I click on the hyperlink it successfully takes me to the
correct website. However, when I try clicking on the executable
file version of the same flash movie, published at the same time,
although I get the usual little hand when the put the cursor over
the hyperlink I'm not taken to any webpage.
Can anyone tell me what's going wrong?

HI
You need to use FlashJester JStart
http://jstart.flashjester.com
Download a FREE evaluation copy and try it.
Regards
FlashJester Support Team
e. - [email protected]
w. - www.flashjester.com
"This has been one of the most impressive and thoroughly
pleasant
experiences of customer support I have ever come across -
astounding!"
Director - hedgeapple

How do I create a summary sheet of Group values without using a subreport?

Hello,
I have a report (CR 2011 over MySQL) that churns through a lot of data. It presents information in the Details section and the Group Footer section. I want to include a summary sheet as the first page that only shows the Group Footer data. The only way I've figured out how to accomplish this is by putting the same report as a subreport into the Report Header and then suppressing the details section. I don't like this approach because the same data-intensive report is actually running twice now.
I can't just use the "Hide" feature in the Details Section because when I run the report (from the .NET viewer) none of the details print. To print the details I would have to double-click on each Group Footer which launches a new tab with the details for that particular group only.
I know how to create shared variables so not sure if that can play a part.
Thanks in advance for tips in keeping this to one report with a summary page!
Mark

Hi Mark,
What kind of summary functions do you use on the Group Footer? As long as they're basic summaries (no print time functions etc), you could just move them to the Group Header. The Group header can then serve as your 'Summary sheet'.
If these are printime functions that you're dealing with, then there isn't another way other than using a Subreport to show the Summary sheet. The Subreport itself does not need to be against the same dataset though.
To speed it up, you could perhaps, create a Stored proc that does all the Summarization and use those columns on the report.
-Abhilash

Cut off text on iPod summary screen

Text on the summary screen for iPods is cut off. iPod description is cut at the bottom of the font text. Text in the options field doesn't show full description. It just ends in ... I can't even mouse over to get a full description and the iTunes help is horrible.
Examples:
Open iTunes when this iPod is ...
Prefer standard definitio...

Is your display resolution currently set to at least 1024x768, Jay, as per the following document?
[iTunes: May not display all options at low screen resolutions|http://support.apple.com/kb/TS1845]

How to add text to the summary

I wanted to add a text to my summ total on my report.
The forum told me to add a boiler plate text item. However this item displays on every page.. I want it to only display where the summary is. I tried using anchors but it will not attach to the summary item.. Help
howard

Hi Howard,
I guess you are referring to this post:
How do i add text to the summary
First make sure that you place the boilerplate exactly where you had (or currently have) the summary column, ie, in the SAME frame or repeating frame.
Second, open the property inspector for your summary column. Find the properties "Print Object On" and "Base Printing on", and make sure that both of these are the same for your boilerpate as for your summary column.
Navneet.

How to Map SRM confirmation Text to Service Entry sheet

I ran the report /SAPSRM/GET_TEXT_CUST_ERP in SRM and got all the texts to SRM.
I have also mapped LTXT and TX01 in the configuration. Still I can't get the text copied to service entry sheet. Any suggestions.
Thanks

Hi experts,
kindly give me any suggestions ?
How to capture PO text in service entry sheet accounting document. As of now by default it is capturing service master text.
Instead of service master text we require to capture po text .
thanks & regards,
Raghul

Format/hyperlink certain text in the conversation window using an API plugin

Hi, I want to format/hyperlink certain text and make it clickable in the conversation window of Lync. The click itself will execute a Desktop application.
Is this possible via an API plugin and is there example code on how to manipulate the conversation window?
Thanks!

Hi wyatt biker,
To ensure you get better support, I suggest you turn to our Lync Development forum for dedicated support.
With the assistance provided there, it is more likely the issue can be resolved. Sorry for any inconvenience this caused. Thanks for your understanding.
Best regards,
Eric

Operate C# to modify PPT's hyperlink, while configuring the hyperlink's text to display attribute, the address value will be assigned as null. Anyone know this issue? Any solution?

operate C# to modify PPT's hyperlink, while configuring the hyperlink's text to display attribute, the address value will be assigned as null. Anyone know this issue? Any solution?
How to reproduce the issue：
1.Create a new PPT slide in Office2010.
2. Insert a certain text/characters, such as Mircosoft blablabla,
3. Insert an URL right after the text part , TextToDisplay is the “Test”，Address is the "Url".
4. The content in the ppt is ”Microsoft Test“，here "Test" is the hyperlink which we would like to convert. Please execute the code we list below.
5. The problem will be reproduced by the above steps.
PPT.Application ap = new PPT.Application();
PPT.Presentation pre = null;
pre = ap.Presentations.Open(mFileName, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse);
foreach (PPT.Slide mSlide in pre.Slides)
PPT.Hyperlinks links = mSlide.Hyperlinks;
for (int i = 1; i <= links.Count; i++)
PPT.Hyperlink mLink = links[i];
mLink.TextToDisplay = mLink.TextToDisplay.Replace(mLink.TextToDisplay,"url");
mLink.Address = mLink.Address.Replace(mLink.Address, "url");
Modify texttodisplay, the address vaule will be assigned as null. Anyone knows how to solve it?
Does it caused by a PPT API's Limitation?

I've tried the below code and it works, you can refer this article:
https://msdn.microsoft.com/en-us/library/office/ff745021.aspx
to find that the hyperlink needs to be associated with a text range, and thats what I did in the code below with the help of the link sent by Tony.
Microsoft.Office.Interop.PowerPoint.Application ap = new Application();
Microsoft.Office.Interop.PowerPoint.Presentation pre = null;
pre = ap.Presentations.Open(@"C:\Users\Fouad\Desktop\abcc.pptx", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse);
foreach (Microsoft.Office.Interop.PowerPoint.Slide mSlide in pre.Slides)
Microsoft.Office.Interop.PowerPoint.Hyperlinks links = mSlide.Hyperlinks;
Microsoft.Office.Interop.PowerPoint.Shape textShape = mSlide.Shapes[1];
for (int i = 1; i <= links.Count; i++)
Microsoft.Office.Interop.PowerPoint.Hyperlink mLink = links[i];
Microsoft.Office.Interop.PowerPoint.TextRange range1 = textShape.TextFrame.TextRange;
TextRange oTxtRng = range1.Find(((Microsoft.Office.Interop.PowerPoint.Hyperlink)mLink).TextToDisplay,After:range1.Start,WholeWords:Microsoft.Office.Core.MsoTriState.msoTrue);
oTxtRng.Replace(((Microsoft.Office.Interop.PowerPoint.Hyperlink)mLink).TextToDisplay, "url");
oTxtRng.ActionSettings[Microsoft.Office.Interop.PowerPoint.PpMouseActivation.ppMouseClick].Hyperlink.Address = "http://www.microsoft.com";
Fouad Roumieh

Daily excise duty utilisation summary sheet

Hi,
How to take daily excise duty utilisation summary sheet.
Regards
Gaurav Jain

Hi,
You can get it from J2IUN.
Where in the selection field PERIOD give the date.
Regards,
Gopal.

Adding Hyperlinks to text on a Summary Sheet in Powerpoint

Similar Messages

Maybe you are looking for