excel中使用vb标签的有关问题

来源:百度知道 编辑:UC知道 时间:2024/05/12 01:26:23
在excel表中使用vb的标签,在运行时,每单击一次标签,标签的caption属性的字体都会缩小一次。比如,有个label1控件。caption为“123”
1)单击label1一次,“123”的字体会变大,假如变成3号字
2)单击excel表中的别的位置,“123”的字体会变小。假如变成5号字。
如此重复1),2)。
每重复一次1),“123”的字体会变的比3号字更大,
每重复一次2),“123”的字体会变的比5号字更小,直到全部都集中到一起,成了一个点。

你可以双击标签,程序会显示:
Private Sub Label1_Click()

End Sub

在子程序中加入下面的句子
Private Sub Label1_Click()
Label1.Font.Size = Label1.Font.Size + 1
End Sub

即可每单击一次label1,字体会增大一个尺寸.

如果在另外位置设置一个Label2, 采用同样方法产生另一个子程序:
Private Sub Label2_Click()
Label1.Font.Size = Label1.Font.Size - 1
End Sub
即可每单击一次label2,字体会缩小一个尺寸.