[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Update bulleted text with a variable

Posted on 2014-02-21
5
Medium Priority
?
231 Views
Last Modified: 2014-03-04
Let's say that I have 3 intended audiences: Water drinkers, Beer drinkers and Milk drinkers. I would like to have a text box control where I can enter in the work Milk and then have that word updated in the bulleted items of the show such as this

Milk drinkers are the smartest people
Other drinkers are envious of Milk drinkers
All the cool people drink Milk

You get the idea. I want the bulleted items to act as if the word Milk (or whatever word or phrase I supply) were always typed in as one would regularly do with a presentation.

Is such a thing possible
0
Comment
Question by:glenn_grubb
  • 3
  • 2
5 Comments
 
LVL 23

Expert Comment

by:JSRWilson
ID: 39879135
How would you know where to insert the word?

Fairly easy to code but there would have to be some way of finding the insertion points or word to replace.

One way would be to store the last replace word in a tag. How good is your coding?
0
 

Author Comment

by:glenn_grubb
ID: 39880750
Figured it out myself! I can now use VBA to go to a specific line in a specific textbox on a specific slide and change that text to what I want. Will post the code when I clean it up.
0
 
LVL 23

Expert Comment

by:JSRWilson
ID: 39880798
Surely that would mean writing different code for each textbox though plus you will never be able to alter the presentation? Lets's hope there aren't too many things to change!

Maybe the code in this will help too.
0
 

Accepted Solution

by:
glenn_grubb earned 0 total points
ID: 39893437
I know the specific lines I need to change on the specific slides.

First I set a reference to the slide I want to change
Set Kinetic_1 = ActivePresentation.Slides("Kinetic1")

Now I change the line of text in the specific textbox I want to change (this is the formula for kinetic energy applied to a specific approach speed of an aircraft)

    Kinetic_1.Shapes("Kinetic1Text").TextFrame.TextRange.Lines(4).Text = "Ek = ½(2460)(" & Knots & "^)"


Since I named the slides and textboxes, I can add other slides and the code will continue to work.
0
 

Author Closing Comment

by:glenn_grubb
ID: 39902799
I asked for an answer first hoping it would come quickly, when it didn't, I continued to research until I found the answer suitable to the task. I took a little code from here and some from there until I could work out my own solution... sort of a teach a man to fish  kind of scenario
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In this post we will learn different types of Android Layout and some basics of an Android App.
This article will inform Clients about common and important expectations from the freelancers (Experts) who are looking at your Gig.
Learn how to use the remote presentation tool in Prezi to allow you to harness the power of this cloud based presentation platform. You can show your presentation with a remote audience using this free tool.
It’s easy to embed any of your public Prezi presentations on your website or social network to share with others. Learn how simple it is in this tutorial.

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question