Nu2PPT
03-22-2014, 12:24 PM
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
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