create a new page, using OOoBasic/Writer/Charts as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
*チャート [#o6989056]
Writer に挿入するチャートは埋め込み型オブジェクトです。
Calc にチャートを挿入するときと違い、データをチャートのデ...
次のコードは以下のような手順で行っています。
+チャートを埋め込み型オブジェクトとして挿入
+積み上げパーセント表示のチャートに変更
+データを設定
+データ系列ラベルの設定
+チャートタイトルの設定
Sub chart_1
oDoc = ThisComponent
oText = oDoc.getText()
oEmbeded = oDoc.createInstance("com.sun.star.text.Text...
oEmbeded.CLSID = "12DCAE26-281F-416F-a234-c3086127382e"
aSize = CreateUnoStruct("com.sun.star.awt.Size")
aSize.Width = 8000
aSize.Height = 7000
oEmbeded.setSize(aSize)
oCursor = oText.createTextCursor()
oEnd = oText.getEnd()
oText.insertTextContent(oEnd,oEmbeded,False)
oChart = oEmbeded.Model
oDiagram = oChart.createInstance("com.sun.star.chart.S...
oChart.setDiagram(oDiagram)
oDiagram = oChart.getDiagram()
With oDiagram
.Stacked = True
.Percent = True
.Vertical = True
End With
oData = oChart.getData()
Dim nData(1,3) As Double
nData(0,0) = 40.0
nData(0,1) = 25.0
nData(0,2) = 18.0
nData(0,3) = 17.0
nData(1,0) = 35.0
nData(1,1) = 35.0
nData(1,2) = 15.0
nData(1,3) = 15.0
oData.setData(nData)
oData.setRowDescriptions( _
Array("Data 1", "Data 2"))
oData.setColumnDescriptions( _
Array("A", "B", "C", "D"))
oChart.HasMainTitle = True
oTitle = oChart.Title
oTitle.String = "Chart Title"
End Sub
End:
*チャート [#o6989056]
Writer に挿入するチャートは埋め込み型オブジェクトです。
Calc にチャートを挿入するときと違い、データをチャートのデ...
次のコードは以下のような手順で行っています。
+チャートを埋め込み型オブジェクトとして挿入
+積み上げパーセント表示のチャートに変更
+データを設定
+データ系列ラベルの設定
+チャートタイトルの設定
Sub chart_1
oDoc = ThisComponent
oText = oDoc.getText()
oEmbeded = oDoc.createInstance("com.sun.star.text.Text...
oEmbeded.CLSID = "12DCAE26-281F-416F-a234-c3086127382e"
aSize = CreateUnoStruct("com.sun.star.awt.Size")
aSize.Width = 8000
aSize.Height = 7000
oEmbeded.setSize(aSize)
oCursor = oText.createTextCursor()
oEnd = oText.getEnd()
oText.insertTextContent(oEnd,oEmbeded,False)
oChart = oEmbeded.Model
oDiagram = oChart.createInstance("com.sun.star.chart.S...
oChart.setDiagram(oDiagram)
oDiagram = oChart.getDiagram()
With oDiagram
.Stacked = True
.Percent = True
.Vertical = True
End With
oData = oChart.getData()
Dim nData(1,3) As Double
nData(0,0) = 40.0
nData(0,1) = 25.0
nData(0,2) = 18.0
nData(0,3) = 17.0
nData(1,0) = 35.0
nData(1,1) = 35.0
nData(1,2) = 15.0
nData(1,3) = 15.0
oData.setData(nData)
oData.setRowDescriptions( _
Array("Data 1", "Data 2"))
oData.setColumnDescriptions( _
Array("A", "B", "C", "D"))
oChart.HasMainTitle = True
oTitle = oChart.Title
oTitle.String = "Chart Title"
End Sub
Page:
