![]() Then replace msoShapeRoundedRectangle with the mso shape name you need. To use these macros with other shapes, please see my article Every AutoShape – Cool Code for a downloadable reference file showing all AutoShapes along with their XML and VBA names. These macros have been tested under both Windows and macOS and work well under both. By far, Excel has way more code written for it, so Excel VBA sites can be a fruitful source for Word and PowerPoint code ideas. ![]() But the similarites point out that when you’re searching online for VBA code, finding something for a different program and modifying it can be a huge time-saver. ![]() The Word version is a little simpler because a Word document is one big object, while Excel and PowerPoint both have multiple objects for each worksheet and slide, respectively. To do the same in PowerPoint Sub RoundAllPPCorners()ĭim oSlide As Slide, oShape As Shape, RadiusFactor!įor Each oSlide In ActivePresentation.SlidesĪnd finally, for Word Sub RoundAllWDCorners()Įnd Sub Before: Rounded Corners, but not Uniform Adjustments(1) = (1 / (oShape.Height + oShape.Width)) * RadiusFactor! AutoShapeType = msoShapeRoundedRectangle Then Here’s the Excel version: Sub RoundAllXLCorners()ĭim oWorksheet As Worksheet, oShape As Shape, RadiusFactor!įor Each oWorksheet In ActiveWorkbook.Worksheets To run this on a whole presentation, document or workbook, we need to customize the routine for each Office program.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
June 2023
Categories |