// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; // 図形を追加 IShape shape1 = worksheet.Shapes.AddShape(AutoShapeType.Rectangle, 10, 0, 100, 100); shape1.TextFrame.TextRange.Add("Google Web サイトを開く"); IShape shape2 = worksheet.Shapes.AddShape(AutoShapeType.RightArrow, 10, 120, 100, 100); shape2.TextFrame.TextRange.Add("Sheet1 の C3:E4 に移動"); IShape shape3 = worksheet.Shapes.AddShape(AutoShapeType.Oval, 10, 240, 100, 100); shape3.TextFrame.TextRange.Add("営業部にメール"); IShape shape4 = worksheet.Shapes.AddShape(AutoShapeType.LeftArrow, 10, 360, 100, 100); shape4.TextFrame.TextRange.Add("外部の.xlsxファイルにリンク"); // Web ページにリンクするハイパーリンクを追加 worksheet.Hyperlinks.Add(shape1, "https://www.google.com/", null, "Google Web サイトを開きます", "Google"); // このドキュメントの範囲にリンクするハイパーリンクを追加 worksheet.Hyperlinks.Add(shape2, null, "Sheet1!$C$3:$E$4", "Sheet1 の C3:E4 に移動します"); // Email アドレスにリンクするハイパーリンクを追加 worksheet.Hyperlinks.Add(shape3, "mailto:sales@mescius.com", null, "営業部にメールを送信します", "営業部にメールを送信します"); // 外部ファイルにリンクするハイパーリンクを追加 // メモ：実際のファイルの位置に合わせてパスを変更してください string path = "external.xlsx"; worksheet.Hyperlinks.Add(shape4, path, null, "外部の.xlsxファイルにリンクします", "External.xlsx"); // xlsx ファイルに保存 workbook.Save("CreateShapeWithHyperlink.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) ' 図形を追加 Dim shape1 As IShape = worksheet.Shapes.AddShape(AutoShapeType.Rectangle, 10, 0, 100, 100) shape1.TextFrame.TextRange.Add("Google Web サイトを開く") Dim shape2 As IShape = worksheet.Shapes.AddShape(AutoShapeType.RightArrow, 10, 120, 100, 100) shape2.TextFrame.TextRange.Add("Sheet1 の C3:E4 に移動") Dim shape3 As IShape = worksheet.Shapes.AddShape(AutoShapeType.Oval, 10, 240, 100, 100) shape3.TextFrame.TextRange.Add("営業部にメール") Dim shape4 As IShape = worksheet.Shapes.AddShape(AutoShapeType.LeftArrow, 10, 360, 100, 100) shape4.TextFrame.TextRange.Add("外部の.xlsxファイルにリンク") With worksheet.Hyperlinks ' Web ページにリンクするハイパーリンクを追加 .Add(shape1, "https://www.google.com/", Nothing, "Google Web サイトを開きます", "Google") ' このドキュメントの範囲にリンクするハイパーリンクを追加 .Add(shape2, Nothing, "Sheet1!$C$3:$E$4", "Sheet1 の C3:E4 に移動します") ' Email アドレスにリンクするハイパーリンクを追加 .Add(shape3, "mailto:sales@mescius.com", Nothing, "営業部にメールを送信します", "営業部にメールを送信します") ' 外部ファイルにリンクするハイパーリンクを追加 ' メモ：実際のファイルの位置に合わせてパスを変更してください .Add(shape4, address:="external.xlsx", screenTip:="外部の.xlsxファイルにリンクします", textToDisplay:="External.xlsx") End With ' xlsx ファイルに保存 workbook.Save("CreateShapeWithHyperlink.xlsx")