create a new page, using OOoBasic/Calc/drawings as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*図形描写 [#b852652e]
Calc で図形描写を使用してみます。図形描写のそれぞれのオブ...
ドローページへのアクセスについては[[ドローページ>../drawp...
図形描写ではさまざまなオブジェクトを描くことができます。
図形描写でドローページへ新しいシェープを追加するときには...
+ドローページオブジェクトを取得する。
+ドキュメントオブジェクトの AvailableServiceNames プロパ...
+インスタンス化したシェープオブジェクトのプロパティーを変...
+ドローページオブジェクトの ''add'' メソッドを使用してシ...
シェープは同じ種類のプロパティーを持っているので，まとめ...
様々な図形に関しては [[Draw>OOoBasic/Draw]] も参照してく...
#contents
**テキストシェープ [#hc694f2c]
テキストシェープのサービス名は com.sun.star.drawing.TextS...
位置やサイズ，テキスト以外のプロパティーを設定せずにイン...
でも，サイズや位置を指定して挿入するのが普通です。
次のコードでは Calc ドキュメントの一番目のシートにテキス...
Sub textshape_1
Dim oDoc As Object, oSheet As Object
Dim oTextShape As Object, oDrawpage As Object
Dim oText As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oTextShape = oDoc.createInstance("com.sun.star.drawing...
oText = oTextShape.getText()
aPos.X = 1500
aPos.Y = 2000
aSize.Width = 10000
aSize.Height = 1000
oTextShape.setPosition(aPos)
oTextShape.setSize(aSize)
oDrawPage.add(oTextShape)
oText.String = "text shape"
End Sub
シェープを作成する際の手順はいつも大体次のようになります。
+ドローページへアクセスできるようにしておく
+シェープのインスタンスを作成する
+サイズと位置を設定する
+ドローページへ挿入する
+シェープのプロパティーを設定する
縦書きテキストにするには，''TextWritingMode'' プロパティ...
oTextShape.TextWritingMode = com.sun.star.text.WritingMo...
を指定します。
**ラインシェープ [#u919da0f]
ラインシェープは com.sun.star.drawing.LineShape サービス...
位置やサイズを設定してドローページに追加します。
Sub lineshape
Dim oDoc As Object, oSheet As Object
Dim oDrawpage As Object
Dim oLineShape As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oLineShape = oDoc.createInstance("com.sun.star.drawing...
aPos.X = 400
aPos.Y = 500
aSize.Width = 1000
aSize.Height = 500
oLineShape.setPosition(aPos)
oLineShape.setSize(aSize)
oDrawPage.add(oLineShape)
End Sub
まず，''createnInstance'' メソッドを利用してラインシェー...
位置の設定には aPos 変数に com.sun.star.awt.Point struct ...
サイズおよび位置はすべて mm 単位の 1/100 で指定します。そ...
シェープの二点目の位置は座標で指定するのではなくて一点目...
ドローページへのシェープの追加には ''add'' メソッドを利用...
**四角形シェープ [#lf2d3cda]
長方形を描く四角形シェープは com.sun.star.drawing.Rectang...
やはり，位置やサイズを指定してドローページへ追加します。
Sub rectangleshape
Dim oDoc As Object, oSheet As Object
Dim oRectangleShape As Object, oDrawpage As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oRectangleShape = oDoc.createInstance("com.sun.star.dr...
aPos.X = 400
aPos.Y = 500
aSize.Width = 1000
aSize.Height = 500
oRectangleShape.setPosition(aPos)
oRectangleShape.setSize(aSize)
oDrawPage.add(oRectangleShape)
End Sub
位置とサイズしか指定せずに追加すると，アプリケーション上...
**円シェープ [#v82ddda3]
円シェープは com.sun.star.drawing.EllipseShape サービスを...
このサービスをインスタンス化して使用します。
oDoc.createInstance("com.sun.star.drawing.EllipseShape")
**シェープのプロパティー [#d6f49bcd]
シェープの持つプロパティーは同じなので，一度にまとめて取...
***位置 [#ta0f4457]
位置のプロパティーは ''Position'' です。このプロパティー...
この struct のプロパティーは ''X'' と ''Y'' です。1/100 m...
***サイズ [#e45bfe90]
サイズのプロパティーは ''Size'' です。com.sun.star.awt.Si...
この struct のプロパティーは ''Width'' および ''Height'' ...
End:
*図形描写 [#b852652e]
Calc で図形描写を使用してみます。図形描写のそれぞれのオブ...
ドローページへのアクセスについては[[ドローページ>../drawp...
図形描写ではさまざまなオブジェクトを描くことができます。
図形描写でドローページへ新しいシェープを追加するときには...
+ドローページオブジェクトを取得する。
+ドキュメントオブジェクトの AvailableServiceNames プロパ...
+インスタンス化したシェープオブジェクトのプロパティーを変...
+ドローページオブジェクトの ''add'' メソッドを使用してシ...
シェープは同じ種類のプロパティーを持っているので，まとめ...
様々な図形に関しては [[Draw>OOoBasic/Draw]] も参照してく...
#contents
**テキストシェープ [#hc694f2c]
テキストシェープのサービス名は com.sun.star.drawing.TextS...
位置やサイズ，テキスト以外のプロパティーを設定せずにイン...
でも，サイズや位置を指定して挿入するのが普通です。
次のコードでは Calc ドキュメントの一番目のシートにテキス...
Sub textshape_1
Dim oDoc As Object, oSheet As Object
Dim oTextShape As Object, oDrawpage As Object
Dim oText As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oTextShape = oDoc.createInstance("com.sun.star.drawing...
oText = oTextShape.getText()
aPos.X = 1500
aPos.Y = 2000
aSize.Width = 10000
aSize.Height = 1000
oTextShape.setPosition(aPos)
oTextShape.setSize(aSize)
oDrawPage.add(oTextShape)
oText.String = "text shape"
End Sub
シェープを作成する際の手順はいつも大体次のようになります。
+ドローページへアクセスできるようにしておく
+シェープのインスタンスを作成する
+サイズと位置を設定する
+ドローページへ挿入する
+シェープのプロパティーを設定する
縦書きテキストにするには，''TextWritingMode'' プロパティ...
oTextShape.TextWritingMode = com.sun.star.text.WritingMo...
を指定します。
**ラインシェープ [#u919da0f]
ラインシェープは com.sun.star.drawing.LineShape サービス...
位置やサイズを設定してドローページに追加します。
Sub lineshape
Dim oDoc As Object, oSheet As Object
Dim oDrawpage As Object
Dim oLineShape As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oLineShape = oDoc.createInstance("com.sun.star.drawing...
aPos.X = 400
aPos.Y = 500
aSize.Width = 1000
aSize.Height = 500
oLineShape.setPosition(aPos)
oLineShape.setSize(aSize)
oDrawPage.add(oLineShape)
End Sub
まず，''createnInstance'' メソッドを利用してラインシェー...
位置の設定には aPos 変数に com.sun.star.awt.Point struct ...
サイズおよび位置はすべて mm 単位の 1/100 で指定します。そ...
シェープの二点目の位置は座標で指定するのではなくて一点目...
ドローページへのシェープの追加には ''add'' メソッドを利用...
**四角形シェープ [#lf2d3cda]
長方形を描く四角形シェープは com.sun.star.drawing.Rectang...
やはり，位置やサイズを指定してドローページへ追加します。
Sub rectangleshape
Dim oDoc As Object, oSheet As Object
Dim oRectangleShape As Object, oDrawpage As Object
Dim aPos As New com.sun.star.awt.Point
Dim aSize As New com.sun.star.awt.Size
oDoc = ThisComponent
oSheet = oDoc.getSheets().getByIndex(0)
oDrawPage = oSheet.DrawPage
oRectangleShape = oDoc.createInstance("com.sun.star.dr...
aPos.X = 400
aPos.Y = 500
aSize.Width = 1000
aSize.Height = 500
oRectangleShape.setPosition(aPos)
oRectangleShape.setSize(aSize)
oDrawPage.add(oRectangleShape)
End Sub
位置とサイズしか指定せずに追加すると，アプリケーション上...
**円シェープ [#v82ddda3]
円シェープは com.sun.star.drawing.EllipseShape サービスを...
このサービスをインスタンス化して使用します。
oDoc.createInstance("com.sun.star.drawing.EllipseShape")
**シェープのプロパティー [#d6f49bcd]
シェープの持つプロパティーは同じなので，一度にまとめて取...
***位置 [#ta0f4457]
位置のプロパティーは ''Position'' です。このプロパティー...
この struct のプロパティーは ''X'' と ''Y'' です。1/100 m...
***サイズ [#e45bfe90]
サイズのプロパティーは ''Size'' です。com.sun.star.awt.Si...
この struct のプロパティーは ''Width'' および ''Height'' ...
Page:
