VBA中列表框字体粗斜体属性复制到标签异常问题排查

异常原因 #

VBA窗体中控件的Font属性本质是对StdFont对象的引用。默认情况下，同窗体的控件会共享同一个全局默认Font实例。当你单独修改某个控件Font的单个属性（比如Bold）时，VBA会自动为该控件创建一个新的StdFont副本，但这个过程中存在内部逻辑bug：即使你显式赋值Bold = False，副本的Bold属性会被错误地设为True，尤其是当原Font的Weight为400（正常字重）时，这个异常触发概率极高。

避免方法 #

方法1：直接复制整个Font对象（最简单）

不要单独赋值Bold、Italic等属性，直接将ListBox的Font对象整体赋值给Label：

Set Label1.Font = ListBox1.Font

这样Label会直接引用ListBox的Font实例，所有字体属性（包括Bold、Italic）都会完全一致，不会出现单个属性赋值的异常。

方法2：创建新的StdFont对象后赋值

如果需要自定义部分属性，先创建独立的StdFont实例，设置好所有需要的属性后再赋值给Label：

Dim customFont As StdFont
Set customFont = New StdFont

With customFont
    .Name = ListBox1.Font.Name
    .Size = ListBox1.Font.Size
    .Bold = ListBox1.Font.Bold
    .Italic = ListBox1.Font.Italic
    ' 可按需添加其他字体属性设置（如下划线、删除线等）
End With

Set Label1.Font = customFont

这种方式完全绕过了默认Font实例的共享问题，确保属性设置准确。

补充说明 #

直接修改单个Font属性的异常是VBA环境中StdFont对象的已知bug，社区中普遍遇到类似问题。通过整体赋值Font对象或创建独立实例，就能彻底规避这个问题。

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