vba代码插入折线图

anlog

已于 2024-08-13 08:38:12 修改

阅读量841

点赞数 5

分类专栏：笔记文章标签： vba excel 图表折线图

于 2024-08-12 16:59:45 首次发布

本文链接：https://blog.youkuaiyun.com/anlog/article/details/141136382

版权

笔记专栏收录该内容

347 篇文章

订阅专栏

x	q	w	e	r	t	y
y	52	15	20	18	13	9
hi	30	35	33	31	20	15

Sub test()
    Set sht1 = ThisWorkbook.Worksheets("示例")
    x = sht1.Range("I1").Left
    y = sht1.Range("I1").Top
    w = sht1.Range("N15").Width * 15
    h = sht1.Range("N15").Height * 25
    Set ch1 = sht1.ChartObjects.Add(x, y, w, h)

    'chart方法
    ch1.Chart.SetSourceData Source:=sht1.Range("A2:G4")
    ch1.Chart.SetElement (msoElementDataLabelOutSideEnd)
    ch1.Chart.SetElement (msoElementChartTitleNone)
    ch1.Chart.SetElement (msoElementLegendTop)

    'chart属性
    ch1.Chart.ChartType = xlLineMarkers

    Set line1 = ch1.Chart.SeriesCollection("y")

    '设置其中的一条线
    With line1
        .MarkerStyle = xlMarkerStyleCircle
        .MarkerSize = 7
    End With

    With line1.Format.Line  '设置线条颜色
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0) '红色
        .DashStyle = msoLineDash
        .Weight = 3
    End With

    '设置标记线颜色及填充色
    line1.MarkerForegroundColor = RGB(0, 255, 0) '标记线颜色
    line1.MarkerBackgroundColor = RGB(0, 0, 0)  '填充色

End Sub

参考链接

VBA与Excel进阶系列-02-图表（中篇）_vba 折线图-优快云博客https://blog.youkuaiyun.com/zishendianxia/article/details/76358423?spm=1001.2014.3001.5506