Access 2016 VBA为Image对象添加PictureEffects图片效果的问题

我懂你现在的困扰——网上搜出来的示例全是Excel、Word或PowerPoint的，直接套到Access里就报错，太闹心了对吧？咱们一步步把这个问题搞定：

为什么你的代码会报错？ #

首先得理清核心差异：Access的Image控件的Picture属性返回的是图片文件的路径字符串，不是像Excel里那种自带PictureEffects属性的可操作对象。你把字符串赋值给IMGTEST这个Object变量，自然找不到PictureEffects属性，就会报“未声明/找不到成员”的错误。而且更关键的是：Access本身的Image控件根本没有PictureEffects这个属性，得借Office其他组件的能力来处理图片效果。

可行解决方案：借助Excel对象处理图片 #

我们可以绕个弯：先把Access控件里的图片导入Excel的Shape对象，给它加效果，导出处理后的图片，再把新图片路径赋值回Access的Image控件。具体步骤如下：

1. 绑定方式选择 #

• 前期绑定：手动添加Microsoft Excel 16.0 Object Library引用，代码会有智能提示，但受版本限制。
• 后期绑定：不用加引用，代码更通用，适合不同Office版本。下面示例用的是后期绑定。

2. 完整示例代码 #

Sub AddPictureEffectToAccessImage()
    Dim excelApp As Object ' 后期绑定Excel应用
    Dim excelWorkbook As Object
    Dim excelShape As Object
    Dim originalPicPath As String
    Dim tempPicPath As String
    
    ' 获取Access Image控件的原图片路径
    originalPicPath = Forms!frmExportOLE.MonImage.Picture
    If originalPicPath = "" Then
        MsgBox "请先给图片控件设置图片！"
        Exit Sub
    End If
    
    ' 设置临时文件路径（存放处理后的图片）
    tempPicPath = Environ("TEMP") & "\ProcessedImage_" & Format(Now(), "YYYYMMDDHHMMSS") & ".png"
    
    ' 后台启动Excel（不显示界面）
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False
    Set excelWorkbook = excelApp.Workbooks.Add
    
    ' 在Excel中插入原图片
    Set excelShape = excelWorkbook.ActiveSheet.Shapes.AddPicture( _
        Filename:=originalPicPath, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=10, Top:=10, Width:=100, Height:=100) ' 尺寸可按需调整
    
    ' 添加150%饱和度效果
    With excelShape.PictureEffects
        .Insert(msoEffectSaturation).EffectParameters(1).Value = 1.5 ' 1.5对应150%饱和度
    End With
    
    ' 导出处理后的图片到临时路径
    excelShape.Export Filename:=tempPicPath, Filter:=msoFilterPNG
    
    ' 把处理后的图片赋值给Access的Image控件
    Forms!frmExportOLE.MonImage.Picture = tempPicPath
    
    ' 清理Excel资源，避免后台残留进程
    excelWorkbook.Close SaveChanges:=False
    excelApp.Quit
    Set excelShape = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    
    ' 可选：处理完后删除临时文件
    ' Kill tempPicPath
End Sub

3. 关键细节说明 #

• Excel的Shapes对象才具备PictureEffects属性，支持添加各种效果（比如模糊、阴影、色调调整等，对应msoEffectXXX系列常量）。
• Access的Image控件只能通过路径加载图片，所以必须把处理后的图片导出为文件再赋值。
• 一定要清理Excel对象，不然任务管理器里会残留Excel进程，占用系统资源。

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