如何更改 Excel 下拉列表中的字体大小和颜色？答案

【问题标题】：How do I change the font size and color in an Excel Drop Down List?如何更改 Excel 下拉列表中的字体大小和颜色？
【发布时间】：2012-11-14 13:45:55
【问题描述】：

我想知道是否可以在 Excel 中设置下拉列表样式。文本很小，没有样式，我想知道下拉列表样式是否可以更改？

真正有意义的是，如果下拉列表项复制与其源单元格相同的样式，即交替的单元格背景颜色、字体、大小等。甚至复制验证单元格本身的样式！ ?

有没有办法使用 VBA 或任何其他第 3 方方法来更改此设置？

【问题讨论】：

标签： excel vba

【解决方案1】：

很遗憾，您无法在使用数据验证创建的下拉列表中更改字体大小或样式。

但是，您可以在组合框中设置文本样式。按照此处的说明进行操作：Excel Data Validation Combo Box

【讨论】：

很好的答案。非常感谢！
我有两个选择：combobox 或activexcombobox 中的O365。哪个更好？

【解决方案2】：

您无法更改默认设置，但有一个无代码解决方法。

选择整个工作表并将数据的字体大小更改为较小的值，例如 10 或 12。当您放大查看数据时，您会发现下拉框条目现在可见。

强调一下，问题不在于下拉菜单的字体大小，而是下拉菜单和数据显示字体大小之间的相对大小。

【讨论】：

【解决方案3】：

我在 60-70% 缩放 vue 上工作，我的下拉菜单不可读，所以我编写了这个简单的代码来解决这个问题

请注意，我首先选择了所有下拉列表（CTRL+鼠标单击），进入公式选项卡，单击“定义名称”并将它们命名为“ProduktSelection”

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("ProduktSelection")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

ActiveWindow.Zoom = 100

End If

End Sub

然后我有另一个子

Private Sub Worksheet_Change(ByVal Target As Range)

当价值改变时，我会回到 65%。

【讨论】：

【解决方案4】：

尝试缩小整个工作表的字体大小。然后缩放并保存。首先做一个练习表，因为它真的把所有事情都搞砸了。

【讨论】：

【解决方案5】：

我创建了一个 100% 的自定义视图。使用下拉菜单然后单击查看页面布局以返回到较小的视图。

【讨论】：

你的建议不是很清楚。您可以添加一些代码或您所建议的示例吗？