// 文字列、重要度、リンク先を定義する文字配列を作成します。
string[] text = { "MESCIUS", "SPREAD", "ActiveReports", "Wjimo", "Forguncy", "Google", "Microsoft" };
string[] weight = { "200", "160", "60", "40", "80", "115", "135" };
string[] href = { "https://developer.mescius.jp/", "https://developer.mescius.jp/spread", "https://developer.mescius.jp/activereports", "https://developer.mescius.jp/wijmo", "http://www.forguncy.com/", "http://www.google.com", "http://www.microsoft.com" };
// タグクラウド型セルを生成し、セルに割り当てます。
FarPoint.Web.Spread.TagCloudCellType tagger = new FarPoint.Web.Spread.TagCloudCellType();
tagger.BackColor = System.Drawing.Color.Empty;
tagger.RankingColors = new string[] { "Red", "Orange", "Pink", "Cyan", "Purple", "Blue", "Green"};
tagger.HoverColor = "Yellow";
tagger.SortOrder = FarPoint.Web.Spread.SortOrder.TextAscending;
FpSpread1.ActiveSheetView.Cells[0, 0].CellType = tagger;
// ConvertToTagCouldItems メソッドによりタグ文字列コレクションを作成します。
FpSpread1.ActiveSheetView.Cells[0, 0].Value = FarPoint.Web.Spread.TagCloudCellType.ConvertToTagCloudItems(text, weight, href);
FpSpread1.ActiveSheetView.Columns[0, 0].Width = 200;
FpSpread1.ActiveSheetView.Rows[0, 0].Height = 120;
' 文字列、重要度、リンク先を定義する文字配列を作成します。
Dim text As String() = { "MESCIUS", "SPREAD", "ActiveReports", "Wjimo", "Forguncy", "Google", "Microsoft" }
Dim weight As String() = { "200", "160", "60", "40", "80", "115", "135" }
Dim href As String() = { "https://developer.mescius.jp/", "https://developer.mescius.jp/spread", "https://developer.mescius.jp/activereports", "https://developer.mescius.jp/wijmo", "http://www.forguncy.com/", "http://www.google.com", "http://www.microsoft.com" }
' タグクラウド型セルを生成し、セルに割り当てます。
Dim tagger As New FarPoint.Web.Spread.TagCloudCellType()
tagger.BackColor = System.Drawing.Color.Empty
tagger.RankingColors = New string() { "Red", "Orange", "Pink", "Cyan", "Purple", "Blue", "Green"}
tagger.HoverColor = "Yellow"
tagger.SortOrder = FarPoint.Web.Spread.SortOrder.TextAscending
FpSpread1.Cells(0, 0).CellType = tagger
' ConvertToTagCouldItems メソッドによりタグ文字列コレクションを作成します。
FpSpread1.Cells(0, 0).Value = FarPoint.Web.Spread.TagCloudCellType.ConvertToTagCloudItems(text, weight, href)
FpSpread1.Sheets(0).Columns(0, 0).Width = 200
FpSpread1.Sheets(0).Rows(0, 0).Height = 120