How do I delete a placeholder programmatically?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Maredith - 30 Apr 2008 18:45 GMT

I'm using the Office 2003 package. (Will be transitioning soon) I'm trying to
use a macro to export data from Excel to PowerPoint for monthly briefings. I
want to put the data in a table. Right now, I'm using using the "Add" method
to the "Slides" collection with "ppLayoutTable" layout option. Then I add a
table to the slide and assign it to a shape opject, e.g.
Set MyShape = ppSlide.Shapes.AddTable(intLinesPerSlide, 6, 35, 125, 650,
320)
and populate the cells.

Everything works except when all is finished, the placeholder is still there
on the slide. By that I mean there is a placeholder and message in big bold
letters "Double click to add table". It doesn't show in slideshow but I want
to hand this to others to use.

Any ideas of either how to delete the placeholder or what other layout I
should use?

Reply to this Message

John Wilson - 30 Apr 2008 20:06 GMT

Maybe ppLayoutTitleOnly?

Signature

Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

> I'm using the Office 2003 package. (Will be transitioning soon) I'm trying to
> use a macro to export data from Excel to PowerPoint for monthly briefings. I
[quoted text clipped - 12 lines]
> Any ideas of either how to delete the placeholder or what other layout I
> should use?

Reply to this Message

Maredith - 30 Apr 2008 22:45 GMT

Thanks so much. That worked. I had tried that, got an error, didn't follow
through. But with a minor change in how I was handling shapes, it works.

I appreciate your help.

> Maybe ppLayoutTitleOnly?
>
[quoted text clipped - 14 lines]
> > Any ideas of either how to delete the placeholder or what other layout I
> > should use?

Reply to this Message

Steve Rindsberg - 30 Apr 2008 20:48 GMT

You could:

- Add a blank layout slide or blank with title instead of a table layout

- Do as you're already doing but delete the placeholder object; for example:

This uses a function to return the table placeholder on any slide passed to it
(or nothing if there's no such critter):

Sub Example()

Dim oSl As Slide
Dim oSh As Shape
Set oSl = ActivePresentation.Slides(1)
Set oSh = TablePlaceholder(oSl)
If Not oSh Is Nothing Then
oSh.Delete
End If

End Sub

Function TablePlaceholder(oSl As Slide) As Shape

Dim oSh As Shape
For Each oSh In oSl.Shapes
If oSh.Type = msoPlaceholder Then
If oSh.PlaceholderFormat.Type = ppPlaceholderTable Then
Set TablePlaceholder = oSh
Exit Function
End If
End If
Next

End Function

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

Reply to this Message

Maredith - 30 Apr 2008 22:50 GMT

Thanks - I tried the first suggestion first and since that worked, didn't
move on the the second. But I have another app, does the same thing, but
since I'm the only "user" and it's not a problem for presentation, I've been
just "living with it". Your second suggestion for actually deleting the
placeholder may be a better solution for that particular scenario.

Thank you so much.
Maredith

> > I'm using the Office 2003 package. (Will be transitioning soon) I'm trying to
> > use a macro to export data from Excel to PowerPoint for monthly briefings. I
[quoted text clipped - 53 lines]
> PPTools: www.pptools.com
> ================================================

Reply to this Message

Rate this thread: