Address the Active Slide... (PPT 2002)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Trevor Williams - 04 Apr 2007 11:22 GMT

I have the following code to reset the rounded corners on RoundedRectangles
throughout a presentation. I need to amend it so it only changes shapes on
the active slide but can't suss it out.

Any help appreciated.

.....

Dim sld as Slide

For Each sld In ActivePresentation.Slides
For Each s In sld.Shapes
If s.AutoShapeType = msoShapeRoundedRectangle Then
s.Adjustments.Item(1) = 0.1
End If
Next
Next

Reply to this Message

John Wilson - 04 Apr 2007 12:24 GMT

The code will depend on whether you are in show mode:

Sub roundit()
Dim oshp As Shape
For Each oshp In ActivePresentation.SlideShowWindow.View.Slide.Shapes
If oshp.AutoShapeType = msoShapeRoundedRectangle Then
oshp.Adjustments.Item(1) = 0.1
End If
Next
End Sub

or edit mode:

Sub roundit2()
Dim oshp As Shape
On Error GoTo errhandler
For Each oshp In ActiveWindow.Selection.SlideRange.Shapes
If oshp.AutoShapeType = msoShapeRoundedRectangle Then
oshp.Adjustments.Item(1) = 0.1
End If
Next
Exit Sub
errhandler:
MsgBox "Is a slide selected?"
End Sub

Signature

Amazing PPT Hints, Tips and Tutorials-http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk/ppttipshome.html
email john AT technologytrish.co.uk

> I have the following code to reset the rounded corners on RoundedRectangles
> throughout a presentation. I need to amend it so it only changes shapes on
[quoted text clipped - 13 lines]
> Next
> Next

Reply to this Message

Trevor Williams - 04 Apr 2007 12:30 GMT

Thanks John

Strange that MS haven't built in an ActiveSlide object...

Trevor

> The code will depend on whether you are in show mode:
>
[quoted text clipped - 39 lines]
> > Next
> > Next

Reply to this Message