Gráfico e Preenchimento de células com valores no office 2003?

Question

Exemplo:

 

    ;Pera ; Maçã ; Uva

V1;     1 ;       2 ;

V2;        ;         ;  1

 

a tabela estando assim o gráfico fica desa forma:

http://apbtfg.bay.livefilestore.com/y1pCv1w73hRMRciQ2QTc3LcuXFbsJ8t72MnUSdMhwr401ntDgDoacHrCutDdCtnCq1Zpw1EzdNnNag/Foo02.jpg

obs link ta grande porque e skydrive da microsoft

 

e fica os espaços em brancos, mas o V1 e o V2 tem que ficar em baixo como na imagem separando-os, alguem pode me ajudar a organizar melhor os dados, e por fim eu vou colocalo no userforme, mas isso ja postaram então e so eu copiar o código.

 

2º - Tenho que fazer um preenchimento de uma célula com um gradiene, onde que de acordo com o valor da célula ele vai preenchedo ela, porem o problema literalmene falando é o gradiene, porque caso contrário era só eu uilizar:

 

Private Sub Worksheet_Change(ByVal Target As Range)
     ActiveSheet.Shapes("Rectangle 1").Select
 Selection.ShapeRange.Width = Range("Valor")

 

só que não ofi possível, porque não é um quadrado de unica cor, e um gradiene, e quando ele ainge o final da celula quer dizer que ainda esá na metade, então como posso estar resolvendo isso?

Aqui em um exemplo(imagem):
http://apbtfg.bay.livefilestore.com/y1pKSKYkng4y8Cbn_Cx8GIQuofDZhoTkNIcwmA_bxBsW84MBVwM_2zllPBuY6pVLNmv70LQezuIClI/Foto01.jpg

aqui a planilha:

http://apbtfg.bay.livefilestore.com/y1pVXquqvCKw9n2VR7F5k4xiDVRRPrTjRiFjjb_PHiaQErb8dOJXwCFtqsALzRLMUCuyqeLjvQH7edTNjNdado6-A/Problemas.xls?download

 

Alguem pode me ajudar porfavor