Selected shape on Notes Page?

[caten]

I am trying to set the size and position properties of the selected shape on
the Notes Page based on the PlaceholderFormat.Type of the selected shape. How
can I access (get a reference to?) the selected shape on the current notes
page (ie. the Notes Page in the active window Notes Page view)? I can't seem
to get to the Notes Page through ActivePresentation (only the Notes Master)
or ActiveWindow.

 

[Bill Dilworth]

This is ugly, but it works.

Sub HiC()
If Windows(1).Selection.ShapeRange(1) _
.Type = 14 Then 'placeholder
myShape = Windows(1).Selection _
.ShapeRange(1).Name 'get the shape name
With ActivePresentation.Slides _
(Windows(1).Selection.SlideRange(1) _
.SlideNumber).NotesPage.Shapes.Placeholders
For x = 1 To .Count
If myShape = .Item(x).Name Then
MsgBox "it's me! " & _
.Item(x).PlaceholderFormat.Type
End If
Next x
End With
End If
End Sub


--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
vestprog2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..