Formatting pop ups / MsgBox

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to include citation notes in my powerpoint presentation. I
prefer to use hyperlink (Place in This Document < Screen Tip) action rather
than MsgBox, problem is when I have three or four long IP addresses it comes
out looking like this:
"blahhhhhhhhhhhhhhhhhhhhhhhhhhhh.blahhhhhhhhh
..blahhhhh.org, anotheroneeeeeee.anoterrrr
rrrrrrone.gov, & yougetthepictureeeeeee.us. Accessed
June, 2006."

Anyway to fix this so it will read (using hyperlink) to get correct spacing
ie one after the other:
"blah.blah.org
anotherone.anotherone.gov
yougethepicture.us
Accessed June, 2006."

I'm pretty sure you can't adjust spacing and format using screentips but
<shrug>... If you can't, what would be a command to adjust spacing and
format for MsgBox?

ie from:
Sub DefOfCow()
MsgBox "a cow produces milk."
End Sub

to:
Sub DefOfCow()
MsgBox "A cow"
"produces milk."
End Sub

THANK YOU!
 
To format the Screen Tip and place text on different lines, do the
following:
1. Place the following macro in the presentation:

Sub SetScreenTip()
With ActiveWindow.Selection.ShapeRange(1)
With .ActionSettings(ppMouseClick).Hyperlink
.ScreenTip = "blah.blah.org" + vbCrLf + _
"anotherone.anotherone.gov" + vbCrLf + _
"yougethepicture.us" + vbCrLf + _
"Accessed June, 2006."
End With
End With
End Sub

2. Select the shape on which you want to set the Screen Tip.
3. Run this macro.

The vbCrLf places a line-break.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html
 
Thank you for your response, however, after adding the macro you provided to
the presentation and then adding it as mouse click and/or as mouse over to
the text box, nothing happens in slideshow mode. Is the macro supposed to
provide PowerPoint with Hyperlink < Screen Tip info?

-David
 
In fact after running the macro their is a problem with the first line:
Sub SetScreenTip()

Any ideas?
 
LOL I'm not a programer, I don't know what's going on, but debugging caused
the second line to show up yellow now...

-David
 
ok, since you are not a programmer, you can do the following. Instead of the
previous macro, use the following macro as follows:

Sub SetScreenTip(ByVal Shp As Shape)
With Shp
With .ActionSettings(ppMouseClick).Hyperlink
.ScreenTip = "blah.blah.org" + vbCrLf + _
"anotherone.anotherone.gov" + vbCrLf + _
"yougethepicture.us" + vbCrLf + _
"Accessed June, 2006."
End With
End With
End Sub

1. Replace the previous macro with the above macro.
2. Right-click the Shape for which you want the Screen Tip to be formatted
on separate lines.
3. Select "Action Settings..." menu item.
4. Select "SetScreenTip" macro in the "Run macro" box.
5. Click OK.
6. Start the slide show and navigate to the slide that has the shape of step
2.
7. Click the shape. The macro will change the screen tip of the shape that
was clicked.
8. Exit out of the slide show.
9. You may want to remove the macro from your presentation as it is no
longer required.
10. Save the presentation.

Does this help?

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html
 
Chirag,

After following your instructions nothing happened. Do I need to redo the
hyperlink with the screentip info I want after I've formatted the shape using
the macro? Do I change the " " info in the macro for each shape I want to
format and redo the process (I have prob. 15 screentips so far and I'll have
twice that by the end)? After I remove the macro from the presentation I
need to do something to the shape, b/c nothing comes up on mouse over or
mouse click afterwards in slideshow. Hopefully this is making sense lol, I
appreciate the help!

-David Manni
 
David,
Both of these work for me is you set a hyperlink for the shape before
running the code.
Or you can modify it to something like the following to run it in
slide show mode by also applying the hyperlink before setting the
ScreenTip.

Option Explicit

Sub SetScreenTip(ByVal Shp As Shape)
With Shp
With .ActionSettings(ppMouseClick).Hyperlink
.Address = "http://www.reillyand.com/"
.ScreenTip = "blah.blah.org" + vbCrLf + _
"anotherone.anotherone.gov" + vbCrLf + _
"yougethepicture.us" + vbCrLf + _
"Accessed June, 2006."
End With
End With
End Sub

Brian Reilly, MVP
 
Brain,

Thank you for your post. I don't understand why this is so hard for me to
figure out, I've run other macro's as modules before with no problem (I am
using these macro's as modules right?). So I keep getting errors while
working with the macro you provided below. While changing the
"blah.blah.org" etc. stuff to my actual website addresses. All's I want (for
example -- I have like 25 of these so I have to switch all of my screentips
that I've hyperlinked using >right click on box>place in this document >
ScreenTip > "Whatever Info I want in there...") is this to pop up on my
slideshow as a mouse over...

Right now it says in the mouse over box during slideshow:
"http://www.ibiblio.org/pha/pre-war/1922/nav_
lim.html. Accessed June, 2006."

I want it to read:
"http://www.ibiblio.org/pha/pre-war/1922/nav_lim.html.
Accessed June, 2006."

LOL, it doesn't really matter I guess, I just want my information to be
cited correctly. It's now just something pissing me off versus being of
necessity.

Thank You all for your help!

-David Manni
 
I figured out that I was using custom text boxes, rather than custom shape
boxes and thus Mr. Reilly your macro works. Chirag for some reason I
couldn't get your's to work but <shrug> One issue I did have though was that
now when you click on the shape box in slideshow with the macro removed it
brings you to Mr. Reilly's site. Before, the msgbox woulnd't do anything
when you clicked on it, but since I've specified in my directions to "hover
mouse over" it's the other peoples fault if they keep clicking haha...

Thanks Again!

David
 
Back
Top