Как мне отрегулировать ширину колена? - PullRequest
Новая
       79

Как мне отрегулировать ширину колена?

0 голосов
/ 28 августа 2018

Обратите внимание, что в следующем коде arw представляет стрелки, которые выступают снизу фигуры. Для случаев, когда требуется решение, я также создал боковую стрелку (обозначенную в коде как Sarw). Обратите внимание, что для боковой стрелки я указал его в качестве разъема. Я сделал это, потому что я не вижу, что есть регулировка на линии, поскольку есть на локтевом соединителе. Когда я пытаюсь отрегулировать ширину колена в моем коде, у меня ничего не получается. Я не понимаю почему. Любая помощь, которая может быть оказана, будет принята с благодарностью. Спасибо! 

 'This first part places arrows on the bottom of a shape

 If rng.Offset(, 4).Value = " "
 GoTo Line1 'I wrote this part for when VBA expects a number & gets a blank
 End If

 Set arw = ws2.Shapes.AddLine(BegX, BegY, EndX, EndY)
 With arw
     .Line.BeginArrowheadStyle = msoArrowheadTriangle
     .Line.BeginArrowheadWidth = msoArrowheadWide
     .Line.ForeColor.RGB = RGB(0, 0, 0)

 End With


 'The following part is for the side arrows
 If rng.Offset(, 8).Value = " " Then
 GoTo Line2

 End If
 Set Sarw = ws2.Shapes.AddConnector(msoConnectorElbow, SBegX, SBegY, SEndX, SEndY)

 With Sarw

     .Line.BeginArrowheadStyle = msoArrowheadTriangle
     .Line.BeginArrowheadWidth = msoArrowheadWide
     .Line.ForeColor.RGB = RGB(0, 0, 0)
     .Adjustments.Item(1) = 45

 End With

Ответы [ 2 ]

0 голосов
/ 28 августа 2018

SJR ... Я попробовал ваш метод. Если я не понимаю, это похоже на настройку толщины линии. Обратите внимание, что если вы измените вес с 5 на 90, линия будет больше похожа на прямоугольник. Я прилагаю графику, чтобы продемонстрировать эффект, к которому я стремлюсь. Надеюсь, это поможет. Пожалуйста, дайте мне знать, если я неправильно понял ваш пример. Спасибо!

Нажмите сюда для примера

0 голосов
/ 28 августа 2018

Мне показалось, что это работает. Я не вижу в вашем коде ничего, что могло бы повлиять на ширину? 

Sub Macro1()

Dim s As Shape

Set s = ActiveSheet.Shapes.AddConnector(msoConnectorElbow, 10, 10, 50, 50)

s.Line.Weight = 5

End Sub
...