Sub chgPic()
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 0.75 * iShape.Height
'iShape.Width = 7.5 * iShape.Width
If Len(iShape.Range.Paragraphs(1).Range.Text) = 2 Then
iShape.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End If
Next iShape
End Sub
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 0.75 * iShape.Height
'iShape.Width = 7.5 * iShape.Width
If Len(iShape.Range.Paragraphs(1).Range.Text) = 2 Then
iShape.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End If
Next iShape
End Sub