Re: How do I add the current path and file name to every slide?
- From: Steve Rindsberg <abuse@xxxxxxxxxxxxx>
- Date: Thu, 29 Nov 2007 11:56:29 EST
In article <3B58F27B-336F-4F1C-9188-A7DE910C5FC1@xxxxxxxxxxxxx>, Suzanne wrote:
no error messages, just very large font.
wohoo, it's working! I've been focussing on the code, when all I needed to
do was change the font size on the ppt before setting / running the
macro...crazy stuff.
Ah, gotcha. I think I see what's going on. See, if you've already run the macro, it
created the text box and formatted it. The next time you run it and every time after
that, it looks for the text box and just changes the text, doesn't alter the formatting.
We could probably rig it so it always deletes and re-creates the text if that'd work out
better for you.
Thanks!!!
"Steve Rindsberg" wrote:
Okeydoke ... so what does or doesn't happen when you run the code?
Do you get any error messages?
In article <A9B2B661-979B-4A09-8456-DB00AC0A9D0F@xxxxxxxxxxxxx>, Suzanne wrote:
Thanks for your help, I thought it should be as simple as changing the size
but I'm still struggling. I have tried using the two lines you suggested but
got no further.
The code I am using is:
Sub AddTextBoxDateFilename()
' Adds a text box with date and filename to each slide
' You must first save the presentation at least once before using this
Dim oSl As Slide
Dim oSh As Shape
On Error GoTo ErrorHandler
For Each oSl In ActivePresentation.Slides
' do we already have a filename/date text box? If do, use it:
On Error Resume Next
Set oSh = oSl.Shapes("FilenameAndDate")
On Error GoTo ErrorHandler
If oSh Is Nothing Then ' no text box there already, create one
' change the position and formatting to suit your needs:
Set oSh = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, 0,
510, 720, 28.875)
With oSh
.Name = "FilenameAndDate"
.TextFrame.WordWrap = msoFalse
With .TextFrame.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With
With .TextFrame.TextRange.Font
.NameAscii = "Arial"
.Size = 8
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppForeground
End With
End With ' shape
End If ' osh is nothing
' now we know there's a shape by the correct name so
Set oSh = oSl.Shapes("FilenameAndDate")
With oSh.TextFrame.TextRange
.Text = ActivePresentation.FullName & vbTab & Format(Now, "mmmm
dd, yyyy")
End With
Set oSh = Nothing
Next ' slide
NormalExit:
Exit Sub
ErrorHandler:
MsgBox ("There was a problem:" _
& vbCrLf _
& Err.Description)
Resume NormalExit
End Sub
"Steve Rindsberg" wrote:
In article <DB8E1EDA-67AB-44C3-8736-EBDA773348D6@xxxxxxxxxxxxx>, Suzanne wrote:
Hi,
Thanks to this very old post I found from Bill Foley I have set up a VBA to
add the file name to ppt (used second option). The VBA worked well, except I
can't change the font. I have tried changing the font size and even tried a
different type of text:
With .TextFrame.TextRange.Font
.NameAscii = "Arial"
.Size = 18
Any idea's how to set the formating to a smaller font?
The .Size = 18 line sets the text size to 18 points. Try
.Size = 12
or whatever point size you like.
Try
.NameAscii = "WhateverFontNameYouWant"
.Name = "WhateverFontNameYouWant"
Also, is it possible to set the VBA code to include file name on all pages
excluding the title page?
Which specific code are you using?
I'm completely new to VBA's, so unfortunately don't have a clue...any help
would be greatly appreciated.
Many thanks,
Sue
"Bill Foley" wrote:
There is code on this page to do just what you want:
http://www.rdpslides.com/pptfaq/FAQ00407.htm
--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
"Success, something you measure when you are through succeeding."
"Carter Devereaux" <CarterDevereaux@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in
message news:D2E19D6C-5F28-4C89-9AAC-3D87D60DDD68@xxxxxxxxxxxxxxxx
I am not a programmer, but a novice interested in how I can add the
presentation's current path and file name to every slide. Does anyone know
how I can do that?
--Carter
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
.
- References:
- Re: How do I add the current path and file name to every slide?
- From: Steve Rindsberg
- Re: How do I add the current path and file name to every slide?
- From: Suzanne
- Re: How do I add the current path and file name to every slide?
- From: Steve Rindsberg
- Re: How do I add the current path and file name to every slide?
- From: Suzanne
- Re: How do I add the current path and file name to every slide?
- Prev by Date: Re: symbol changes fonts
- Next by Date: Re: Save Word Documents as Power Point Documents
- Previous by thread: Re: How do I add the current path and file name to every slide?
- Next by thread: Question RE: Windows Media Player in Powerpoint
- Index(es):
Relevant Pages
|
