// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); var ws = workbook.Worksheets[0]; object[,] data = new object[,]{ {"名前", "地域", "生年月日", "血液型", "体重", "身長"}, {"伊達", "西地区", new DateTime(1968, 6, 8), "A", 67, 165}, {"上杉", "北地区", new DateTime(1972, 7, 3), "B", 62, 134}, {"最上", "西地区", new DateTime(1964, 3, 2), "O", 72, 180} }; ws.Range["A1:E4"].Value = data; ws.Range["A:E"].EntireColumn.ColumnWidth *= 1.5; ws.Range["A1:E1"].Interior.Color = System.Drawing.Color.FromArgb(68, 114, 196); ws.Range["A1:E1"].Font.Color = System.Drawing.Color.White; ws.Range["A1:E4"].Borders.Color = System.Drawing.Color.FromArgb(91, 155, 213); ws.Range["A1:E4"].Borders.LineStyle = BorderLineStyle.Thin; // リンクされた図を追加 IShape cameraPicture = ws.Shapes.AddCameraPicture("$A$1:$E$4", 398, 0, 347, 58); // リンクされた図から通常の図へ変更 cameraPicture.PictureFormat.Reference = null; // xlsx ファイルに保存 workbook.Save("CameraPictureToNormalPicture.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim ws = workbook.Worksheets(0) Dim data(,) As Object = { {"名前", "地域", "生年月日", "血液型", "体重", "身長"}, {"伊達", "西地区", #1968/6/8#, "A", 67, 165}, {"上杉", "北地区", #1972/7/3#, "B", 62, 134}, {"最上", "西地区", #1964/3/2#, "O", 72, 180} } ws.Range("A1:E4").Value = data ws.Range("A:E").EntireColumn.ColumnWidth *= 1.5 ws.Range("A1:E1").Interior.Color = System.Drawing.Color.FromArgb(68, 114, 196) ws.Range("A1:E1").Font.Color = System.Drawing.Color.White ws.Range("A1:E4").Borders.Color = System.Drawing.Color.FromArgb(91, 155, 213) ws.Range("A1:E4").Borders.LineStyle = BorderLineStyle.Thin ' リンクされた図を追加 Dim cameraPicture As IShape = ws.Shapes.AddCameraPicture("$A$1:$E$4", 398, 0, 347, 58) ' リンクされた図から通常の図へ変更 cameraPicture.PictureFormat.Reference = Nothing ' xlsx ファイルに保存 workbook.Save("CameraPictureToNormalPicture.xlsx")