// PDF ファイルストリームの作成 using FileStream outputStream = new FileStream("FormControlMapPdfFormFieldBasicUsage.pdf", FileMode.Create); // 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet ws = workbook.Worksheets["Sheet1"]; ws.Range["$B$2:$C$2"].Value = new object[,] { {"Excelのフォームコントロール", "フォームフィールドへのマッピング"} }; ws.Range["$B$4"].Value = "ドロップダウン（コンボボックス）"; ws.Range["$B$6"].Value = "リストボックス"; ws.Range["$B$11"].Value = "オプションボタン"; ws.Range["$B$14"].Value = "チェックボックス"; ws.Range["$B$2:$C$2"].Interior.ThemeColor = ThemeColor.Light2; ws.Range["$B$4"].VerticalAlignment = VerticalAlignment.Center; ws.Range["$B$14"].VerticalAlignment = VerticalAlignment.Center; ws.Range["$4:$4,$14:$14"].RowHeight = 18.6d; ws.Range["$11:$11"].RowHeight = 15.6d; ws.Range["$12:$12"].RowHeight = 26.4d; ws.Range["$B:$B"].ColumnWidthInPixel = 243d; ws.Range["$C:$C"].ColumnWidthInPixel = 321d; var ctl1 = ws.Controls.AddDropDown(256, 55.6, 141, 16.79); ctl1.Items.Add(new DropDownItem("Item 1")); ctl1.Items.Add(new DropDownItem("Item 2")); ctl1.Items.Add(new DropDownItem("Item 3")); ctl1.SelectedIndex = 0; var ctl2 = ws.Controls.AddListBox(256, 95.39, 140.4, 55.8); ctl2.Items.Add(new ListBoxItem("Item 1")); ctl2.Items.Add(new ListBoxItem("Item 2")); ctl2.Items.Add(new ListBoxItem("Item 3")); var ctl3 = ws.Controls.AddOptionButton(255, 178.4, 101.4, 17.39); ctl3.Text = "オプションボタン 1"; var ctl4 = ws.Controls.AddOptionButton(255, 200.2, 101.4, 16.80); ctl4.Text = "オプションボタン 2"; var ctl5 = ws.Controls.AddCheckBox(256, 246.79, 88.2, 16.80); ctl5.Text = "チェックボックス 1"; workbook.Save(outputStream, new PdfSaveOptions { FormFields = true });
' PDF ファイルストリームの作成 Dim outputStream = File.Create("FormControlMapPdfFormFieldBasicUsage.pdf") ' 新規ワークブックの作成 Dim workbook As New Workbook Dim ws As IWorksheet = workbook.Worksheets("Sheet1") ws.Range("$B$2:$C$2").Value = New Object(,) { {"Excelのフォームコントロール", "フォームフィールドへのマッピング"} } ws.Range("$B$4").Value = "ドロップダウン（コンボボックス）" ws.Range("$B$6").Value = "リストボックス" ws.Range("$B$11").Value = "オプションボタン" ws.Range("$B$14").Value = "チェックボックス" ws.Range("$B$2:$C$2").Interior.ThemeColor = ThemeColor.Light2 ws.Range("$B$4").VerticalAlignment = VerticalAlignment.Center ws.Range("$B$14").VerticalAlignment = VerticalAlignment.Center ws.Range("$4:$4,$14:$14").RowHeight = 18.6R ws.Range("$11:$11").RowHeight = 15.6R ws.Range("$12:$12").RowHeight = 26.4R ws.Range("$B:$B").ColumnWidthInPixel = 243.0R ws.Range("$C:$C").ColumnWidthInPixel = 321.0R Dim ctl1 = ws.Controls.AddDropDown(256, 55.6, 141, 16.79) With ctl1.Items .Add(New DropDownItem("Item 1")) .Add(New DropDownItem("Item 2")) .Add(New DropDownItem("Item 3")) End With ctl1.SelectedIndex = 0 Dim ctl2 = ws.Controls.AddListBox(256, 95.39, 140.4, 55.8) With ctl2.Items .Add(New ListBoxItem("Item 1")) .Add(New ListBoxItem("Item 2")) .Add(New ListBoxItem("Item 3")) End With Dim ctl3 = ws.Controls.AddOptionButton(255, 178.4, 101.4, 17.39) ctl3.Text = "オプションボタン 1" Dim ctl4 = ws.Controls.AddOptionButton(255, 200.2, 101.4, 16.8) ctl4.Text = "オプションボタン 2" Dim ctl5 = ws.Controls.AddCheckBox(256, 246.79, 88.2, 16.8) ctl5.Text = "チェックボックス 1" workbook.Save(outputStream, New PdfSaveOptions With {.FormFields = True})