VBA宏代码运行示例,用于向图形中添加一个text,代码如下。

Sub drawtext()
    Dim textposition(0 To 2) As Double
    textposition(0) = 1.5
    textposition(1) = 8.5
    textposition(2) = 0
    ModelSpace.AddText "Hellow", textposition, 1.8
End Sub

代码完。

Date函数用于取得系统日期,返回值Variant类型的字符串,Time函数用来返回系统时间,返回值Variant类型的字符串。