(Msg. 17) Posted: Sat Aug 16, 2008 12:58 pm
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: microsoft>public>powerpoint (more info?)
This code is on the textbox in slide 6.
Private Sub nameoutput_Change()
With ActiveWindow.Selection.ShapeRange(1)
..Name = "Type the name you want to use here"
End With
End Sub
It says that it is out of range. What is the 1 for?
On slide 3:
Private Sub nameoutput_Change()
With ActiveWindow.Selection.ShapeRange(6)
..Name = "Type the name you want to use here"
End With
End Sub
It says No currently Active Doccument Window.
I need this code to be used while in Kilosk mode, is this only for editing
mode?
(Msg. 18) Posted: Sat Aug 16, 2008 2:32 pm
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
In article <E12D1448-D496-4A2D-A23E-AED6835781A5.TakeThisOut@microsoft.com>, Alexf wrote:
> If TextBox (Nameenter) was on slide 3, would it be put in place of "Thing"?
No. See below. And you can change the name to anything you like.
Sub TransferTextFromHereToThere() or whatever.
> Would the Source Shape be Nameenter and the Target Shape be nameoutput
> (slide 6)?
You asked for a two slide version ... that's what this was.
SourceShape is the shape you want to take the text FROM
TargetShape is the shape you want to apply the text TO
You need to edit these lines:
Set oSourceShape = .Slides(1).Shapes("BlahBlah")
Set oTargetShape = .Slides(2).Shapes("YadaYada")
Change the .Slide(x) numbers to the number of the slides that hold the shapes
you want to change. SourceShape would be 3 in this case.
Change the .Shapes("xxxx") to the actual names of the shapes that you want to
work with.
You'll also want to give a shape an action setting of Run Macro and have it run
this macro, whatever you choose to name it.
> And what would "Name the shape" be? Slide 3 (Nameenter) or Slide 6
> (nameoutput)?
Neither. That's simply a handy little macro you can use to name the shapes so
that the other macro can find them. Change the name to whatever you want in
the
.Name = "xxxx"
line, select the shape, then run the macro. It'll rename the shape.
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com
(Msg. 19) Posted: Sat Aug 16, 2008 5:53 pm
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
In article <B519B930-1283-4590-9395-4A14893708AF.RemoveThis@microsoft.com>, Alexf wrote:
> This code is on the textbox in slide 6.
>
> Private Sub nameoutput_Change()
> With ActiveWindow.Selection.ShapeRange(1)
> ..Name = "Type the name you want to use here"
> End With
> End Sub
>
> It says that it is out of range. What is the 1 for?
Did you select the textbox first?
> On slide 3:
>
> Private Sub nameoutput_Change()
> With ActiveWindow.Selection.ShapeRange(6)
> ..Name = "Type the name you want to use here"
> End With
> End Sub
>
> It says No currently Active Doccument Window.
Same question. You have to SELECT whatever it is you want to name before
running the macro.
>
> I need this code to be used while in Kilosk mode, is this only for editing
> mode?
The naming macro is for you to use in EDIT mode to prepare the presentation so
it works in KIOSK mode.
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com
(Msg. 20) Posted: Sat Aug 16, 2008 5:53 pm
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
(Msg. 21) Posted: Sat Aug 16, 2008 5:53 pm
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
One last question: is there some kind of code that can tell you the last time
you used the powerpoint (within Kilosk mode)?
(Msg. 22) Posted: Sun Aug 17, 2008 11:31 am
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
In article <1B41F7C8-30CC-4E69-92CB-E2161DD59BFD.TakeThisOut@microsoft.com>, Alexf wrote:
> One last question: is there some kind of code that can tell you the last time
> you used the powerpoint (within Kilosk mode)?
Run this code when the presentation starts or at some point during the
presentation:
Sub TimeStamp()
With ActivePresentation
.Tags.Add "LastUsed", Time & " on " & Date
End With
End Sub
You can run this at any time after to see when the presentation was last run
Sub ReadTimeStamp()
With ActivePresentation
MsgBox .Tags("LastUsed")
End With
End Sub
By the way, for this and a few other things you're doing, I think you'll need a
way of triggering the macros when you start the slide show. Have a look here
for that:
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com
(Msg. 24) Posted: Wed Sep 03, 2008 10:27 am
Post subject: Re: VBA [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
In article <B0E18694-2404-4AD9-B8AF-AE69AF5E8D64.TakeThisOut@microsoft.com>, Alexf wrote:
> Steve?
>
> Would it be all right to make a tutorial about this, explaining the code,
> with your name in the credits under "VBA Code" and "consultant?"
Sure, no problem. If you want to credit "the folks on the PowerPoint
Newsgroup" instead of me personally, that'd be fine also.
A link to the VBA section of the PPT FAQ might be of help to your readers too.
> Also; uit'll be on Powerpoint Heaven. If you want a versiodn of it on your
> site, could you respond?
Give me a shout at steve a-in-a-circle pptools dot com when it goes up and I'll
link to it from the FAQ.
>
> If you need to contact me, you can email darkestsunstudios[at]gmail.com.
>
> Thanks!
>
-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com
All times are: Eastern Time (US & Canada) (change) Goto page Previous1, 2, 3
Page 3 of 3
You can post new topics in this forum You can reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
Home
Forums
Home
FAQ
Profile
Private Messages
Log in
Office