Excel2010图表中关于Line和Marker的问题

winland

最近在Excel2010中写一个图表工具，发现Series（系列）的Marker（标记）不是一个独立的对象，Excel里可以单独设置Marker的格式并和Line（线条）分开，但是在VBA里却不能，很郁闷。
当然可以用MarkerStyle，MarkerSize，MarkerBackgroundColor和MarkerForegroundColor了设置标记，但是并不能特别设置标记线条的大小，而只能沿用线条的设置。

另外，当Line（线条）颜色设置为自动时，用ActiveChart.SeriesCollection(1).Format.Line.ForeColor.RGB并不能获取线条的正确颜色，而是一直返回白色。

各位同学不知道有什么解决的办法。

KCFONG

很久没见到你
在网上找到下面的
不知对你有没有帮助

Sub FormatLineOrBorders()

    Dim cht As Chart

    Set cht = ActiveChart

    With cht.SeriesCollection(1).Trendlines(1).Format.Line

        .DashStyle = msoLineLongDashDotDot

        .ForeColor.RGB = RGB(50, 0, 128)

        .BeginArrowheadLength = msoArrowheadShort

        .BeginArrowheadStyle = msoArrowheadOval

        .BeginArrowheadWidth = msoArrowheadNarrow

        .EndArrowheadLength = msoArrowheadLong

        .EndArrowheadStyle = msoArrowheadTriangle

        .EndArrowheadWidth = msoArrowheadWide

    End With

End Sub

KCFONG

师父 你好
再找到一个
希望你有用

Sub Test()
  Dim S As Series
  Dim P As Point
  Set S = ActiveChart.SeriesCollection(1)
  For Each P In S.Points
    With P
      .MarkerStyle = xlMarkerStyleCircle
      .Format.Line.DashStyle = msoLineSysDot
      .Format.Line.Weight = 20
    End With
  Next
  S.Border.Weight = 2
End Sub

winland

KCFONG 发表于 2012-7-28 15:28
很久没见到你
在网上找到下面的
不知对你有没有帮助

是很久没来了。
这个代码是针对趋势线的，并不是针对连接Marker的那个线。

winland

KCFONG 发表于 2012-7-28 15:43
师父 你好
再找到一个
希望你有用

这个是改每个Marker的，但也是同样的情况，改这个Point的时候，连这个点前面的线条也会跟着改变。

winland

再顶一下。在微博上chrisfang兄告知在颜色设置为自动的时候使用主题颜色的方法，不过不能判断线条颜色是否设置为“自动”这个属性，所以也就不能判断线条颜色是手动还是自动设置的。

nblhj

遇到同样的问题，不知解决了吗？