LibreOffice Impress演示模式下宏无法修改形状颜色求助

问题说明 #

需要实现：LibreOffice Impress演示模式下，点击任意幻灯片中的任意形状时改变其填充颜色，要求代码通用，不受幻灯片和形状数量限制。

现有代码在「Execute interaction...」中运行正常，但演示模式下点击形状无法修改颜色，需针对演示模式编写适配代码。

现有可运行代码（编辑模式） #

Sub ChangeColorToRed()
    Dim oDoc As Object
    Dim Page As Object
    Dim oSelection As Object
    Dim SelectedShape As Object
    
    oDoc = ThisComponent
    Page = oDoc.DrawPages(0)
    oSelection = oDoc.getCurrentSelection()
    
    If oSelection.getCount() > 0 Then
        SelectedShape = oSelection.getByIndex(0)
        
        SelectedShape.FillColor = RGB(0, 200, 0) ' 示例颜色：绿色 (0, 200, 0)
        
    End If
End Sub

环境信息 #

DISTRIB_ID="ManjaroLinux"
DISTRIB_RELEASE="23.1.3"
DISTRIB_CODENAME="Vulcan"
DISTRIB_DESCRIPTION="Manjaro Linux"
LibreOffice 7.6.4.1 60

解决方案代码（演示模式通用） #

Sub ChangeShapeColor(oEvent As Object)
    Dim oSlideShowController As Object
    Dim oCurrentSlide As Object
    Dim oDoc As Object
    Dim oDrawPage As Object
    Dim oShape As Object
    Dim nShapeIndex As Integer

    ' 获取演示模式控制器
    oSlideShowController = oEvent.Source.Context
    ' 获取当前演示的幻灯片
    oCurrentSlide = oSlideShowController.getCurrentSlide()
    ' 关联到原编辑文档
    oDoc = oSlideShowController.getDocument()
    ' 获取原文档中对应的幻灯片页面
    oDrawPage = oDoc.DrawPages.getByIndex(oCurrentSlide.getIndex())
    ' 获取点击形状在原文档中的索引
    nShapeIndex = oEvent.Source.getShape().getIndex()
    ' 定位到原文档中的目标形状
    oShape = oDrawPage.getByIndex(nShapeIndex)

    ' 修改填充颜色（可自行调整RGB值）
    oShape.FillColor = RGB(0, 200, 0)
End Sub

使用步骤 #

• 选中需要设置点击变色的形状，右键选择「分配宏」
• 在宏列表中选择ChangeShapeColor，点击确定
• 切换到演示模式，点击该形状即可触发颜色修改
• 重复上述步骤给其他形状分配宏，支持任意幻灯片中的任意形状

原理说明 #

演示模式的对象模型与编辑模式不同：

• 原代码依赖编辑模式的getCurrentSelection()获取选中形状，演示模式下无此对象
• 新代码通过事件对象oEvent获取演示上下文，关联到原编辑文档的对应形状，从而实现颜色修改

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