Excel中画方框出错- 超出范围？

Question

.Shapes.AddShape(msoShapeRectangle, 424, 5, 30.75, 18.25).Select
xlApp.Selection.Characters.Text = "LeadFree"
With xlApp.Selection
    .Font.ColorIndex = 4
    .ShapeRange.Fill.Visible = msoTrue
    .ShapeRange.Fill.Solid
    .ShapeRange.Fill.ForeColor.SchemeColor = 65
    .ShapeRange.Fill.Transparency = 0#
    .ShapeRange.Line.Weight = 1.5
    .ShapeRange.Line.DashStyle = msoLineSolid
    .ShapeRange.Line.Style = msoLineSingle
    .ShapeRange.Line.Transparency = 0#
    .ShapeRange.Line.Visible = msoTrue
    .ShapeRange.Line.ForeColor.SchemeColor = 11
    .ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End With执行之后说是Shapes.AddShape(msoShapeRectangle, 424, 5, 30.75, 18.25).Select中值超出范围。
但在excel宏中演示并未出错，搞不懂那个地方出问题拉，各位帮忙看看，谢谢

Answer 1

这里的Left, Top, Width, Height都是以磅为单位的,先调小试试