时间戳

首页 > 解决方案 > excel vba中的图表位置

sql - excel vba中的图表位置

问题描述

如何设置图表位置我有以下代码

Dim rng As Range
Dim cht As Object

'图表的数据范围

Set rng = ActiveSheet.Range("C10:Q12")

'创建图表

 Set cht = ActiveSheet.Shapes.AddChart2

'给图表一些数据

 cht.Chart.SetSourceData Source:=rng

'确定图表类型

cht.Chart.ChartType = xlLineMarkers

'改变图表的标题

  cht.Chart.ChartTitle.Text = "Budget vs Actual (Income)"

标签： sqlxcode

解决方案

你的意思是，工作表上图表的位置？

首先，您最好使用它来声明cht：

Dim cht As ChartObject

然后定位cht，您可以使用（例如）：

cht.Left = 150
cht.Top = 100

或绑定cht到单元格的位置：

cht.Left = ActiveSheet.Range("D4").Left
cht.Top = ActiveSheet.Range("D4").Top

推荐阅读