Is there a way in VB to force a legend to display in single line spacing
rather than what appears to be double line spacing?

I am using the following code to control the display of the legend. Is
there a property I can add that will control the line spacing?

ActiveChart.Legend.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.FontStyle = "normal"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With