Chart.HasLegend (Word)

True se o gráfico tem uma legenda. Boolean de leitura/gravação.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .HasLegend = True 
 .Legend.Font.ColorIndex = 5 
 End With 
 End If 
End With