Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Sub test1() Dim tr As TextRange Set tr = ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange tr.Font.Size = 18 End Sub Sub test2() Dim shp As Shape Set shp = ActivePresentation.Slides(1).Shapes(2) shp.Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 18 End Sub Sub Macro12() ActiveWindow.Selection.SlideRange.Shapes("Rectangle 21").Select ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Font.Size = 18 End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.