Else
MySeries.Points(MyPoint).DataLabel.Position = xlBelow
End If
End If
If PointsArray(MyPoint) > MaxScale 0.9 Or _
PointsArray(MyPoint) < MinScale 1.5 Then
MySeries.Points(MyPoint).DataLabel.Position = xlRight
End If
End If
NEXTDOT:
Next MyPoint
NEXTSERIES:
Next MySeries
End With
Next
End Sub

11. Redimensionar todos os gráficos

Padronizar todos os gráficos de um arquivo pode ser uma tarefa árdua, esta
macro facilita este processo ao estabelecer as mesmas dimensões, para tanto,
basta modificar a largura e a altura destacados em negrito.

Obs 1: Substituir os valores de exemplo em negrito pelos valores desejados.
Obs 2: Widht será a largura e Height será a altura de todos os gráficos

Sub RedmGraf()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Width = 300
.Height = 200
End With
Next i
End Sub