MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集 > リボンコントロール > コマンドを実行する |
リボンコントロールのボタンはコマンドという形で管理されており、ボタンの押下時はコマンドが実行されます。また、ExecuteCommand関数を使用してコードからコマンドを実行できます。
以下のサンプルではセルにテストデータを設定した後にセル範囲を選択して、コマンドでフォント名とフォントサイズを設定しています。
private void Form1_Load(object sender, EventArgs e) { // リボンコントロールとSPREADコントロールを関連付けます ribbonBar1.Attach(fpSpread1); // テストデータを設定します fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 0].Value = "名前"; fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 1].Value = "性別"; fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 2].Value = "報酬"; fpSpread1.AsWorkbook().ActiveSheet.Cells[0, 3].Value = "職業"; fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 0].Value = "佐藤"; fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 1].Value = "男"; fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 2].Value = 300000; fpSpread1.AsWorkbook().ActiveSheet.Cells[1, 3].Value = "教師"; fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 0].Value = "高橋"; fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 1].Value = "男"; fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 2].Value = 300000; fpSpread1.AsWorkbook().ActiveSheet.Cells[2, 3].Value = "エンジニア"; fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 0].Value = "木村"; fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 1].Value = "女"; fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 2].Value = 320000; fpSpread1.AsWorkbook().ActiveSheet.Cells[3, 3].Value = "教師"; fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 0].Value = "高山"; fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 1].Value = "女"; fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 2].Value = 270000; fpSpread1.AsWorkbook().ActiveSheet.Cells[4, 3].Value = "会計士"; // データ領域を選択します fpSpread1.AsWorkbook().ActiveSheet.Cells["A1:D5"].Select(); // コマンドを使用してフォント名とフォントサイズを変更します ribbonBar1.ExecuteCommand("FontName", "メイリオ"); ribbonBar1.ExecuteCommand("FontSize", 10); }
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' リボンコントロールとSPREADコントロールを関連付けます RibbonBar1.Attach(FpSpread1) ' テストデータを設定します FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 0).Value = "名前" FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 1).Value = "性別" FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 2).Value = "報酬" FpSpread1.AsWorkbook().ActiveSheet.Cells(0, 3).Value = "職業" FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 0).Value = "佐藤" FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 1).Value = "男" FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 2).Value = 300000 FpSpread1.AsWorkbook().ActiveSheet.Cells(1, 3).Value = "教師" FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 0).Value = "高橋" FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 1).Value = "男" FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 2).Value = 300000 FpSpread1.AsWorkbook().ActiveSheet.Cells(2, 3).Value = "エンジニア" FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 0).Value = "木村" FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 1).Value = "女" FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 2).Value = 320000 FpSpread1.AsWorkbook().ActiveSheet.Cells(3, 3).Value = "教師" FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 0).Value = "高山" FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 1).Value = "女" FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 2).Value = 270000 FpSpread1.AsWorkbook().ActiveSheet.Cells(4, 3).Value = "会計士" ' データ領域を選択します FpSpread1.AsWorkbook().ActiveSheet.Cells("A1:D5").Select() ' コマンドを使用してフォント名とフォントサイズを変更します RibbonBar1.ExecuteCommand("FontName", "メイリオ") RibbonBar1.ExecuteCommand("FontSize", 10) End Sub