Change a picture to a rounded rectangle, set the rounding radius (PowerPoint 2007)
PowerPoint 2007 allows you to apply various shapes to pictures you've inserted onto your slides. Some of the shapes let you alter the shape using the yellow diamond adjustment handle. For example, the Rounded Rectangle shape lets you change the rounding radius of the corners.
But suppose you want to create a whole series of these and make each one identical. How do you match the rounding radius from one to the next?
As far as we know, there's no way to do it manually, but with VBA you can. Read on ...
First, set up one picture manually and adjust the yellow handle to give you the amount of corner radius you want.
Then while the picture is selected, run the GetRounding routine below to reveal the amount of rounding you've applied.
Sub GetRounding() Dim oSh As Shape Set oSh = ActiveWindow.Selection.ShapeRange(1) With oSh MsgBox .Adjustments(1) End With Set oSh = Nothing End Sub
Next, select another inserted picture and run the following code after editing it where indicated to enter the rounding value you learned from the previous code:
Sub SetRounding() Dim oSh As Shape Dim sngRounding as Single ' EDIT THIS TO MATCH THE VALUE YOU GOT ABOVE sngRounding = 1.23 Set oSh = ActiveWindow.Selection.ShapeRange(1) With oSh oSh.AutoShapeType = msoShapeRoundedRectangle .Adjustments(1) = sngRounding End With Set oSh = Nothing End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.