调整B线条相对A线条的长度

楼主参考一下：
' Excel VBA代码：
Option ExplicitSub Main()
   Dim cw#, ch#, dR As Double   dR = 0.65      ' 比例系数
   With Sheet1.Shapes(1)      ' 取“A线条”对象
      cw = .Width
      ch = .Height
   End With
   With Sheet1.Shapes(2)      ' 取“B线条”对象
      .Width = dR * cw
      .Height = dR * ch
   End With
End Sub
只要“B线条”的起点在最初“画对象”时，跟“A线条”的起点是重合的就行了。