// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); // ネットワークリクエストプロセッサを設定するには、ユーザーによるカスタマイズが必要です。 GrapeCity.Documents.Excel.Workbook.WebRequestHandler = new WebRequestHandler(); IWorksheet worksheet = workbook.Worksheets[0]; // データの初期化 worksheet.Range["A1:D11"].Value = new object[,] { {"識別番号", "製品", "数量", "コスト" }, {"BO87680", "ブーツ", 30, 20}, {"DR676554", "ドレス", 10, 50}, {"GL98767", "サングラス", 40, 15}, {"HA23423", "帽子", 12, 26}, {"JA87684", "ジャケット", 10, 100}, {"SH67655", "半ズボン", 19, 30}, {"SLG123", "スリッパ", 25, 8}, {"SU98762", "スーツケース", 7, 50}, {"SW3456", "水着", 15, 60}, {"TS98768", "Tシャツ", 20, 14} }; worksheet.Range["E1"].Value = "イメージ"; // 画像の設定 worksheet.Range["E2"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/1785/1785348.png\")"; worksheet.Range["E3"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/2682/2682178.png\")"; worksheet.Range["E4"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/1971/1971886.png\")"; worksheet.Range["E5"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/1357/1357590.png\")"; worksheet.Range["E6"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/2411/2411728.png\")"; worksheet.Range["E7"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/5029/5029595.png\")"; worksheet.Range["E8"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/15618/15618724.png\")"; worksheet.Range["E9"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/3412/3412695.png\")"; worksheet.Range["E10"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/5398/5398550.png\")"; worksheet.Range["E11"].Formula = "= IMAGE(\"https://cdn-icons-png.flaticon.com/512/1867/1867565.png\")"; // スタイルの設定 worksheet.Range["2:11"].RowHeightInPixel = 75; worksheet.Range["A:E"].ColumnWidthInPixel = 80; worksheet.Range["B:B"].ColumnWidthInPixel = 100; IRange range = worksheet.Range["A1:E11"]; var table = worksheet.Tables.Add(range, true); table.TableStyle = workbook.TableStyles["TableStyleMedium2"]; range.Borders[BordersIndex.InsideHorizontal].LineStyle = BorderLineStyle.Thin; range.Borders[BordersIndex.InsideVertical].LineStyle = BorderLineStyle.Thin; range.Borders[BordersIndex.EdgeTop].LineStyle = BorderLineStyle.Thin; range.Borders[BordersIndex.EdgeLeft].LineStyle = BorderLineStyle.Thin; range.Borders[BordersIndex.EdgeRight].LineStyle = BorderLineStyle.Thin; range.Borders[BordersIndex.EdgeRight].LineStyle = BorderLineStyle.Thin; // 非同期イメージ機能が実行されるように、すべての式を計算してください。 workbook.Calculate(); // 現在のスレッドをブロックして、すべての非同期関数が完了するまで待機します。 // このメソッドが呼び出されない場合、エクスポートされたファイルに #BUSY! エラーが含まれる可能性があります。 workbook.WaitForCalculationToFinish(); // xlsx ファイルに保存 workbook.Save("ImageFunction.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook ' ネットワークリクエストプロセッサを設定するには、ユーザーによるカスタマイズが必要 GrapeCity.Documents.Excel.Workbook.WebRequestHandler = New WebRequestHandler() ' データの初期化 Dim worksheet As IWorksheet = workbook.Worksheets(0) worksheet.Range("A1:D11").Value = New Object(,) { {"識別番号", "製品", "数量", "コスト"}, {"BO87680", "ブーツ", 30, 20}, {"DR676554", "ドレス", 10, 50}, {"GL98767", "サングラス", 40, 15}, {"HA23423", "帽子", 12, 26}, {"JA87684", "ジャケット", 10, 100}, {"SH67655", "半ズボン", 19, 30}, {"SLG123", "スリッパ", 25, 8}, {"SU98762", "スーツケース", 7, 50}, {"SW3456", "水着", 15, 60}, {"TS98768", "Tシャツ", 20, 14} } worksheet.Range("E1").Value = "イメージ" ' 画像の設定 worksheet.Range("E2").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/1785/1785348.png"")" worksheet.Range("E3").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/2682/2682178.png"")" worksheet.Range("E4").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/1971/1971886.png"")" worksheet.Range("E5").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/1357/1357590.png"")" worksheet.Range("E6").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/2411/2411728.png"")" worksheet.Range("E7").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/5029/5029595.png"")" worksheet.Range("E8").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/15618/15618724.png"")" worksheet.Range("E9").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/3412/3412695.png"")" worksheet.Range("E10").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/5398/5398550.png"")" worksheet.Range("E11").Formula = "= IMAGE(""https://cdn-icons-png.flaticon.com/512/1867/1867565.png"")" ' スタイルの設定 worksheet.Range("2:11").RowHeightInPixel = 75 worksheet.Range("A:E").ColumnWidthInPixel = 80 worksheet.Range("B:B").ColumnWidthInPixel = 100 Dim range As IRange = worksheet.Range("A1:E11") Dim table As ITable = worksheet.Tables.Add(range, True) table.TableStyle = workbook.TableStyles("TableStyleMedium2") range.Borders(BordersIndex.InsideHorizontal).LineStyle = BorderLineStyle.Thin range.Borders(BordersIndex.InsideVertical).LineStyle = BorderLineStyle.Thin range.Borders(BordersIndex.EdgeTop).LineStyle = BorderLineStyle.Thin range.Borders(BordersIndex.EdgeLeft).LineStyle = BorderLineStyle.Thin range.Borders(BordersIndex.EdgeRight).LineStyle = BorderLineStyle.Thin range.Borders(BordersIndex.EdgeRight).LineStyle = BorderLineStyle.Thin ' 非同期イメージ機能が実行されるように、すべての式を計算してください。 workbook.Calculate() ' 現在のスレッドをブロックして、すべての非同期関数が完了するまで待機します。 ' このメソッドが呼び出されない場合、エクスポートされたファイルに #BUSY! エラーが含まれる可能性があります。 workbook.WaitForCalculationToFinish() ' xlsx ファイルに保存 workbook.Save("ImageFunction.xlsx")