// 新規ワークブックの作成 var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; var shape = worksheet.Shapes.AddShape(AutoShapeType.Rectangle, worksheet.Range["C2:E6"]); shape.TextFrame.TextRange.Add("こんにちは、DioDocsです。"); // テキストの方向を縦書き（半角文字含む）かつ並びを右から左に設定 shape.TextFrame.Direction = TextDirection.StackedRtl; // xlsx ファイルに保存 workbook.Save("SetShapeTextDirection.xlsx");
' 新規ワークブックの作成 Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) Dim shape As IShape = worksheet.Shapes.AddShape(AutoShapeType.Rectangle, worksheet.Range("C2:E6")) shape.TextFrame.TextRange.Add("こんにちは、DioDocsです。") ' テキストの方向を縦書き（半角文字含む）かつ並びを右から左に設定 shape.TextFrame.Direction = TextDirection.StackedRtl ' xlsx ファイルに保存 workbook.Save("SetShapeTextDirection.xlsx")