Emailing an individual slide

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

Guest

I want to create a button that runs a macro that sends a specific slide in powerpoint. I have tried using the sendforreview function and I was only able to send the whole presentation. Any advice?
 
I want to create a button that runs a macro that sends a specific slide in powerpoint. I
Click to expand...
have tried using the sendforreview function and I was only able to send the whole
presentation. Any advice?

You could have your macro save a copy of the presentation then delete all slides but the
slide you want to email.
 
If you are using PowerPoint XP, than you can use one of the features in my
free add-in.

The 'Save Selection' section of the Slide Numbering add-in allows you to
save a single, a range or multiple slides as a new presentation.

Slide numbering - Slide XX of YY
http://www.rdpslides.com/pptfaq/FAQ00548.htm

--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.

Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..

 
This is what I tried orginally. The printableSlideNum is a created slide that tells the user there results and I want to send that slide to there supervisor to tell them the results also. And I tried the saveas method but I can't keep the printableSlideNum to stay when the other slides get deleted

ActivePresentation.Slides(printableSlideNum).Application.
ActivePresentation.SendForReview
Recipients:="(e-mail address removed); john doe",
Subject:="Please review this document.",
ShowMessage:=False,
IncludeAttachment:=True
 
Sounds like you need to start the customized presentation (all slides
removed but the one you are sending to your boss) at whatever slide number
it previously held in the general presentation.

To change the start number, click ...
File | Page Set-up ... | {input box} Number slides from:

Does this do what you need?

--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.

Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
Dude said:
This is what I tried orginally. The printableSlideNum is a created slide
Click to expand...
that tells the user there results and I want to send that slide to there
supervisor to tell them the results also. And I tried the saveas method but
I can't keep the printableSlideNum to stay when the other slides get
deleted.
 
Bill

This is what I ended up doing to get ride of the slides and keep the one I wanted.
Sub SaveResults(
theSlideIndex = ActivePresentation.Slides("Start").SlideInde
ActivePresentation.Slides(theSlideIndex).Delet
theSlideIndex1 = ActivePresentation.Slides("Question1").SlideInde
ActivePresentation.Slides(theSlideIndex1).Delet
theSlideIndex2 = ActivePresentation.Slides("Question2").SlideInde
ActivePresentation.Slides(theSlideIndex2).Delet
theSlideIndex3 = ActivePresentation.Slides("Question3").SlideInde
ActivePresentation.Slides(theSlideIndex3).Delet
theSlideIndex4 = ActivePresentation.Slides("GetResults").SlideInde
ActivePresentation.Slides(theSlideIndex4).Delet

With Application.ActivePresentatio
.SaveCopyAs "New Format Copy
.SaveAs "Old Format Copy", ppSaveAsDefaul

End Wit

End Su

I had another idea for what I want to do and that is to create the test in word and then use the send for review method whiched worked, but then I thought how about putting the word doc. into powerpoint as an object from file. Then I set the action settings for the object to open while viewing the presentation. So you click on the Icon the file opens but when go to use the commandbutton with the sendforreview methond it errors saying this command is not available. Here's the script I used. When I click on debug it highlights ThisDocument.sendforreview any thoughts on how to make that wor

Private Sub CommandButton1_Click(
ThisDocument.SendForReview
Recipients:="(e-mail address removed); ;",
Subject:="Please review this document.",
ShowMessage:=False,
IncludeAttachment:=Tru

End Su
 
[CRITICAL UPDATE - Anyone using Office 2003 should install the critical
update as soon as possible. From PowerPoint, choose "Help -> Check for
Updates".]
[TOP ISSUE - Are you having difficulty opening presentations in PPT 2003
that you just created in PPT 2003? -
http://support.microsoft.com/?id=329820]

Hello,

PowerPoint doesn't provide the functionality that you are looking for with
Send for Review feature (either through the UI or programmatically).

If you (or anyone else reading this message) think that it's important that
PowerPoint provide this kind of functionality, don't forget to send your
feedback (in YOUR OWN WORDS, please) to Microsoft at:

http://register.microsoft.com/mswish/suggestion.asp

It's VERY important that, for EACH wish, you describe in detail, WHY it is
important TO YOU that your product suggestion be implemented. A good wish
submssion includes WHAT scenario, work-flow, or end-result is blocked by
not having a specific feature, HOW MUCH time and effort ($$$) is spent
working around a specific limitation of the current product, etc. Remember
that Microsoft receives THOUSANDS of product suggestions every day and we
read each one but, in any given product development cycle, there are ONLY
sufficient resources to address the ones that are MOST IMPORTANT to our
customers so take the extra time to state your case as CLEARLY and
COMPLETELY as possible so that we can FEEL YOUR PAIN.

IMPORTANT: Each submission should be a single suggestion (not a list of
suggestions).

John Langhans
Microsoft Corporation
Supportability Program Manager
Microsoft Office PowerPoint for Windows
Microsoft Office Picture Manager for Windows

For FAQ's, highlights and top issues, visit the Microsoft PowerPoint
support center at: http://support.microsoft.com/default.aspx?pr=ppt
Search the Microsoft Knowledge Base at:
http://support.microsoft.com/default.aspx?pr=kbhowto

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of any included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm
 
Back
Top