質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

0回答

327閲覧

calcのデータプロットエリアの位置、サイズのマクロについて

Morita

総合スコア2

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2019/08/13 11:49

編集2022/01/12 10:55

グラフのデータプロット領域(目盛等を除いたエッセンシャルな部分)のサイズがわかりませんでした。下記のマクロではエラーになったので、rem文にしました。正しいマクロを教えて下さい。VBAではcells(2,2)=ActiveSheet.ChartObjects(1).Chart.PlotArea.InsideHeightに相当すると思います。

Option VBASupport 1

Sub Calculate()
Dim Rect As New com.sun.star.awt.Rectangle
Dim RangeAddress(0) As New com.sun.star.table.CellRangeAddress

' 図領域位置
Rect.X = 5000
Rect.Y = 5000
' 図領域サイズ
Rect.Width = 10000
Rect.Height = 10000

ThisComponent.Sheets(0).Charts.addNewByName("datagraph", Rect, RangeAddress(), False, False)

' 散布図
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram _
= ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.createInstance("com.sun.star.chart.XYDiagram")

rem cells(1,1)=ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.height

' x 軸スケール
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.Min = 0
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.Max = 50
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.XAxis.StepMain = 10

' y 軸スケール
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.YAxis.Min = 0
ThisComponent.Sheets(0).Charts.getByName("datagraph").embeddedObject.Diagram.YAxis.Max = 20

End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問