Re: How to Insert a slide after the selected slide.
- From: Steve Rindsberg <abuse@xxxxxxxxxxxxx>
- Date: Tue, 25 Oct 2005 23:57:51 EDT
In article <1130283440.527605.151050@xxxxxxxxxxxxxxxxxxxxxxxxxxxx>, Coogrr
wrote:
> I want a macro that always inserts a new slide after the selected
> slide. I don't think I need the Index:= command unless I can figure out
>
> how to make it reflect the selected side each time.
>
> Here is what I have and it inserts a new slide after the #2 slide each
> time.
>
> 'Insert new slide'
> '
> ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutText).Select
> ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank
Call ActivePresentation.Slides.Add( _
ActiveWindow.Selection.SlideRange(1).SlideIndex, _
ppLayoutBlank)
Test ActiveWindow.Selection.Type to make sure it's what you expect (ie, slides
and not shapes or nothing)
>
> Any ideas on how to change this to make it do what I need it to do?
>
> Thanks,
>
> Dennis
>
--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
.
- Follow-Ups:
- Re: How to Insert a slide after the selected slide.
- From: Coogrr
- Re: How to Insert a slide after the selected slide.
- References:
- How to Insert a slide after the selected slide.
- From: Coogrr
- How to Insert a slide after the selected slide.
- Prev by Date: Re: Input Dates From Access Table to Outlook
- Next by Date: Re: How to Insert a slide after the selected slide.
- Previous by thread: How to Insert a slide after the selected slide.
- Next by thread: Re: How to Insert a slide after the selected slide.
- Index(es):
Relevant Pages
|
|
