怎么更改这个字体?
我想要我的柱状图上的字体改的大一些.要怎么改代码呢?程序代码:
'绘制直方图 'CurrentX = 2 + 2: CurrentY = Text1.Text '找到绘制“赞同”直方图的起始位置 Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - 100 * 36), Me.BackColor, BF '清除上次同意的直方图 Line (6240 + 940, 4560 - 0)-(6240 + 1880, 4560 - tongyi * 36), vbGreen, BF '绘制“赞同”直方图,如果想要改每次增长的高度可以改36这个值,例:如果要是10人,可将36改为360 CurrentX = 6240 + 1410: CurrentY = 4560 - tongyi * 36 - 200: Print tongyi Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - 100 * 36), Me.BackColor, BF '清除上次反对的直方图 Line (6240 + 2820, 4560 - 0)-(6240 + 3760, 4560 - fandui * 36), vbYellow, BF '绘制“反对”直方图 CurrentX = 6240 + 3290: CurrentY = 4560 - fandui * 36 - 200: Print fandui Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - 100 * 36), Me.BackColor, BF '清除上次弃权的直方图 Line (6240 + 4700, 4560 - 0)-(6240 + 5640, 4560 - qiquan * 36), vbRed, BF '绘制“弃权”直方图 CurrentX = 6240 + 5170: CurrentY = 4560 - qiquan * 36 - 200: Print qiquan End Sub