Question

只是把它放在那里，看看是否有人有解决方案。在投影仪上展示我的工作簿时，几乎无法阅读下拉列表。精湛的组合框解决方案在excel 2016中消失了。

任何人都有其他适合他们的选择吗？

Answer 1

在我的Office版本（MS Professional Plus 2016，Windows）中，我可以这样做：

Option Explicit

Sub AddComboFont()

    Dim cb As ComboBox

    With ActiveSheet

        Set cb = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                                 DisplayAsIcon:=False, Left:=322.5, Top:=11.5, Width:=176.5, Height:= _
                                 61.5).Object

        cb.Font.Size = 20

    End With

End Sub

右键单击组合框＆gt;可以实现同样的效果。属性＆gt;字体

这适用于ActiveX组合框。您无法更改Form control组合框上的字体大小。这可能是一种折衷，因为Form控件可以比ActiveX更好地表现，特别是当用户具有不同的屏幕分辨率时。请在此处查看我的回答Excel Comboboxes double up on some PCs

Illegible下拉列表的替代品？ Excel 2016

1 个答案: