如何通过VBA配置散点图：隐藏折线保留标记及格式调整

咱们来拆解你遇到的两个核心问题：只隐藏折线保留标记，以及正确设置标记的边框宽度和无填充效果，下面是具体的解决方案和修改后的代码。

问题根源说明 #

你之前用.Format.Line.Visible = msoFalse会把折线和标记边框一起隐藏，是因为Format.Line控制的是整个系列的线条样式——既包括连接数据点的折线，也包括标记的边框。要实现「只藏折线、保留标记」，需要分开控制折线和标记的属性。

修改后的完整宏代码 #

Sub FormatLegend()
 Dim ChtObj As ChartObject
 Set ChtObj = Worksheets("Plot_1").ChartObjects("Diagramm 1")
 With ChtObj.Chart
  ' 调整系列1的绘图顺序
  With .SeriesCollection(1)
   .PlotOrder = 3
  End With
  
  ' 格式化系列4：隐藏折线、设置标记样式
  With .SeriesCollection(4)
   ' 仅隐藏连接数据点的折线，保留标记边框
   .Border.LineStyle = xlNone
   
   ' 设置标记的基础样式：方形、大小4
   .MarkerStyle = 2
   .MarkerSize = 4
   
   ' 设置标记边框的颜色与宽度
   .MarkerForegroundColor = RGB(146, 208, 80)
   .Border.Weight = 0.75
   
   ' 取消标记的填充效果
   .MarkerBackgroundColorIndex = xlNone
   .Format.Fill.Visible = msoFalse
  End With
 End With
End Sub

关键修改点解析 #

• 单独隐藏折线：用.Border.LineStyle = xlNone替代原代码的.Format.Line.Visible = msoFalse，这个属性仅控制连接数据点的折线，不会影响标记的边框显示。
• 取消标记填充：通过.MarkerBackgroundColorIndex = xlNone直接设置标记无填充色，再配合.Format.Fill.Visible = msoFalse确保填充完全不可见。
• 设置标记边框宽度：.Border.Weight = 0.75专门控制标记边框的粗细，由于折线已经被隐藏，这个设置只会作用在标记上。

内容的提问来源于stack exchange，提问作者Olli