Question

通过VBA设置图表样式

在vba代码中，怎么设置图表样式
Set PositionChart = Range("T280:AB305") '生成图表的位置
Set Chart_XY = Sheets(sSetpoints).ChartObjects.Add(0, 0, 0, 0)
Chart_XY.Name = "huan1_W_J"
Chart_XY.chart.ChartType = xlXYScatterSmoothNoMarkers '设置图的类型
Set SourceData = Union(TimeAxisRange, OverPressRange, OverFlowRange) '合并选中区域
Chart_XY.chart.SetSourceData source:=SourceData, PlotBy:=xlColumns '设置图表的数据区域————PlotBy := xlColumns "的含义是按列制图
Chart_XY.chart.SeriesCollection(1).Name = "=""压力""" '设置图形数据
Chart_XY.chart.SeriesCollection(2).Name = "=""流量"""
With Chart_XY.chart
.HasTitle = True
.ChartTitle.Characters.Text = "污水_关井的流量/压力趋势图"
End With
画出的图表是：

我想通过代码做出这种效果：

只要告诉我怎么设置背景啊 样式啊 什么的就可以了 ，谢谢各位高手了





Answer 1

先用录制宏录制一段，然后分析里面的代码含义，最后把自己需要的变量值代入就可以了。比如下面是我录制的一段改变图表“绘图区”格式的代码。

Sub Macro1()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.ChartArea.Select '“图表区”格式，如果设置“绘图区”格式用ActiveChart.PlotArea.Select
    '指定填充为单色渐变
    'style类型；variant渐变变量；degree灰度，取值0-1（0最深1最浅）
    Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=2, _
        Degree:=0.231372549019608
    With Selection
        .Fill.Visible = True '使用填充效果
        .Fill.ForeColor.SchemeColor = 33 '填充颜色的编号
    End With
End Sub

你可以结合VBA自带的帮助文件，把不明白的语句用“帮助”搜索一下，就能找到详细的解说。

希望能帮到你

Answer 2

授之予鱼不如授之予渔，给你一个实质性的建议就是录制宏

追问

录制不了 能录制我早录制了