如何创建多个散点图？ [英] How do I create multiple scatter charts?

问题描述

如何在用户窗体上创建多个散点图，每个图表都有一个系列集合并将其显示为图像。我已经尝试编码它有错误。这是代码



我尝试过：



Private Sub CommandButton1_Click（）

如果ComboBox1.Text =选择图表那么



MsgBox从下拉列表中选择一个图表

退出Sub



结束如果



Dim i As Integer



i = 0

For ThisWorkbooks In ThisWorkbook.Worksheets（target）.ChartObjects

if i = 0 Then

ChartObjects.Chart.SeriesCollection（1）.Values ==&目标& ！$ Y $ 6：$ Y $ 1048570

ChartObjects.Chart.SeriesCollection（2）.Values ==&目标& ！$ M $ 6：$ M $ 1048570

ElseIf i = 1然后

ChartObjects.Chart.SeriesCollection（1）.Values ==&目标& ！$ K $ 6：$ K $ 1048570

ChartObjects.Chart.SeriesCollection（2）.Values ==&目标& ！$ M $ 6：$ M $ 1048570

ElseIf i = 2然后

ChartObjects.Chart.SeriesCollection（1）.Values ==&目标& ！$ L $ 6：$ L $ 1048570

ChartObjects.Chart.SeriesCollection（2）.Values ==&目标& ！$ M $ 6：$ M $ 1048570

结束如果

i = i + 1

下一页





Dim imageName As String

imageName = Application.DefaultFilePath& Application.PathSeparator& TempChart.gif

MyChart.Export文件名：= imageName

ActiveSheet.ChartObjects（1）。删除

Application.ScreenUpdating = True

UserForm1.Image1.Picture = LoadPicture（imageName）



End Sub



Private Sub Image1_Click（）



End Sub



Private Sub UserForm_Click（）



End Sub



Private Sub UserForm_Initialize（）

ComboBox1.AddItem（IRR）

ComboBox1.AddItem（风险价值）

ComboBox1.AddItem（当前基金信贷）

结束子

how do I create multiple scatter charts on a userform with each chart having one series colletion and display it as an image.I have tried coding thou it has errors. This is the code

What I have tried:

Private Sub CommandButton1_Click()
If ComboBox1.Text = "Select a chart" Then

MsgBox "Select a chart from the dropdown list"
Exit Sub

End If

Dim i As Integer

i = 0
For Each ChartObjects In ThisWorkbook.Worksheets(target).ChartObjects
If i = 0 Then
ChartObjects.Chart.SeriesCollection(1).Values = "=" & target & "!$Y$6:$Y$1048570"
ChartObjects.Chart.SeriesCollection(2).Values = "=" & target & "!$M$6:$M$1048570"
ElseIf i = 1 Then
ChartObjects.Chart.SeriesCollection(1).Values = "=" & target & "!$K$6:$K$1048570"
ChartObjects.Chart.SeriesCollection(2).Values = "=" & target & "!$M$6:$M$1048570"
ElseIf i = 2 Then
ChartObjects.Chart.SeriesCollection(1).Values = "=" & target & "!$L$6:$L$1048570"
ChartObjects.Chart.SeriesCollection(2).Values = "=" & target & "!$M$6:$M$1048570"
End If
i = i + 1
Next


Dim imageName As String
imageName = Application.DefaultFilePath & Application.PathSeparator & "TempChart.gif"
MyChart.Export Filename:=imageName
ActiveSheet.ChartObjects(1).Delete
Application.ScreenUpdating = True
UserForm1.Image1.Picture = LoadPicture(imageName)

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem ("IRR")
ComboBox1.AddItem ("Value At Risk")
ComboBox1.AddItem ("Current Fund Credit")
End Sub

推荐答案

Y

6：

Y

这篇关于如何创建多个散点图？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！