private void btnSpread_Click(Object sender, System.EventArgs e) { //ワークブックの次元をし、シートコレクションにシートを追加します。 GrapeCity.SpreadBuilder.Workbook sb = new GrapeCity.SpreadBuilder.Workbook(); sb.Sheets.AddNew(); //列、行またはセルに対してプロパティまたは値を設定します。 sb.Sheets[0].Name = "Customer Call List"; sb.Sheets[0].Columns(0).Width = 2 * 1440; sb.Sheets[0].Columns(1).Width = 1440; sb.Sheets[0].Columns(2).Width = 1440; sb.Sheets[0].Rows(0).Height = 1440/4; //ヘッダ行 sb.Sheets[0].Cell(0,0).SetValue("Company Name"); sb.Sheets[0].Cell(0,0).FontBold = true; sb.Sheets[0].Cell(0,1).SetValue("Contact Name"); sb.Sheets[0].Cell(0,1).FontBold = true; sb.Sheets[0].Cell(0,2).SetValue("Phone"); sb.Sheets[0].Cell(0,2).FontBold = true; //データの最初行 sb.Sheets[0].Cell(1,0).SetValue("GrapeCity"); sb.Sheets[0].Cell(1,1).SetValue("Mortimer"); sb.Sheets[0].Cell(1,2).SetValue("(614) 895-3142"); GrapeCity.SpreadBuilder.Imaging.LineInfo l = new GrapeCity.SpreadBuilder.Imaging.LineInfo(); l.ColumnLeft = 3; //線の開始列 l.Color = System.Drawing.Color.Salmon; //線の色 l.ColumnRight = 8; //線の終了列 l.dxL = 50; l.dxR = 60; l.dyB = 80; l.dyT = 10; l.EndAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long; //最後の矢印の長さ l.EndAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen; //最後の矢印のスタイル l.EndAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide; //最後の矢印の幅 l.fAuto = true; l.iQu = GrapeCity.SpreadBuilder.Imaging.ObjectDirection.UpperLeftToLowerRight; //線の方向 l.MoveType = GrapeCity.SpreadBuilder.Imaging.SBFloatingMoveType.MoveSize; //ユーザーが線を移動またはリサイズできるかを設定する l.RowBottom = 8; //線の最後の行 l.RowTop = 1; //線の最初の行 l.StartAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long; //最初の矢印の長さ l.StartAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen; //最初の矢印のスタイル l.StartAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide; l.Style = GrapeCity.SpreadBuilder.Imaging.LineStyles.Dash; //線のスタイル l.Weight = 5; //線の太さ sb.Sheets[0].AddLine(l); //ワークブックをExcelファイルで保存する sb.Save (Application.StartupPath + @"\x.xls"); MessageBox.Show("Your Spreadsheet, " + sb.Sheets[0].Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\\x.xls"); }
Private Sub btnSpread_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpread.Click 'ワークブックの次元をし、シートコレクションにシートを追加します。 Dim sb As New GrapeCity.SpreadBuilder.Workbook sb.Sheets.AddNew() '列、行またはセルに対してプロパティまたは値を設定します。 With sb.Sheets(0) .Name = "Customer Call List" .Columns(0).Width = 2 * 1440 .Columns(1).Width = 1440 .Columns(2).Width = 1440 .Rows(0).Height = 1440 / 4 .Rows(0).AutoSize = False 'ヘッダ行 .Cell(0, 0).SetValue("Company Name") .Cell(0, 0).FontBold = True .Cell(0, 1).SetValue("Contact Name") .Cell(0, 1).FontBold = True .Cell(0, 2).SetValue("Phone") .Cell(0, 2).FontBold = True 'データの最初行 .Cell(1, 0).SetValue("Data Dynamics") .Cell(1, 1).SetValue("Mortimer") .Cell(1, 2).SetValue("(614) 895-3142") End With Dim l As New GrapeCity.SpreadBuilder.Imaging.LineInfo With l .colL = 3 '線の開始列 .Color = System.Drawing.Color.Salmon '線の色 .colR = 8 '線の終了列 .dxL = 50 .dxR = 60 .dyB = 80 .dyT = 10 .EndAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long '最後の矢印の長さ .EndAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen '最後の矢印のスタイル .EndAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide '最後の矢印の幅 .fAuto = True .iQu = GrapeCity.SpreadBuilder.Imaging.ObjectDirection.UpperLeftToLowerRight '線の方向 .MoveType = GrapeCity.SpreadBuilder.Imaging.SBFloatingMoveType.MoveSize 'ユーザーが線を移動またはリサイズできるかを設定する .rwB = 8 'bottom row for the line .rwT = 1 'top row for the line .StartAHLength = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadLengths.Long '最初の矢印の長さ .StartAHStyle = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadStyles.DoubleEndedOpen '最初の矢印のスタイル .StartAHWidth = GrapeCity.SpreadBuilder.Imaging.LineArrowHeadWidths.Wide .Style = GrapeCity.SpreadBuilder.Imaging.LineStyles.Dash '線のスタイル .Weight = 5 '線の太さ End With sb.Sheets(0).AddLine(l) 'ワークブックをExcelファイルで保存する sb.Save(Application.StartupPath & "\x.xls") MessageBox.Show("Your Spreadsheet, " + sb.Sheets[0].Columns(0).OwnerSheet.Name + ", has been saved to " + Application.StartupPath + "\\x.xls"); End sub
System.Object
GrapeCity.SpreadBuilder.Imaging.LineInfo