VBA 图表的基本操作(二)

今天继续讲讲VBA图表的相关操作

一、在图表工作表上创建图表(看起来有点拗口,也就是在Chart上创建一个图表)

插入图表的方式:打开工作簿后,对着sheet点一下右键——插入——选择图表。

 

①昨天主要是讲了VBA创建在sheet上面的图表,如果单独在Chart上创建图表的话,用Charts的add2方法就可以了:

    Charts.Add2

②创建完了如果需要引用数据的话,可以和昨天一样引用数据:

Sub demo()
    Dim myChart As Chart
    Set myChart = Charts.Add2
    myChart.SetSourceData Source:=Sheets("Sheet1").Range("A1").CurrentRegion
    myChart.ChartType = xlColumnClustered
End Sub

需要注意的是,上述在引用数据源的时候,我是用的Sheets("Sheet1"),而不是常用的Sheets(1),这是因为新建了myChart后呢,它是自动往前面插入的,Sheets(1)就变成了图表,而不是原来的数据的那张表。

③如果先将区域值内的值赋值,再新建Chart就不用担心Sheet(1)引用不到了,可以这样写:

Sub demo()
    Dim my
  • 7
    点赞
  • 51
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
在Excel VBA中,可以使用以下代码生成任意图表: 首先,需要创建一个新的Chart对象,并将其与Excel工作表上的一个图表区域关联。代码示例如下: ``` Dim chartObj As ChartObject Set chartObj = Worksheets("Sheet1").ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=250) ``` 接下来,可以定义生成图表的数据范围。假设要生成的图表数据位于A1到B10单元格范围内,代码示例如下: ``` Dim chartData As Range Set chartData = Worksheets("Sheet1").Range("A1:B10") ``` 然后,可以使用Chart对象的ChartType属性来指定要生成的图表类型。例如,要生成一个柱状图,可以使用以下代码: ``` chartObj.Chart.ChartType = xlColumnClustered ``` 接下来,可以使用Chart对象的SetSourceData方法将数据范围与图表相关联。代码示例如下: ``` chartObj.Chart.SetSourceData Source:=chartData ``` 除了上述基本设置外,还可以进一步自定义图表的样式、布局、图例等。例如,可以使用Chart对象的ChartTitle属性设置图表的标题: ``` chartObj.Chart.HasTitle = True chartObj.Chart.ChartTitle.Text = "Sales Data" ``` 最后,可以使用Chart对象的Export方法将生成的图表保存为图片或者将其复制到剪贴板。例如,可以使用以下代码将图表保存为图片文件: ``` chartObj.Chart.Export "C:\Chart.png", "PNG" ``` 以上是一个简单的示例,可以根据具体需要进行进一步的设置和调整。通过使用Excel VBA中的Chart对象和相关属性、方法,可以生成各种类型的图表,并实现对图表的自定义设置和保存操作。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值