Clear[v1,v2,v3,w]

Manipulate[
ListPlot[{w,a1*v1+a2*v2+a3*v3},
	PlotStyle->PointSize[0.02],
	Filling->Axis,
	FillingStyle->Automatic,
	PlotRange->{-10,10},
	Ticks->{Range[0,4],Range[-10,10,2]},
	ImageSize->Medium],
{{a1,0},-5,5},
{{a2,0},-4,4},
{{a3,0},-4,4},
Initialization:>(v1={1,0,2};
v2={2,5,-1};
v3={-2,1,1};w={4,3,7})]