62,268
社区成员
发帖
与我相关
我的任务
分享Sub Macro1()
'
' Macro1 Macro
' Rocky 2008/12/24 魁籹エ栋
'
'
ActiveSheet.Shapes.AddLine(142.5, 306.75, 198#, 378#).Select
ActiveSheet.Shapes.AddLine(197.25, 338.25, 283.5, 378#).Select
Selection.ShapeRange.Flip msoFlipVertical
ActiveSheet.Shapes.AddLine(284.25, 338.25, 318#, 379.5).Select
End Sub