使用libreoffice basic调整和修改所选图表的大小

编程问答 2022-06-07

问题描述

我正在用libreoffice basic编写宏，以修改电子表格中选定（仅选定）图表的样式和大小。 经过大量文档阅读和多次尝试之后，我设法部分解决了我的问题：

修改所有图表样式

我设法通过其索引选择一个图表，并使用此宏修改其样式：

(a && (b || !a)) == (a && b)

问题：所选图表不适用于该图表，我无法调整其大小。方法Sub ModifyChart Dim odoc As Object Dim oChart As Object Dim aSize as new com.sun.star.awt.Size oSheet = ThisComponent.sheets(0) oCharts = oSheet.getCharts() oChart = oCharts.getByIndex(0).getEmbeddedobject() MsgBox oChart.ImplementationName oChart.Title.String = "My title" oChart.Title.CharColor = RGB(0,200) oChart.Title.CharFontName = "Arial" oChart.Title.CharHeight = 16 oChart.SubTitle.String = "My subtitle" oChart.SubTitle.CharColor = RGB(0,200) oChart.SubTitle.CharFontName = "Arial" oChart.SubTitle.CharHeight = 12 oChart.Diagram.Wall.FillStyle = com.sun.star.drawing.FillStyle.soLID oChart.Diagram.Wall.FillColor = RGB(200,50,150) oChart.Area.FillStyle = com.sun.star.drawing.FillStyle.soLID oChart.Area.FillColor = RGB(100,250) aSize.Width=640 aSize.Height=400 oChart.setsize(aSize) ' Error occur at this point End Sub 对这种对象不起作用。我试图获取图表的父对象（框架或形状），但没有成功。

使用setsize，我发现对象是ImplementationName

修改所选图表大小

我设法通过使用此宏修改了所选图表的大小

com.sun.star.comp.sc.scshapeobj

问题：我无法访问图表的其他样式。我试图找到一种获取对象内容而没有成功的方法。我还尝试使用Sub ResizeChart Dim oCurrSel As Object Dim oItem As Object Dim aSize As New com.sun.star.awt.Size oCurrSel = ThisComponent.getCurrentSelection() oItem = oCurrSel.getByIndex(0) MsgBox oItem.ImplementationName aSize.width=16000 aSize.height=12000 oItem.setsize(aSize) End Sub 和oItem.dbg_properties研究对象，但没有发现任何有用的东西。

使用oItem.dbg_methods，我发现对象是ImplementationName

我看过libreoffice api，但没有发现这两种对象是如何连接的。

是否可以使用libreoffice basic实现我想要的功能？

有人可以向我解释libreoffice图表对象（父母，孩子，...）的层次结构以及如何处理吗？

解决方法

是的，您绝对正确-解析当前选择不是一件容易的事。

由于当前选择可能包含各种对象-Cell，CellRange，SheetCellRanges，Shape，ShapeCollection，GraphicObjectShape，甚至在某些情况下还只是Text，因此解析变得类似于游戏“ Miner”-每个下一步都需要进行其他检查（或在On Error Resume Next的帮助下“盲目地”处理错误

您使用ImplementationName标识对象的想法通常是好的。但是4.1. Debugging And Inspecting Macros中的Andrew Pitonyak写道“要确定文档类型，请查看其支持的服务...我认为这比使用getImplementationName（）更安全” ，我倾向于相信他。

从当前选择到嵌入图表的过渡可能是这样的：

Sub ModifyChartInCurrentSelection
Dim oCurrentSelection As Variant
Dim i As Long
Dim oNextElementOfSelection As Variant
Dim oEmbeddedObject As Variant
Dim oComponent As Variant
Dim aSize As New com.sun.star.awt.Size
    oCurrentSelection = ThisComponent.getCurrentSelection()
    If oCurrentSelection.supportsService("com.sun.star.drawing.ShapeCollection") Then
        For i = 0 To oCurrentSelection.getCount()-1
            oNextElementOfSelection = oCurrentSelection.getByIndex(i)
            If oNextElementOfSelection.supportsService("com.sun.star.drawing.OLE2Shape") Then
Rem Size of shape (outer wrapper around the chart)
                If oNextElementOfSelection.supportsService("com.sun.star.drawing.Shape") Then
                    aSize = oNextElementOfSelection.getSize()
                    aSize.Height = aSize.Height * 2 ' or any other
                    aSize.Width = aSize.Width / 2
                    oNextElementOfSelection.setSize(aSize)
                EndIf 
Rem Properties of EmbeddedObject
                oEmbeddedObject = oNextElementOfSelection.EmbeddedObject
                If Not IsEmpty(oEmbeddedObject) Then
                    oComponent = oEmbeddedObject.getComponent()
                    oComponent.getTitle().String = "Foo-bar Foo-bar Foo-bar"
Rem and other settings...
                EndIf 
            EndIf 
        Next i
    EndIf 
End Sub
chartslibreofficelibreoffice-basiclibreoffice-calcresize