バブルチャート(バブルチャート)を使用して、3つのvb.netチュートリアルを表示できます
変数間の関係。x値、y値、サイズ値をプロットすることにより、チャート内のバブルの座標とサイズを決定できます。以下に、バックエンドC#コードとVB.NETコード展示C#チュートリアルを使用してExcelでバブルチャートを作成する方法を示します。
プログラム環境:
Visual Studio
.Net FrameWork 4.5.1
Spire.XLS for .NETバージョン10.12.0
注:コードを編集する前に、Spire.Xls.dll(dllファイルはPython基本チュートリアル圧縮パッケージのBinフォルダーの下にあります)を追加し、その参照を追加します。 VSプログラムは公式ウェブサイトまたはNugetからダウンロードできます。次の引用効果を参照してください。
【C#】
using Spire.Xls;
using Spire.Xls.Charts;
using System.Drawing;
namespace CreateBubbleChart_XLS
{
class Program
{
static void Main(string[] args)
{
//创建一个Excel工作簿,并获取第一张工作表
Workbook wb = new Workbook();
wb.Version = ExcelVersion.Version2013;
Worksheet sheet = wb.Worksheets[0];
//添加图表,指定图表类型
Chart chart = sheet.Charts.Add();
chart.ChartType = ExcelChartType.Bubble;
chart.PrimaryCategoryAxis.Title = "人均消费";
chart.PrimaryValueAxis.Title = "点评数";
//设置图表的名称和数据
Spire.Xls.Charts.ChartSerie cs1 = chart.Series.Add("气泡图");
cs1.EnteredDirectlyValues = new object[]{
2, 5, 3, 6, 7};
cs1.EnteredDirectlyCategoryLabels = new object[]{
1, 4.5, 1.2, 3.3, 2};
cs1.EnteredDirectlyBubbles = new object[]{
3, 6, 1, 4, 7};
//设置图表位置
chart.LeftColumn = 4;
chart.TopRow = 2;
chart.RightColumn = 12;
chart.BottomRow = 22;
//设置图表标题
chart.ChartTitle = "人均消费VS点评数";
chart.ChartTitleArea.IsBold = true;
chart.ChartTitleArea.Size = 12;
chart.Legend.Position = LegendPositionType.Top;
//保存文档
wb.SaveToFile("BubbleChart.xlsx", ExcelVersion.Version2013);
System.Diagnostics.Process.Start("BubbleChart.xlsx");
}
}
}
バブルチャート効果:
【vb.net】
Imports Spire.Xls
Imports Spire.Xls.Charts
Imports System.Drawing
Namespace CreateBubbleChart_XLS
Class Program
Private Shared Sub Main(args As String())
'创建一个Excel工作簿,并获取第一张工作表
Dim wb As New Workbook()
wb.Version = ExcelVersion.Version2013
Dim sheet As Worksheet = wb.Worksheets(0)
'添加图表,指定图表类型
Dim chart As Chart = sheet.Charts.Add()
chart.ChartType = ExcelChartType.Bubble
chart.PrimaryCategoryAxis.Title = "人均消费"
chart.PrimaryValueAxis.Title = "点评数"
'设置图表的名称和数据
Dim cs1 As Spire.Xls.Charts.ChartSerie = chart.Series.Add("气泡图")
cs1.EnteredDirectlyValues = New Object() {
2, 5, 3, 6, 7}
cs1.EnteredDirectlyCategoryLabels = New Object() {
1, 4.5, 1.2, 3.3, 2}
cs1.EnteredDirectlyBubbles = New Object() {
3, 6, 1, 4, 7}
'设置图表位置
chart.LeftColumn = 4
chart.TopRow = 2
chart.RightColumn = 12
chart.BottomRow = 22
'设置图表标题
chart.ChartTitle = "人均消费VS点评数"
chart.ChartTitleArea.IsBold = True
chart.ChartTitleArea.Size = 12
chart.Legend.Position = LegendPositionType.Top
'保存文档
wb.SaveToFile("BubbleChart.xlsx", ExcelVersion.Version2010)
System.Diagnostics.Process.Start("BubbleChart.xlsx")
End Sub
End Class
End Namespace