Notifications
Clear all

GRAFICO EM CORES

12 Posts
2 Usuários
0 Reactions
2,790 Visualizações
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Boa Tarde Pessoal,

Achei essa planilha na net... achei ela bacana para apresentar o resultados.
Porém o tamanho das bolinhas não da para restinguir muito as diferenças...
queria algo mas CLARO.

Por exemplo
1 a 1000 = bolinha vermelha
1001 a 2000= bolinha amarela
2001 a 3000= bolinha verde
3001 a 4000= bolinha azul

assim por diante.

tem como fazer isso nele??

 
Postado : 17/06/2013 1:45 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Quanto ao tamanho, é a coluna U, que determina.

Outros.........
http://www.sccs.swarthmore.edu/users/06 ... ble_chart/
http://blogs.msdn.com/b/tomholl/archive ... excel.aspx
http://peltiertech.com/Excel/ChartsHowT ... ubble.html

Att

 
Postado : 17/06/2013 5:48 pm
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Valews...

Mas o que eu preciso é que seja classificado por cor ao invés de tamanho...

:(

 
Postado : 17/06/2013 8:15 pm
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Bom Dia Pessoal,

Localizei o que estava procurando. Porem não consigo mudar as cores... sera que alguem pode me ajudar a decifrar??

:idea: :idea: :idea: :idea: :idea: :idea:

 
Postado : 19/06/2013 5:44 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Na Guia "Control" Coluna E, o restante fica por conta da rotina

Sub CheckColor(myCell As Range, myNameToShape As String, myValueToColor As String)
Dim myShape As Shape
Dim myTargetCell As Range
Dim myColorCode As Long
  
On Error GoTo Catch
  Set myTargetCell = Range(myNameToShape).Columns(1).Find(myCell.Name.Name, LookAt:=xlWhole)
  Set myShape = Sheets(1).Shapes(myTargetCell.Offset(0, 1))
  GoTo Finally
Catch:
  Exit Sub
Finally:  
  On Error GoTo 0
  If myCell.Value < Range(myValueToColor).Cells(2, 1).Value Then
    myColorCode = Range(myValueToColor).Cells(1, 2).Value
  Else
    myColorCode = Application.WorksheetFunction.VLookup(myCell.Value, Range(myValueToColor), 2, True)
  End If
  myShape.Fill.ForeColor.RGB = myColorCode
End Sub
 
Postado : 20/06/2013 9:43 am
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Alexandre...

tou ficando doido....rs...

achei um tutorial... :mrgreen:

http://charts8.excelcharts.com/blog/wp-content/uploads/2008/02/howtomaps/how-to-create-a-thematic-map-in-excel.html

porem, não consigo pq o código tem dado erro ao aplicar... :o

Não sei pq o tutorial esta sendo feito no 2003 e eu no 2007....

tem como me ajudar a montar uma demo??? :oops:

 
Postado : 20/06/2013 12:54 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Qual é o erro?

Att

 
Postado : 20/06/2013 4:18 pm
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

tou parado na segunda linha.... :(

Sub Macro1()

    ActiveSheet.Shapes(ƒBRegiao2ƒB).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(ƒBcolor1ƒB).Interior.Color
    

End Sub
 
Postado : 22/06/2013 11:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Qual a mensagem é disparada pelo copilador???

Att

 
Postado : 22/06/2013 3:41 pm
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

o METODO range do objeto _GLOBAL falhou!

 
Postado : 22/06/2013 5:20 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

http://support.microsoft.com/kb/149240/pt-br

Causa:

O intervalo especificado na linha de comandos executados não foi configurado.

Att

 
Postado : 30/06/2013 6:38 am
(@tomoiti)
Posts: 41
Trusted Member
Topic starter
 

Será que não é possivel isso??

 
Postado : 28/07/2013 9:34 am