Sub ChangePieChart() With Selection If .ShapeRange.Count > 0 Then .ShapeRange(1).Height = 250 ElseIf .InlineShapes.Count > 0 Then .InlineShapes(1).Height = 250 End If End With End Sub