Manipulate[
a = {-2, 2.2};
b = {4, 2};
x = c1 a + c2 b;
Graphics[{Black, Arrow[{{0,0}, a}],
Text["(OverVector[a])", {-1.9, 2.7}],
Blue, Arrow[{{0,0},  b}],
Text["(OverVector[b])", {4.1, 2.6}],
Darker[Green], Arrow[{{0,0}, x}],
Text["(OverVector[x]) = c1 (OverVector[a]) + c2 (OverVector[b])", {-9,4}]
}, Axes -> True, PlotRange ->{{-12,12}, {-8,9}}],
{{c1, 1}, -2,2, Appearance -> "Labeled"}, {{c2, 2}, -2,2, Appearance -> "Labeled"}
]

Manipulate[
a = {-2, 2.2};
b = {4, 2};
x = c1 a + c2 b;
Graphics[{Black, Table[Arrow[{p a + q b, (p+1)a + q b}], {p, -2,1},{q, -2,2}],
(*Text["(OverVector[a]) = (-2,2.2)", {-9,8}],*)
Text["(OverVector[a])", {-1.9, 2.7}],
Blue, Table[Arrow[{p a + q b, p a + (q+1) b}], {p, -2,2},{q, -2,1}],
(*Text["(OverVector[b]) = (4,2)", {-9,6}],*)
Text["(OverVector[b])", {4.1, 2.6}],
Darker[Green], Arrow[{{0,0}, x}],
Text["(OverVector[x]) = c1 (OverVector[a]) + c2 (OverVector[b])", {-9,4}]
}, Axes -> True],
{{c1, 1}, -2,2, Appearance -> "Labeled"}, {{c2, 2}, -2,2, Appearance -> "Labeled"}
]