LibreOffice Calc宏：如何通过名称选择/引用/访问工作表中的图片

我是LibreOffice的新手，在此寻求帮助：我已在Calc工作表中插入一张名为“timber”的.png图片，希望在特定条件下调整它的位置。但我无法找到通过名称选择/引用/访问该图片以进行移动的方法，请问有何建议？以下是我的尝试代码：

Sub moveImage
Dim oSel As Object
Dim oItem As Object
Dim aPosition As New com.sun.star.awt.Point

REM losing my religion!#?!

oSel = ThisComponent.getCurrentSelection()
If oSel.ImplementationName = "com.sun.star.drawing.SvxShapeCollection" Then
    oItem = oSel.getByIndex(0)
    aPosition.Y = 2200
    oItem.setPosition(aPosition)
Else
    MsgBox "Image not selected"
End If
End Sub

我想应该在REM处补充相关代码。

解决方案 #

你的现有代码依赖手动选中图片才能执行，要实现通过名称直接定位并移动图片，可遍历当前工作表的形状集合，通过Name属性匹配目标图片。修改后的代码如下：

Sub moveImageByName
    Dim oSheet As Object
    Dim oShapes As Object
    Dim oTargetShape As Object
    Dim aPosition As New com.sun.star.awt.Point
    Dim i As Integer
    
    ' 获取当前活动工作表
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oShapes = oSheet.DrawPage
    
    ' 遍历所有形状，查找名为"timber"的图片
    For i = 0 To oShapes.Count - 1
        oTargetShape = oShapes.getByIndex(i)
        If oTargetShape.Name = "timber" Then
            ' 设置目标位置（坐标单位为1/100毫米）
            aPosition.X = 1000 ' 按需调整X坐标
            aPosition.Y = 2200 ' 目标Y坐标
            oTargetShape.setPosition(aPosition)
            Exit Sub ' 找到目标后终止循环
        End If
    Next i
    
    ' 未找到目标时提示
    MsgBox "未找到名为'timber'的图片"
End Sub

关键要点 #

• 工作表中的图片、图形等形状都存储在DrawPage集合中，通过遍历该集合可找到目标图片
• Name属性是你给图片设置的标识，确保匹配时拼写完全一致
• setPosition的坐标单位为1/100毫米，可根据实际布局调整X和Y数值

验证图片名称 #

如果不确定图片的准确名称，可运行以下代码列出当前工作表所有形状的名称：

Sub ListAllShapeNames
    Dim oSheet As Object
    Dim oShapes As Object
    Dim i As Integer
    Dim sNames As String
    
    oSheet = ThisComponent.CurrentController.ActiveSheet
    oShapes = oSheet.DrawPage
    
    For i = 0 To oShapes.Count - 1
        sNames = sNames & oShapes.getByIndex(i).Name & Chr(13)
    Next i
    
    MsgBox "工作表中的形状名称：" & Chr(13) & sNames
End Sub

内容的提问来源于stack exchange，提问作者Mark