改变Word文档中chart的legendkey的颜色，分不够再加！！！

sky-defender 2009-11-24 11:09:28

VBA里面是这么实现的



Sub Macro18()

'



'



'

    ActiveChart.Legend.Select

    ActiveChart.Legend.LegendEntries(4).LegendKey.Select

    With Selection.Border

        .Weight = xlThin

        .LineStyle = xlAutomatic

    End With

    Selection.Shadow = False

    With Selection.Interior

        .ColorIndex = 44

        .Pattern = xlSolid

    End With

End Sub

但是在c#里，找不到合适的代码来实现

((LegendKey)objChart.Legend.LegendEntries(1)).Interior.ColorIndex = 3;

用这句的话，程序老报错，说无法把object转换为legendkey

另外：
柱状图显示了value之后，如何调整value字体的大小？



ActiveWindow.Visible = False

    Windows("Book1.xls").Activate

    ActiveSheet.ChartObjects("Chart 2").Activate

    ActiveChart.SeriesCollection(1).DataLabels.Select

    Selection.AutoScaleFont = True

    With Selection.Font

        .Name = "ËÎÌå"

        .FontStyle = "Regular"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

        .Background = xlAutomatic

    End With

    ActiveChart.SeriesCollection(2).DataLabels.Select

    Selection.AutoScaleFont = True

    With Selection.Font

        .Name = "ËÎÌå"

        .FontStyle = "Regular"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

        .Background = xlAutomatic

    End With

End Sub