Sub Test() If ActiveShape.AbsoluteSkew <> 0 Then MsgBox "The current shape is skewed. Skew angle is " & _ ActiveShape.AbsoluteSkew End IfEnd Sub