PPShape.Table.Cell(i,
j).Shape.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
Work with the TextFrame's horizontal and vertical anchors, something like this:
with PPShape.Table.Cell(i, j).Shape.TextFrame
.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
End With
--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================