在MS Access报表中隐藏未勾选关联图片及占位区域的需求

方法一：用VBA动态创建图片控件 #

别在报表里预先固定放5个图片控件，通过代码在报表渲染时只加载勾选对应的图片，自动实现紧凑排列：

1. 打开报表设计视图，找到报表的OnFormat事件，进入VBA编辑器。
2. 粘贴以下代码（根据你的字段名、图片尺寸自行调整）：

   Private Sub Report_Format(Cancel As Integer, FormatCount As Integer)
       Dim ctrl As Control
       Dim leftPos As Integer
       Dim imgWidth As Integer
       Dim imgHeight As Integer
       
       ' 清除之前生成的动态控件
       For Each ctrl In Me.Controls
           If ctrl.Tag = "DynamicImage" Then
               Me.Controls.Remove ctrl.Name
           End If
       Next ctrl
       
       leftPos = 100 ' 初始左间距，单位twip，可修改
       imgWidth = 2000 ' 图片宽度，按需调整
       imgHeight = 1500 ' 图片高度，按需调整
       
       ' 逐个判断复选框状态，添加对应图片
       If Me.image1 = True Then
           AddDynamicImage leftPos, imgWidth, imgHeight, "你的图片1路径或绑定字段名"
           leftPos = leftPos + imgWidth + 50 ' 图片间的间距，可修改
       End If
       If Me.image2 = True Then
           AddDynamicImage leftPos, imgWidth, imgHeight, "你的图片2路径或绑定字段名"
           leftPos = leftPos + imgWidth + 50
       End If
       If Me.image3 = True Then
           AddDynamicImage leftPos, imgWidth, imgHeight, "你的图片3路径或绑定字段名"
           leftPos = leftPos + imgWidth + 50
       End If
       If Me.image4 = True Then
           AddDynamicImage leftPos, imgWidth, imgHeight, "你的图片4路径或绑定字段名"
           leftPos = leftPos + imgWidth + 50
       End If
       If Me.image5 = True Then
           AddDynamicImage leftPos, imgWidth, imgHeight, "你的图片5路径或绑定字段名"
           leftPos = leftPos + imgWidth + 50
       End If
   End Sub
   
   Private Sub AddDynamicImage(left As Integer, width As Integer, height As Integer, imgSource As String)
       Dim newImg As Control
       Set newImg = CreateControl(Me.Name, acImage, acDetail)
       newImg.Left = left
       newImg.Width = width
       newImg.Height = height
       ' 如果是绑定字段，就用newImg.ControlSource = imgSource，否则直接给路径
       newImg.Picture = imgSource
       newImg.Tag = "DynamicImage" ' 标记为动态控件，方便后续清除
   End Sub
   

3. 保存代码后切换到报表视图，勾选的图片会自动紧凑排列，没有空白占位。

方法二：用HTML控件拼接图片（适合存路径的场景） #

如果你的图片路径存在数据库字段里，可以用WebBrowser控件配合HTML的flex布局实现自动排列：

1. 在报表设计视图添加一个WebBrowser控件。
2. 在报表的OnFormat事件中写代码生成HTML：

   Private Sub Report_Format(Cancel As Integer, FormatCount As Integer)
       Dim htmlStr As String
       htmlStr = "<div style='display:flex; gap:10px;'>"
       
       If Me.image1 = True Then
           htmlStr = htmlStr & "<img src='" & Me.imgPath1 & "' style='width:150px; height:120px;'>"
       End If
       If Me.image2 = True Then
           htmlStr = htmlStr & "<img src='" & Me.imgPath2 & "' style='width:150px; height:120px;'>"
       End If
       ' 重复image3到image5的判断逻辑
       
       htmlStr = htmlStr & "</div>"
       Me.WebBrowser1.Object.Document.body.innerHTML = htmlStr
   End Sub
   

这种方式靠CSS自动排版，不用手动计算控件位置，更省心。

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