VBA怎么修改散点图中点的颜色

kris1977

我用以下代码在散点图中新建一个数据系列，同时想设置点的颜色，但没有任何变化。请大家帮我改改看！！！

1.     ActiveChart.SeriesCollection.NewSeries
   
2.     ActiveChart.FullSeriesCollection(1).Name = p_nam
   
3.     ActiveChart.FullSeriesCollection(1).XValues = "=" & sh1_nam & "!$S$2:$S$10000"
   
4.     ActiveChart.FullSeriesCollection(1).Values = "=" & sh1_nam & "!$T$2:$T$10000"
   
5.     ActiveChart.FullSeriesCollection(1).Select
   
6.     With Selection
   
7.         .MarkerStyle = 5
   
8.         .MarkerSize = 4
   
9.     End With
   
10.     With Selection.Format.Line
    
11.         .ForeColor.RGB = RGB(191, 191, 191)
    
12.     End With

复制代码

kimmyyang

点颜色可以尝试用Points属性

kris1977

我也尝试了，但也是不好用

kris1977

points的哪个属性可以用来改颜色呢？

astupig

1. 
   
2. Sub Macro1()
   
3. '
   
4. ' Macro1 Macro
   
5. '
   
6. 
   
7. '
   
8.     ActiveChart.FullSeriesCollection(1).Select
   
9.     With Selection.Format.Fill
   
10.         .ForeColor.ObjectThemeColor = msoThemeColorAccent1
    
11. 
    
12.     End With
    
13. 
    
14. 
    
15. End Sub
    

复制代码

kris1977

这个改的是填充色，我想改标记本身的颜色，填充是无色的

kris1977

我用这个可以了

1. ActiveChart.SeriesCollection(1).MarkerBackgroundColor = RGB(191, 191, 191)

复制代码

kris1977

我的点的形状固定不住，第一个系列的形状是x，新增第二个系列（使用默认的圆形）时，第一个系列的形状也变成圆形了。这是为什么呢？

LutherKing

你好，大佬，散点图标记边框改为五线条这个你解决了吗》我也遇到了这个问题，希望您能指教心得