VBA代码转换C#代码
第一句:ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation=ConvertNum(Text...
第一句:
ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation = ConvertNum(TextBox1.Value)
ActiveDocument.Shapes.AddLine(x1 - LenX / 2, y1, x1 + LenX / 2, y1).Name = "shp1"
第二句:
ActiveDocument.Shapes("shp1").Line.EndArrowheadStyle = msoArrowheadTriangle
第三句:
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
.....
....
...
DrawDot.Fill.ForeColor = RGB(0, 0, 0)
End Function
第四句:
ActiveDocument.Shapes.AddCurve(pts).Name = "shape1"
ActiveDocument.Shapes.AddCurve(pts_1).Name = "shape2"
ActiveDocument.Shapes.Range(Array("shape1", "shape2")).Group
真的没有人回答吗?? 展开
ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation = ConvertNum(TextBox1.Value)
ActiveDocument.Shapes.AddLine(x1 - LenX / 2, y1, x1 + LenX / 2, y1).Name = "shp1"
第二句:
ActiveDocument.Shapes("shp1").Line.EndArrowheadStyle = msoArrowheadTriangle
第三句:
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
.....
....
...
DrawDot.Fill.ForeColor = RGB(0, 0, 0)
End Function
第四句:
ActiveDocument.Shapes.AddCurve(pts).Name = "shape1"
ActiveDocument.Shapes.AddCurve(pts_1).Name = "shape2"
ActiveDocument.Shapes.Range(Array("shape1", "shape2")).Group
真的没有人回答吗?? 展开
若以下回答无法解决问题,邀请你更新回答
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询