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