如何用LibreOffice Basic宏重新加载Calc文档中的图片

一、创建链接图片的宏 #

要在Calc中插入链接而非嵌入的图片，可通过以下宏实现，指定本地图片路径后插入到当前选中单元格位置：

Sub InsertLinkedImage()
    Dim oDoc As Object
    Dim oSheet As Object
    Dim oCell As Object
    Dim oDrawPage As Object
    Dim oImageShape As Object
    Dim sImagePath As String ' 替换为你的图片本地路径
    Dim oSize As Object
    
    ' 获取当前文档和活动工作表
    oDoc = ThisComponent
    oSheet = oDoc.CurrentController.ActiveSheet
    oCell = oDoc.CurrentController.Selection
    If Not oCell.supportsService("com.sun.star.table.Cell") Then
        MsgBox "请先选中一个单元格作为图片插入位置"
        Exit Sub
    End If
    
    ' 设置图片路径（需替换为实际路径，Windows格式示例：file:///C:/test/image.jpg）
    sImagePath = "file:///C:/YourImagePath/your_image.jpg"
    
    ' 创建图片形状对象
    oImageShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
    oDrawPage = oSheet.DrawPage
    
    ' 设置图片链接源
    oImageShape.setPropertyValue("OriginURL", sImagePath)
    
    ' 设置图片位置为选中单元格的左上角
    oSize = oCell.Size
    oImageShape.Position = oCell.Position
    ' 可选：设置图片大小为单元格大小，或自定义尺寸
    oImageShape.Size = oSize
    
    ' 将图片添加到工作表
    oDrawPage.add(oImageShape)
End Sub

二、重新加载所有链接图片的宏 #

当磁盘上的源图片修改后，通过以下宏强制重新加载所有链接图片，替换文档中旧的缓存内容：

Sub ReloadAllLinkedImages()
    Dim oDoc As Object
    Dim oSheets As Object
    Dim oSheet As Object
    Dim oDrawPage As Object
    Dim oShapes As Object
    Dim oShape As Object
    Dim sImageURL As String
    Dim oGraphicProvider As Object
    Dim oLoadProps As New com.sun.star.beans.PropertyValue
    
    ' 获取当前文档
    oDoc = ThisComponent
    oSheets = oDoc.Sheets
    
    ' 创建图形提供者服务，用于重新读取源图片
    oGraphicProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
    
    ' 遍历所有工作表
    For Each oSheet In oSheets
        oDrawPage = oSheet.DrawPage
        oShapes = oDrawPage.getShapes()
        
        ' 遍历当前工作表的所有形状
        For i = 0 To oShapes.Count - 1
            oShape = oShapes.getByIndex(i)
            
            ' 判断是否为链接图片（GraphicObjectShape为链接图片的服务标识）
            If oShape.supportsService("com.sun.star.drawing.GraphicObjectShape") Then
                ' 获取图片的源URL
                sImageURL = oShape.getPropertyValue("OriginURL")
                If sImageURL <> "" Then
                    ' 设置加载属性，强制从源文件读取最新内容
                    oLoadProps.Name = "URL"
                    oLoadProps.Value = sImageURL
                    
                    ' 重新加载图片并替换原有内容
                    oShape.Graphic = oGraphicProvider.queryGraphic(Array(oLoadProps))
                    
                    ' 触发局部重绘
                    oShape.refresh()
                End If
            End If
        Next i
    Next oSheet
    
    ' 全局重绘文档，确保界面更新
    oDoc.CurrentController.Frame.layoutManager.update()
    MsgBox "所有链接图片已重新加载完成"
End Sub

三、关键说明 #

• 链接图片识别：通过supportsService("com.sun.star.drawing.GraphicObjectShape")判断是否为链接图片，嵌入图片的服务标识不同，无需处理。
• 强制重加载逻辑：借助GraphicProvider服务直接从源URL读取最新图片，替换形状的Graphic属性后调用refresh()触发局部更新，避免全局重绘的低效问题。
• 路径格式要求：图片路径必须使用file:///开头的URL格式（Windows系统注意盘符前的三个斜杠，如file:///D:/Images/test.png）。

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