Hola Gente!
Necesito colocar unos conectores entre dos rangos ej: entre BH3 y BH4
y tiene un valor =+REPETIR(" ";(BE3-$BC$2)/$BG$1)&REPETIR("█";REDONDEAR.MAS(AW3/$BG$1;0))
el tipo de letra es TERMINAL
esto me reflaja una especie de barra horizontal
la idea es conectar desde el final de la barra que aparece en BH3 y la de BH4
he usado lo siguiente:
For X = 3 To 45
XI = Range("BH" & x1).Left + (Range("BF" & x1) - Range("BC2")) * 4
YI = Range("BH" & x1).Top + Range("BH" & x1).Height / 2
XF = Range("BH" & x2).Left + (Range("BE" & x2) - Range("BC2")) * 4
YF = Range("BH" & x2).Top + Range("BH" & x2).Height / 2
ActiveSheet.Shapes.AddConnector(msoConnectorElbow, BEGINX:=XI,
BEGINY:=YI, ENDX:=XF - XI, ENDY:=YF - YI).Select
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.ConnectorFormat.Type = msoConnectorElbow
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 13
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.BeginArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.BeginArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadNone
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Next
funciona a la perfeccin , solo que en alguna filas coloca las lineas del
conector de una forma (Horizontal ,vertical, horizontal) y en otros de otra
(vertical Horizontal, Vertical).
como hago para que siempre las coloque (Horizontal, vertical,horizontal) ??
Muchas Gracias.
Me alimento del conocimiento de todos
Leer las respuestas