5,139
社区成员
发帖
与我相关
我的任务
分享如何在EXCEL、散点图上根据x,y轴的数值动态的画一条直线?
要求:以散点图中一个数据点为源点画一个"+"形状的两条直线?要求是动态的.直线的交点会根据数据点变化而变化的.
大家帮帮忙,我找了半天都没找出来,用ActiveSheet.Shapes.AddLine(100, 200, 500, 200).Select 达不到那个效果.不知道怎么取得数据点的坐标.有其他的好方法吗?
大家帮帮忙,我找了半天都没找出来,用ActiveSheet.Shapes.AddLine(100, 200, 500, 200).Select 达不到那个效果.不知道怎么取得数据点的坐标.有其他的好方法吗?
...全文
请发表友善的回复…
发表回复
ChinaOBS 2007-01-09
- 打赏
- 举报
在散点图的绘图区中添加一个文本框：
Sub Test()
On Error Resume Next
Sheet1.ChartObjects.Delete '清除所有chart
'查入一个散点图
Dim Cht As Chart
Set Cht = ThisWorkbook.Charts.Add
Cht.ChartType = xlXYScatter
Cht.SetSourceData Source:=Sheet1.Range("a1:a9")
Cht.Location Where:=xlLocationAsObject, Name:="Sheet1"
Set Cht = Nothing
'在散点图上添加画文本框
Dim cTxt As Shape
Set cTxt = ChartObjects(1).Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 100, 30)
cTxt.TextFrame.Characters.Text = "Hello,你好吗？"
Set cTxt = Nothing
End Sub
Sub Test()
On Error Resume Next
Sheet1.ChartObjects.Delete '清除所有chart
'查入一个散点图
Dim Cht As Chart
Set Cht = ThisWorkbook.Charts.Add
Cht.ChartType = xlXYScatter
Cht.SetSourceData Source:=Sheet1.Range("a1:a9")
Cht.Location Where:=xlLocationAsObject, Name:="Sheet1"
Set Cht = Nothing
'在散点图上添加画文本框
Dim cTxt As Shape
Set cTxt = ChartObjects(1).Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 100, 30)
cTxt.TextFrame.Characters.Text = "Hello,你好吗？"
Set cTxt = Nothing
End Sub
chen724001 2007-01-09
- 打赏
- 举报
要求就是以散点图上的一个数据点为基点做一个"+"图案的两条直线. 那个数据点的坐标不知道怎取.要不就好做了.
今天倒是查到用误差线可以达到那样的效果.但不知道用两条直线可以定到位不.请教达人..
或者请回答怎样在散点图的绘图区中添加一个文本框?注:是绘图区中添加的.
回答其中一个正确就结帖..第二个应该相对容易一些.呵呵.谢谢来看帖的兄弟..
今天倒是查到用误差线可以达到那样的效果.但不知道用两条直线可以定到位不.请教达人..
或者请回答怎样在散点图的绘图区中添加一个文本框?注:是绘图区中添加的.
回答其中一个正确就结帖..第二个应该相对容易一些.呵呵.谢谢来看帖的兄弟..
ChinaOBS 2007-01-09
- 打赏
- 举报
画一条直线至少需要2个点或1个点+方位角，你的条件不够吧？
chen724001 2007-01-08
- 打赏
- 举报
大家帮忙看一下,看了老久都还没解决...分不够可开贴另加~.回答正确就结贴..谢谢了.
