VBA代码求助

[yuchen_2013]

我是个菜鸟，这些代码是什么意思啊？
Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True)
With objResizer
With .Font
.Name = "Marlett"
.Charset = 2
.Size = 16
.Bold = True
End With
.BackStyle = fmBackStyleTransparent
.AutoSize = True
.BorderStyle = fmBorderStyleNone
.Caption = "o"
.MousePointer = fmMousePointerSizeNWSE
.ForeColor = RGB(100, 100, 100)
.ZOrder
.Top = Me.InsideHeight - .height
.left = Me.InsideWidth - .width
End With
FormX = Me.width
FormY = Me.height
Frame1.Visible = False

[yuchen_2013]

非常感谢，前面有定义 Private WithEvents objResizer As MSForms.Label 这里是动态添加一个控件吗？另外MSForms是不是VBA中的东东，和VB中的Forms有什么区别吗，MSForms.Controls.Add("Forms.label.1", MResizer, True)中的"Forms.Label.1"参数就是这样定义的吗？那添加命令按钮是不是"Forms.Command.1"这个参数的定义我查了好多地方都查不到

[罪人不釋之枷]

貌似是在面板上添加新的控件，然後對其進行屬性設置，字體，可調大小，顏色，座標，上下間距等等。 具體的對應什麽意思，你去查查對應的中文屬性吧

[LichKingSZ]

Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True) //创建一个名为objResizer的Label控件 With objResizer With .Font .Name = "Marlett" //使用Marlett字体 .Charset = 2 //使用2号字符集 .Size = 16 //设置字号为16 .Bold = True //设置为粗体 End With .BackStyle = fmBackStyleTransparent //设置控件背景为透明 .AutoSize = True //启用控件自动按内容设置大小 .BorderStyle = fmBorderStyleNone //设置控件为无边框模式 .Caption = "o" //控件显示内容为“o” .MousePointer = fmMousePointerSizeNWSE //设置当鼠标进入控件区域后显示为fmMousePointerSizeNWSE样式 .ForeColor = RGB(100, 100, 100) //设置字体颜色 .ZOrder //设置控件在容器的最上层 .Top = Me.InsideHeight - .height //设置控件的上边距 .left = Me.InsideWidth - .width //设置控件的左边距 End With FormX = Me.width FormY = Me.height Frame1.Visible = False //设置Frame1控件不可见

[LichKingSZ]

Private WithEvents objResizer As MSForms.Label 这里是声明一个可接收事件的label控件，MSForms是VBA的控件库，与Forms类似 关于"Forms.Command.1"，我也不太清楚，不过既然是VBA，你可以在word采用录制宏再看其代码的方法来了解