vba如何设置数据标记的边框为无线条呢？

liuhuanexcel

我使用vba创建了一个折线图，然后分别给数据标记和线条设置了不同的颜色，但是数据标记的边框和线条的颜色一致，如何调整代码让数据标记设置成无线条？

1. Sub CreateLineChart()
   
2.     Dim ws As Worksheet
   
3.     Dim cht As ChartObject
   
4.     Dim rngData As Range
   
5.     Dim ser As Series
   
6.     Set ws = ActiveWorkbook.Worksheets("Sheet1")
   
7.     Set rngData = ws.Range("A1:B10")
   
8. 
   
9.     Set cht = ws.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
   
10.     cht.Chart.ChartType = xlLine
    
11.     cht.Chart.SetSourceData rngData
    
12. 
    
13.     Set ser = cht.Chart.SeriesCollection(1)
    
14.     ser.MarkerStyle = xlMarkerStyleSquare
    
15.     ser.MarkerBackgroundColor = RGB(255, 0, 0)
    
16.     With ser.Format.Line
    
17.         .Visible = msoTrue
    
18.         .Weight = 1.5
    
19.         .ForeColor.RGB = RGB(0, 0, 255)
    
20.     End With
    
21. End Sub

复制代码

蓝桥玄霜

marker是和线条连在一起的，改为“无线条”就看不见线了。
数据标签的格式是沽源设置的。

liuhuanexcel

蓝桥玄霜 发表于 2023-5-18 10:22
marker是和线条连在一起的，改为“无线条”就看不见线了。
数据标签的格式是沽源设置的。

那就用代码没办法实现这个功能了，还以为是我没找到呢，谢谢版主大大！