¦p¦ó¤Ï¦V«ä¦Ò½Æ»s®æ¦¡ªº¤è¦¡!
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# yenwang
¸Õ¸Õ¬Ý- Option Explicit
- Sub Ex()
- Dim Sp As Object
- Dim A(1 To 4), i, b(1 To 4)
- A(1) = Array([D5].Left, [D5].Top)
- A(2) = Array([D10].Left, [D10].Top)
- A(3) = Array([H10].Left, [H10].Top)
- A(4) = Array([H5].Left, [H5].Top)
- ActiveSheet.Shapes.SelectAll
- Selection.Delete
- For i = 1 To UBound(A)
- With ActiveSheet.Shapes.AddLine(A(i)(0), A(i)(1), A(IIf(i < UBound(A), i + 1, 1))(0), A(IIf(i < UBound(A), i + 1, 1))(1))
- b(i) = .Name
- End With
- Next
- Set Sp = ActiveSheet.Shapes.Range(b)
- With Sp
- .Fill.Transparency = 0#
- .Line.Weight = 4.5
- .Line.ForeColor.SchemeColor = 10
- End With
- Stop
- A(1) = Array(0, 3, 5, 7)
- For i = 1 To Sp.Count
- With Sp(i)
- .Fill.Transparency = 0
- .Line.Weight = A(1)(i - 1)
- .Line.ForeColor.SchemeColor = A(1)(i - 1) + 10
- .Line.BeginArrowheadLength = msoArrowheadLengthMedium
- .Line.EndArrowheadWidth = msoArrowheadWidthMedium
- .Line.EndArrowheadStyle = msoArrowheadOval
- End With
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|