"242641" - 1 õppematerjal

Graafika VBAs

672864 56.7 20.979 2.71529 57.6 20.736 2.757716 58.5 20.475 2.800143 59.4 20.196 2.842569 60.3 19.899 2.884996 61.2 19.584 2.927422 62.1 19.251 2.969848 63 18.9 3.012275 63.9 18.531 3.054701 64.8 18.144 3.097128 65.7 17.739 3.139554 66.6 17.316 3.181981 67.5 16.875 3.224407 68.4 16.416 3.266833 69.3 15.939 3.30926 70.2 15.444 3.351686 71.1 14.931 3.394113 72 14.4 3.436539 72.9 13.851 3.478965 73.8 13.284 3.521392 74.7 12.699 3.563818 75.6 12.096 3.606245 76.5 11.475 3.648671 77.4 10.836 3.691097 78.3 10.179 3.733524 79.2 9.504 3.77595 80.1 8.811 3.818377 81 8.1 3.860803 81.9 7.371 3.903229 82.8 6.624 3.945656 83.7 5.859 3.988082 84.6 5.076 4.030509 85.5 4.275 4.072935 86.4 3.456 4.115361 87.3 2.619 4.157788 88.2 1.764 4.200214 89.1 0.891 4.242641 90 0 Graafikaobjektide lisamine töölehele AddLine - joone (lõigu) lisamine leht.Shapes.AddLine(x1, y1, x2, y2).Select NB! Select peab olema! või Set muutuja = leht.Shapes.AddLine(x1, y1, x2, y2) x1, y1, x2, y2 - otste koordinaadid (punktides) (x1, y1) 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 = 172 t Left, Top, Width, Height - vasak, ülemine,...