XY散布図で線を消したい。消す方法は?

スプレッドシート (Calc) について

XY散布図で線を消したい。消す方法は?

投稿記事by arai_kiyoshi » 1月 24th, 2014, 11:37 pm

以下の様なマクロでデータ系列を作り、別シートにチャートを作り、そのチャートを散布図に
すると、線付プロット付になる。
これをプロット無しにすることは出来るが、色々と検索したが、線を無しにする方法が
見つけられなかった。
どなたか、線を消す方法を教えて下さい。

マクロは以下の通りです。動くマクロ入りファイルを添付します。

Sub draw_data()
Dim N As Long, i As Long
Dim x As Double, dx As Double
Dim aChart AS object

N = 10
x = 0
dx = 3.14 * 2 / N

' データ作成部

For i = 0 To N - 1
ThisComponent.Sheets(0).getCellByPosition(0, i).Value = x
ThisComponent.Sheets(0).getCellByPosition(1, i).Value = Sin(x)
x = x + dx
Next i


Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress
ThisComponent.Sheets.insertNewByName("chart",0)


' グラフ位置
Rect.X = 1000
Rect.Y = 1000
' グラフサイズ
Rect.Width = 10000
Rect.Height = 7000

RangeAddress(0).Sheet = 1
RangeAddress(0).StartColumn = 0
RangeAddress(0).StartRow = 0
RangeAddress(0).EndColumn = 1
RangeAddress(0).EndRow = N - 1

aChart=ThisComponent.Sheets(0).Charts

aChart.addNewByName("datagraph", Rect, RangeAddress(), False, False)


' 各系列の名前(凡例に用いられる)
' aChart.getByName("datagraph").embeddedObject().Data.setColumnDescriptions(Array("x","sin(x)")

' 散布図を選択
aChart.getByName("datagraph").embeddedObject.Diagram _
= aChart.getByName("datagraph").embeddedObject.createInstance("com.sun.star.chart.XYDiagram")

' データポイントなし
aChart.getByName("datagraph").embeddedObject.Diagram.SymbolType =-3 ' no points

' 一本目の系列(sin(x))を青にして太く
aChart.getByName("datagraph").embeddedObject.Diagram.getDataRowProperties(1).LineColor = RGB(0,150,50)
aChart.getByName("datagraph").embeddedObject.Diagram.getDataRowProperties(1).LineWidth = 0


End Sub
添付ファイル
test2.ods
(14.05 KiB) ダウンロード数: 98 回
OpenOffice 4.0.11
Windows7 SP1 32bit
arai_kiyoshi
 
記事: 8
登録日時: 1月 8th, 2014, 5:31 pm

Re: XY散布図で線を消したい。消す方法は?

投稿記事by ike@九州 » 1月 25th, 2014, 2:16 pm

以下で可能でしょうか?
aChart.getByName("datagraph").embeddedObject.Diagram.getDataRowProperties(1).lines = false

調べるには はにゃ?さんの MRI を使うのが吉です
http://extensions.openoffice.org/en/project/MRI

以下も参照
http://www.openoffice.org/api/docs/comm ... dex-1.html
ike@九州
 
記事: 33
登録日時: 4月 30th, 2009, 9:05 am

Re: XY散布図で線を消したい。消す方法は?

投稿記事by arai_kiyoshi » 1月 25th, 2014, 7:28 pm

ありがとうございます。
消せました。
感謝!

MRI についてもインストールはしたのですが、今一つ使い方が良く分かりません。
もう少し自分で使い方を調べてどうしようも無くなったら、別テーマとしてお聞きするかもしれません
OOoBASICは色々な処に情報が散らばっている印象ですが、頑張ります。

情報をありがとうございます。
OpenOffice 4.0.11
Windows7 SP1 32bit
arai_kiyoshi
 
記事: 8
登録日時: 1月 8th, 2014, 5:31 pm


Return to Calc

オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[5人]