// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); // xlsx ファイルを開く var fileStream = this.GetResourceStream("xlsx\\WebsiteFlowChart.xlsx"); workbook.Open(fileStream); IWorksheet worksheet = workbook.Worksheets[0]; // "Idea" を取得 IShape idea = worksheet.Shapes["Idea"]; idea.Fill.TwoColorGradient(GrapeCity.Documents.Excel.Drawing.GradientStyle.FromCenter, 1); idea.Fill.GradientStops[0].Position = 0.33; idea.Fill.GradientStops[0].Color.RGB = System.Drawing.Color.FromArgb(0, 112, 192); idea.Fill.GradientStops[1].Position = 1; idea.Fill.GradientStops[1].Color.RGB = System.Drawing.Color.White; // グラデーションパスタイプを "Path" に設定 idea.Fill.GradientPathType = PathShapeType.Path; // "Functionality" を取得 IShape functionality = worksheet.Shapes["Functionality"]; functionality.Fill.TwoColorGradient(GrapeCity.Documents.Excel.Drawing.GradientStyle.FromCenter, 1); functionality.Fill.GradientStops[0].Position = 0.33; functionality.Fill.GradientStops[0].Color.RGB = System.Drawing.Color.FromArgb(0, 112, 192); functionality.Fill.GradientStops[1].Position = 1; functionality.Fill.GradientStops[1].Color.RGB = System.Drawing.Color.White; // グラデーションパスタイプを "Path" に設定 functionality.Fill.GradientPathType = PathShapeType.Path; // xlsx ファイルに保存 workbook.Save("ConfigGradientFillWithPathShape.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook ' xlsx ファイルを開く Dim fileStream = GetResourceStream("xlsx\WebsiteFlowChart.xlsx") workbook.Open(fileStream) Dim worksheet As IWorksheet = workbook.Worksheets(0) ' "Idea" を取得 With worksheet.Shapes("Idea").Fill .TwoColorGradient(GradientStyle.FromCenter, 1) .GradientStops(0).Position = 0.33 .GradientStops(0).Color.RGB = System.Drawing.Color.FromArgb(0, 112, 192) .GradientStops(1).Position = 1 .GradientStops(1).Color.RGB = System.Drawing.Color.White ' グラデーションパスタイプを "Path" に設定 .GradientPathType = PathShapeType.Path End With ' "Functionality" を取得 With worksheet.Shapes("Functionality").Fill .TwoColorGradient(GradientStyle.FromCenter, 1) .GradientStops(0).Position = 0.33 .GradientStops(0).Color.RGB = System.Drawing.Color.FromArgb(0, 112, 192) .GradientStops(1).Position = 1 .GradientStops(1).Color.RGB = System.Drawing.Color.White ' グラデーションパスタイプを "Path" に設定 .GradientPathType = PathShapeType.Path End With ' xlsx ファイルに保存 workbook.Save("ConfigGradientFillWithPathShape.xlsx")