"msoshapeoval" - 1 õppematerjal

Graafika VBAs

ActiveSheet.Shapes.AddLine(50,100,200,150).Select Set joon = ActiveSheet.Shapes.AddLine(50,100,200,150) AddShape - erinevat tüüpi kujundite lisamine leht.AddShape(Type, Left, Top, Width, Height).Select või Set muutuja = leht.AddShape(Type, Left, Top, Width, Height) Type - tüüp: määratakse vastava numbri või sisekonstandi abil (0, 0) 1 msoShapeRectangle - ristkülik või ruut Ühik - point (pun 9 msoShapeOval - ovaal või ring 1 point = 1/72 t Left, Top, Width, Height - vasak, ülemine, laius, kõrgus Y ect peab olema!(x2, y2) (x1, y1) Ühik - point (punkt) X 1 point = 1/72 tolli Top Left Height Width