Picture within powerpoint table

[Guest]

How do I programmatically find and remove a picture that's in a PowerPOint
table. I'm searching the slide for a picture, but it's not showing up.

Thanks,
Barb Reinhardt

 

[Steve Rindsberg]

How do I programmatically find and remove a picture that's in a PowerPOint
table. I'm searching the slide for a picture, but it's not showing up.

You'll need to look at each cell and:

If .Cell(x, y).Shape.Fill.Type = msoFillPicture Then
' nb: msoFillPicture = 6
' set fill to something else
End If

 

[Guest]

Those tables are causing some problems!!

You would need to search through all the shapes and identify tables by if
oshp.type =msotable

and then search through each cell in the table
For Irow = 1 To .Rows.Count
For IColumn = 1 To .Columns.Count
With .Cell(Irow, IColumn).Shape
If .Fill.Type = msoFillPicture Then
.Fill.Visible = msoFalse
End If
End With
Next IColumn
Next Irow