当前位置: 代码迷 >> VBA >> 用VB怎么在word中画出一个矩形啊
  详细解决方案

用VB怎么在word中画出一个矩形啊

热度:7980   发布时间:2013-02-26 00:00:00.0
用VB如何在word中画出一个矩形啊?
如题 求救 谢谢

------解决方案--------------------------------------------------------
你可以参考word中的vba代码:
VB code
Sub InsertShape()    ActiveDocument.Shapes.AddShape(msoShapeRectangle, 98.25, 215.25,72#,72#).Select    '添加,并选中     '以下为处理    Selection.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft    Selection.ShapeRange.ScaleHeight 1.11, msoFalse, msoScaleFromBottomRight    Selection.ShapeRange.Fill.ForeColor.ObjectThemeColor = wdThemeColorAccent6    Selection.ShapeRange.Fill.ForeColor.TintAndShade = 0.6    Selection.ShapeRange.Fill.Visible = msoTrueEnd Sub
------解决方案--------------------------------------------------------
ActiveDocument.Shapes.AddShape
  相关解决方案