怎么用VBA在excel中指定位置画图表？如怎么用VBA在 A7：G13位置画出图标

转载

于 2013-05-28 10:12:24 发布 · 2.7k 阅读

5 ·

CC 4.0 BY-SA版权

原文链接：http://blog.51cto.com/laokaddk/1211790

本文提供了一个VBA宏示例，演示如何在Excel的A7：G13区域创建柱状图。通过录制的Macro1宏，步骤包括设置图表类型、数据源、位置以及添加标题和坐标轴标签。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用下面代码可以在A7:G13位置生成图表，图表的数据源是sheet2表的A1:B5
Sub 在指定位置生成图表()
    Set ab = Range("a7:g13") '生成图表的位置
    Set bbb = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)
    bbb.Chart.ChartType = xlColumnClustered '柱形图
    bbb.Chart.SetSourceData Source:=Sheets("Sheet2").Range("A1:B5") '数据源
    With bbb
        .Top = ab.Top
        .Left = ab.Left
        .Width = ab.Width
        .Height = ab.Height
    End With
End Sub