MESCIUS SPREAD for Windows Forms 15.0J
セルにハイパーリンクの追加

セルにハイパーリンクを追加することで、他の場所にある関連情報にアクセスできます。SPREAD for Windows Formsでハイパーリンクを追加して以下を実現できます。

ハイパーリンクの追加

IWorksheet.Hyperlinks.AddIRange.Hyperlinks.Addメソッドのそれぞれを使用してシートまたは範囲にハイパーリンクを追加できます。

次のサンプルコードは、ハイパーリンクを追加して、ワークブック範囲、ウェブページやメールアドレスにアクセスする方法を示します。

C#
コードのコピー
// 範囲位置へのハイパーリンク
  fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてA1に移行", "セルA1に移行");

// ウェブURLへのハイパーリンク
   fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B5", "https://www.grapecity.co.jp/developer", "", "GrapeCityウェブサイトに移行", "GrapeCityウェブサイト");

// メールアドレスへのハイパーリンク
   fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B7", "mailto:spread.support@grapecity.com?subject=spread.support", "", "Spreadサポートにメール送信", "メール: Spreadサポート");

VB
コードのコピー
' 範囲位置へのハイパーリンク
fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてA1に移行", "セルA1に移行")

' ウェブURLへのハイパーリンク
fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B5", "https://www.grapecity.co.jp/developer", "", "GrapeCityウェブサイトに移行", "GrapeCityウェブサイト")
' メールアドレスへのハイパーリンク

fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B7", "mailto:spread.support@grapecity.com?subject=spread.support", "", "Spreadサポートにメール送信", "メール: Spreadサポート")
ハイパーリンクを追加したセルに他のハイパーリンクを設定すると、古いリンクが新しいリンクで置き換えられます。

次のサンプルコードは、ハイパーリンクのデフォルト動作を無効に設定してカスタム操作を実行する方法を示します。

C#
コードのコピー
// カスタム操作へのハイパーリンク
fpSpread1.HyperLinkClicked += FpSpread1_HyperLinkClicked;
 private void FpSpread1_HyperLinkClicked(object sender, HyperLinkClickedEventArgs e)
{
  // e.Linkをnullに設定してデフォルト動作を無効にします。
  e.Link = null;
}

VB
コードのコピー
'カスタム操作へのハイパーリンク
fpSpread1.HyperLinkClicked += AddressOf FpSpread1_HyperLinkClicked
Private Sub FpSpread1_HyperLinkClicked(ByVal sender As Object, ByVal e As HyperLinkClickedEventArgs)
    e.Link = Nothing
End Sub

次のサンプルコードは、組み込みの「ハイパーリンクの挿入」ダイアログを表示する方法を示します。

C#
コードのコピー
// ハイパーリンクフォームを表示します。
HyperlinkForm form = new HyperlinkForm(fpSpread1.AsWorkbook().ActiveSheet);
form.ShowDialog();

VB
コードのコピー
' ハイパーリンクフォームを表示します。
Dim form As HyperlinkForm = New HyperlinkForm(fpSpread1.AsWorkbook().ActiveSheet)
form.ShowDialog()

ハイパーリンクの編集ダイアログ

ハイパーリンクの自動的作成

リンクのような文字列値を入力して自動的にハイパーリンクに変換するには、AutoCreateHyperlinkプロパティをtrueに設定します。

C#
コードのコピー
fpSpread1.Features.AutoCreateHyperlink = true;
 //リンクのような文字列値を入力すると、自動的にハイパーリンクに変換します。

VB
コードのコピー
fpSpread1.Features.AutoCreateHyperlink = True
'リンクのような文字列値を入力すると、自動的にハイパーリンクに変換します。

ハイパーリンクの編集

IWorksheet.Hyperlinks[index]IRange.Hyperlinks[index]オブジェクトのそれぞれに設定を変更してシートや範囲内にハイパーリンクを編集できます。

次のサンプルコードは、セルB3 のハイパーリンクを編集する方法を示します。

C#
コードのコピー
// リンクを編集します。
fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてセルA1に移行", "セルA1に移行");
GrapeCity.Spreadsheet.IHyperlink hpl = fpSpread1.AsWorkbook().ActiveSheet.Cells["B3"].Hyperlinks[0];
hpl.SubAddress = "Sheet1!A2";
hpl.TextToDisplay = "セルA2に移行";
hpl.ScreenTip = "クリックしてセルA2に移行";

VB
コードのコピー
 ' リンクを編集します。
 fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてセルA1に移行", "セルA1に移行")
 Dim hpl As GrapeCity.Spreadsheet.IHyperlink = fpSpread1.AsWorkbook().ActiveSheet.Cells("B3").Hyperlinks(0)
 hpl.SubAddress = "Sheet1!A2"
 hpl.TextToDisplay = "セルA2に移行"
 hpl.ScreenTip = "クリックしてセルA2に移行"


ハイパーリンクの削除

IWorksheet.Hyperlinks [index] .DeleteまたはIRange.Hyperlinks [index] .Deleteメソッドを使用して、セルテキストを保持したままハイパーリンクを削除できます。IWorksheet.Hyperlinks.DeleteまたはIRange.Hyperlinks.Deleteメソッドを使用することでシートや範囲内のすべてのリンクを一気に削除できます。

次のサンプルコードは、セルB3のハイパーリンクを削除する方法を示します。

C#
コードのコピー
// リンクを削除します。
fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてセルA1に移行", "セルA1に移行");
fpSpread1.AsWorkbook().ActiveSheet.Cells["B3"].Hyperlinks[0].Delete();

VB
コードのコピー
' リンクを削除します。
fpSpread1.AsWorkbook().ActiveSheet.Hyperlinks.Add("B3", "", "Sheet1!A1", "クリックしてセルA1に移行", "セルA1に移行")
fpSpread1.AsWorkbook().ActiveSheet.Cells("B3").Hyperlinks(0).Delete()


ハイパーリンクスタイルの設定

デフォルトでは、組み込みのハイパーリンクスタイルが一緒に追加されます。リンクをクリックすると、リンクのテキストがFollowedHyperlinkスタイルの前景色でペイントされます。ただし、HyperlinkおよびFollowedHyperlinkの組み込みスタイルの設定を変更することにより、ハイパーリンクスタイルをカスタマイズできます。

次のサンプルコードは、組み込みハイパーリンクスタイルを変更する方法を示します。

C#
コードのコピー
// HyperlinkおよびFollowedHyperlinkの組み込みスタイルの設定を変更します。
fpSpread1.AsWorkbook().Styles[GrapeCity.Spreadsheet.BuiltInStyle.Hyperlink].Font.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Red);
fpSpread1.AsWorkbook().Styles[GrapeCity.Spreadsheet.BuiltInStyle.FollowedHyperlink].Font.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Cyan);

VB
コードのコピー
' HyperlinkおよびFollowedHyperlinkの組み込みスタイルの設定を変更します。
    fpSpread1.AsWorkbook().Styles(GrapeCity.Spreadsheet.BuiltInStyle.Hyperlink).Font.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Red)
    fpSpread1.AsWorkbook().Styles(GrapeCity.Spreadsheet.BuiltInStyle.FollowedHyperlink).Font.Color = GrapeCity.Spreadsheet.Color.FromKnownColor(GrapeCity.Core.KnownColor.Cyan)

UI動作

UI操作でハイパーリンクが次の動作を表示します。

制限

参照

 

 


© MESCIUS inc. All rights reserved.