Hi All,

I have a master powerpoint file that is frequently updated by several users (both Mac and PC). As users update embedded excel tables, font size/name and shape size changes. I have the code below that changes shape size but need help from the experts to update code to format font size and name.

Thanks in advance!

Sub Resize_Table1()
    With ActiveWindow.Selection.ShapeRange
        .LockAspectRatio = False
        .Height = 0.58 * 72
        .Width = 8.9 * 72
        .Left = (ActivePresentation.PageSetup.SlideWidth - .Width) / 2
        .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
        .ScaleWidth 1, msoFalse, msoScaleFromTopLeft

    End With

End Sub