Hi,
In a loop, I have a 2 by 1 table in PowerPoint slides that as I create them, I format them. How can I refactor this, please?
In a loop, I have a 2 by 1 table in PowerPoint slides that as I create them, I format them. How can I refactor this, please?
With pptTable.Table.Cell(1, 1).Shape
.TextFrame.TextRange.Font.Name = "Calibri"
.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignRight
'.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
.TextFrame.TextRange.Font.Size = 54
.TextFrame2.VerticalAnchor = msoAnchorMiddle
'pptTable.Table..Rows(lRow).Height = 40
End With
With pptTable.Table.Cell(2, 1).Shape
.TextFrame.TextRange.Font.Name = "Calibri"
.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignRight
'.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
.TextFrame.TextRange.Font.Size = 54
.TextFrame2.VerticalAnchor = msoAnchorMiddle
'pptTable.Table..Rows(lRow).Height = 40
End With