Question

excel通过数据有效性(序列)制作的下拉菜单字体如何调整变大，请高手协助解决问题，用VBA实现也可以

Answer 1

视图-显示比例

即可

Answer 2

这是系统设定的，不能单独更改。
要想改变数据有效性下拉列表内的字体大小，没有直接的办法，可以将整个工作表的字体设小一些，再加大显示比例，这样数据有效性下拉列表内的字体就显得大一些了。

Answer 3

那个字体大小是WINDOWS操作系统的系统字体大小，只有将WINDOWS的系统字体变大才能随之变大，但这样你的系统的字也会跟着变大，变的不好看。

Answer 4

有效性应该不行，可以用组合框这个控件

追问

可否提供组合框教程

追答

Sub Add()
Dim Ole As OLEObject, Arr As Variant
Arr = Array("A", "B", "C")
With Sheet1
.DrawingObjects.Delete
Set Ole = .OLEObjects.Add(classtype:="Forms.Combobox.1", Left:=1, Top:=1, Width:=100, Height:=30)
With Ole
.Object.Font.Size = 30
.Object.List = Arr
End With
End With
End Sub
代码