I added some error checking and tried to polish up the code a bit
Sub test()
ResizeText 10
End Sub
Sub ResizeText(Optional shFontSize As Integer)
Dim oShape
On Error GoTo CheckErrors
With ActiveWindow.Selection.ShapeRange
If .Count = 0 Then
MsgBox "You need to select a shape first"
Exit Sub
End If
End With
For Each oShape In ActiveWindow.Selection.ShapeRange
oShape.TextFrame.textRange.Font.Size = shFontSize
Next
Exit Sub
CheckErrors: MsgBox Err.Description
End Sub
But now I realize it doesn't work with grouped shapes.
Any ideas on how I can proceed?
Thanks in advance!