Private Function AspectHt( _
origWd As Long, origHt As Long, _
newWd As Long) As Long
If origWd <> 0 Then
AspectHt = (CSng(origHt) / CSng(origWd)) * newWd
Else
AspectHt = 0
End If
End Function







Sub Figure_Attributes()

Dim oShp As Shape
Dim oILShp As InlineShape

For Each oShp In ActiveDocument.Shapes
    With oShp
        If (.Width > CentimetersToPoints(13)) Then
            .Height = AspectHt(.Width, .Height, _
            CentimetersToPoints(13))          '¿øÇÏ´Â ¼ýÀÚ ÀÔ·Â cm
            .Width = CentimetersToPoints(13)  '¿øÇÏ´Â ¼ýÀÚ ÀÔ·Â
        End If
        
    End With
    
    oShp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
Next

For Each oILShp In ActiveDocument.InlineShapes
    With oILShp
        If (.Width > CentimetersToPoints(13)) Then
            .Height = AspectHt(.Width, .Height, _
            CentimetersToPoints(13))            '¿øÇÏ´Â ¼ýÀÚ ÀÔ·Â
            .Width = CentimetersToPoints(13)    '¿øÇÏ´Â ¼ýÀÚ ÀÔ·Â
        End If
    End With
    
    oILShp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    
Next
End Sub