vba to find action buttons?

  • Thread starter Thread starter Geoff Cox
  • Start date Start date
G

Geoff Cox

Hello,

I have several hundred presentations in which the last slide should
have an action button on it.

How would I test each presentation to see if the action button has
been added?

The code to create the action button is

With ActivePresentation.Slides(ActivePresentation.Slides.Count)_
..Shapes.AddShape(msoShapeActionButtonForwardorNext, _
586.75, 496.75, 96.38, 28.38)

Thanks for any pointers.

Geoff
 
Hello,

I have several hundred presentations in which the last slide should
have an action button on it.

How would I test each presentation to see if the action button has
been added?
Click to expand...

Let me make a suggestion before you go too much farther with this:

Before making mass changes to a file or file, make a backup of any files you
plan to alter.


The code to create the action button is

With ActivePresentation.Slides(ActivePresentation.Slides.Count)_
..Shapes.AddShape(msoShapeActionButtonForwardorNext, _
586.75, 496.75, 96.38, 28.38)
Click to expand...

add immediately after this line:

.Name = "GeoffsActionButton"

That won't help with the current problem but will make it much easier to find
the action button during future escapades.

I'm guessing that adding another next button directly atop the first wouldn't
hurt anything but ...

Dim oSh as Shape

For Each oSh in _
ActivePresentation.Slides(ActivePresentation.Slides.Count)_
.Shapes
if oSh.type = 1 then
' 130 = msoShapeActionButtonForwardOrNext
if osh.autoshapetype = 130 then
osh.delete
end if
end if
Next
 
Before making mass changes to a file or file, make a backup of any files you
plan to alter.
Click to expand...

Steve,

I am so aware of this that I have endless backups!
add immediately after this line:

.Name = "GeoffsActionButton"
Click to expand...

excellent idea.
I'm guessing that adding another next button directly atop the first wouldn't
hurt anything but ...
Click to expand...

In fact I think it does matter. That's how the problem came to light.
I found that some buttons were not working and then realised that I
had one on top of another and the top one would not work. The one
underneath was OK.

Not sure what your code is doing. What is it deleting? I was more
thinking of a message saying "no button in file <name of file>" if the
button was missing ....

Cheers

Geoff
 
On Tue, 18 Apr 2006 23:51:21 EDT, Steve Rindsberg

Steve,

Well blow me down!! I combined your code with the previous code for
adding the button - minus the adding button part - with a good deal of
guess work and low and behold the code does run!

But! Your code below removes 1 button I think. So that means that if
there was only 1 button - the correct situation - it will be removed.
If there were 2 buttons - extra one placed in error by my running a
macro twice - then the second button would be removed.

This does not allow me to find the ppt files with no button or those
with 2 (or more buttons)?

I guess I am looking for code which will indicate

1. no button in this file (ie name of file given) OR

2. more than 1 button in this file (name given)

Am I missing a logic trick here?

Or, more easily perhaps, code which removes all such action buttons in
each of the last slides - then at least I would know that all files
had no button/s and could then safely run the macro to create the
button in each end slide....

Cheers

Geoff



Dim oSh as Shape

For Each oSh in _
ActivePresentation.Slides(ActivePresentation.Slides.Count)_
.Shapes
if oSh.type = 1 then
' 130 = msoShapeActionButtonForwardOrNext
if osh.autoshapetype = 130 then
osh.delete
end if
end if
Next
 
On Tue, 18 Apr 2006 23:51:21 EDT, Steve Rindsberg

Steve,

Well blow me down!! I combined your code with the previous code for
adding the button - minus the adding button part - with a good deal of
guess work and low and behold the code does run!

But! Your code below removes 1 button I think. So that means that if
there was only 1 button - the correct situation - it will be removed.
If there were 2 buttons - extra one placed in error by my running a
macro twice - then the second button would be removed.

This does not allow me to find the ppt files with no button or those
with 2 (or more buttons)?
Click to expand...

No ... computers and often the people who drive them are frightfully literal
minded. You didn't ask for help removing multiple buttons or hint that there
might even be more than one.

Rather than muck about trying to correct mistakes like this, why not revert to
your backups?
 
No ... computers and often the people who drive them are frightfully literal
minded. You didn't ask for help removing multiple buttons or hint that there
might even be more than one.
Click to expand...

Steve,

If we are to be literal (!) - I actually asked "How would I test each
presentation to see if the action button has been added?"

I didn't ask "how could I delete the buttons that were on the slides".

By "testing" I was looking for a way of knowing if the button was
there or not there. Deleting buttons doesn't tell me that does it?!

Cheers

Geoff
 
Geoff,

I'd suggest that you get a good book on writing VBA for PowerPoint (David
Marcovitz' book is not only good, it's pretty much the only one available) and
learn to do some of this yourself.

Those of us who do VBA here are happy to help anyone past the rough spots, but
for the most part, we're not here to write entire free addins for people.
 
Geoff,

I'd suggest that you get a good book on writing VBA for PowerPoint (David
Marcovitz' book is not only good, it's pretty much the only one available) and
learn to do some of this yourself.

Those of us who do VBA here are happy to help anyone past the rough spots, but
for the most part, we're not here to write entire free addins for people.
Click to expand...


Steve,

Quite correct - thanks for your help to date - will buy the book now!

Cheers

Geoff
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

code not working when ControlToolbox used? 7
vba logic? 13
finding oHl.Address for an action button? 2
Help! Macro suddenly not working?! 6
How do you work with simple arrays in VBA? 6
code to find colon in text placeholder? 11
VBA Font Size Issue 4
Customization of action buttons. 2

Back
Top