Exit Sub
End If
Err.Clear
With Application.Selection
.Top = hxx + 3
.Left = 3 '左边距
.Width = 268 '图宽
.Height = 220 '图高
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 65
.ShapeRange.Fill.Transparency = 0#
.ShapeRange.Line.Weight = 0.75
.ShapeRange.Line.DashStyle = msoLineSolid
.ShapeRange.Line.Style = msoLineSingle
.ShapeRange.Line.Transparency = 0#
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.Line.ForeColor.SchemeColor = 9
.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
难咯