find current slide index in slidesorter (PPT97)

Topic

New Reply

The following code snippet returns the current slide index when the Slide view is active:

iCurrentIndex = ActiveWindow.View.Slide.SlideIndex

What’s the equivalent for when the SlideSorter view is active? I want to create a new slide using VBA, and have it appear after the current slide. Using my current code, the iCurrentIndex always reverts to 0 (error trapping), which creates the slide out of order.

Thx.

Reply | Quote

Replies

Jack, you cannot find the slide number in SlideSorter view. In fact, you really can’t do anything in SlideSorter view. What you want to do before just about any PP macro is save the current slide view, reset it to Slide view, do the macro, and then reset the slide view to what you started with. Keeps everyone happy! Try out the macro below.

Sub whichSlide()
Dim saveView As Long
    With ActiveWindow
        saveView = .ViewType
        .ViewType = ppViewSlide
        MsgBox .View.Slide.SlideIndex
        .ViewType = saveView
    End With
End Sub

HTH –Sam

Reply | Quote

Drat!!! I had feared that was the answer. My macro already does what you suggest.
Thanks for the clarification.

Reply | Quote

Now if I could just figure out your Image Control. It’s bizzare!

Reply | Quote

Hey — thanks for looking at that one. I am still awaiting an answer!! And you are right, it is bizarre.

Got another one if you are up to it…

What property holds the width (or height) of the current slide. I’ve tried ActiveWindow.width, but that seems to be something other than the actual slide size.

What I am trying to do is to allow the user to drop any size file onto the slide, and have it resize itself automatically to fully occupy the slide space, whether the slide is portrait or landscape. I keep getting overhang.

Reply | Quote

By the way, how do you create the hotlink back to the other thread?

Reply | Quote

> What property holds the width (or height) of the current slide

That will take some digging; ie; I’ll think about it Tuesday at work. Trying to figure out PowerPoint is the pits!

> how do you create the hotlink

While posting, click the and press one of the link buttons (first row, last two buttons). That puts some pseudo-html into your message and you fillin the URL and/or the description. You can also press help at the top of the window to get better help for the markup tags.

BTW, the Image problem is solved. –Sam

Reply | Quote

Thanks.
Looking forward to hearing if/when you solve the size problem.

the image fix works like a charm.

Reply | Quote

Found the slide-size property:

ActivePresentation.PageSetup.SlideHeight

thanks for your help

Reply | Quote