MS Excel

Téma: "Straight Arrow Connector" vlastnosti

Zaslal/a Pimek 9.1.2021 19:54

Prosím o radu. Mám na listě vložený obrazec - obyčejnou přímku. Potřeboval bych ji různě zvětšovat a přemísťovat.
Ale dokáži měnit pouze jeden konec přímky pomocí změny vlastností Top a Left. Existuje možnost, jak měnit souřadnice i druhého konce úsečky?
Díky

Zaslat odpověď >

elninoslov(9.1.2021 20:56)#049417

Ak to dobre chápem, tak takto ???
Sub pokus()
ZmenaCiary Worksheets("Hárok1").Shapes("Straight Connector 2"), 40, 40, 90, 60
ZmenaCiary Worksheets("Hárok1").Shapes("Straight Connector 4"), 90, 60, 100, 160
End Sub

Sub ZmenaCiary(ByRef Ciara As Shape, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single)
With Ciara
.Left = X1
.Top = Y1
.Width = X2 - X1
.Height = Y2 - Y1
End With
End Sub

Příloha: zip