Excel VBA用户窗体侧边栏背景图底部留白问题求助

问题成因 #

1. 单位不匹配：Excel VBA Userform默认以缇（Twips）为尺寸单位，而Photoshop中你设置的720高度大概率是像素（Pixels）。96DPI标准屏幕下，1像素=15缇，直接将720像素的图片放到高度720缇的Userform里，图片实际显示高度远小于窗体高度，自然出现底部留白。
2. Userform高度包含标题栏：Userform的Height属性是整个窗体（含顶部标题栏）的总高度，实际可放置控件的客户区高度是InsideHeight属性。若把图片控件高度设为和Userform的Height一致，标题栏会占用部分高度，导致图片控件无法填满客户区，形成底部空白。
3. 图片控件属性设置错误：比如PictureSizeMode设为裁剪模式、AutoSize未启用，或者图片控件的Top/Height属性未正确对齐窗体顶部并填满客户区，都会导致图片无法铺满侧边栏。

解决方法 #

1. 统一尺寸单位 #

• 方法一：修改Userform单位为像素。在VBA编辑器的Userform属性窗口中，找到ScaleMode，设置为fmScaleModePixels。此时Userform的Height=720和图片的720像素高度完全匹配。
• 方法二：换算图片尺寸。若保留Userform的缇单位，96DPI下将图片像素高度转换为缇：像素值 ×15。比如720像素的图片对应缇高度为720×15=1080，将Userform的Height设为1080 + 标题栏高度（标题栏高度约20-25缇），确保客户区高度足够容纳图片。

2. 正确配置图片控件属性 #

插入Image控件到Userform后，设置以下属性：

• Picture：选择你制作的侧边栏图片
• PictureSizeMode：设为fmPictureSizeModeStretch（拉伸铺满控件，适合侧边栏固定尺寸需求）
• Top：设为0（对齐窗体顶部）
• Left：设为0（对齐窗体左侧）
• Width：设为190（和图片宽度一致，注意单位要和Userform匹配）
• Height：设为Userform的InsideHeight值（可通过代码动态设置，避免手动计算误差）
• ZOrder：设为fmZOrderBack（让图片作为背景，不遮挡其他控件）

3. 动态调整尺寸（VBA代码实现） #

在Userform的初始化事件中添加代码，自动适配尺寸：

Private Sub UserForm_Initialize()
    ' 让图片控件高度匹配客户区高度
    Me.Image1.Height = Me.InsideHeight
    ' 可选：调整窗体高度以适配图片（如果图片是缇单位）
    ' Dim titleBarHeight As Integer
    ' titleBarHeight = Me.Height - Me.InsideHeight
    ' Me.Height = Me.Image1.Height + titleBarHeight
End Sub

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