Notifications
Clear all

GRAFICO EM CORES

12 Posts
2 Usuários
0 Reactions
2,802 Visualizações
Tomoiti
(@tomoiti)
Posts: 41
Eminent 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??

TOMOITI
Estudante de VBA

 
Postado : 17/06/2013 1:45 pm
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Valews...

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

:(

TOMOITI
Estudante de VBA

 
Postado : 17/06/2013 8:15 pm
Tomoiti
(@tomoiti)
Posts: 41
Eminent 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:

TOMOITI
Estudante de VBA

 
Postado : 19/06/2013 5:44 am
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/06/2013 9:43 am
Tomoiti
(@tomoiti)
Posts: 41
Eminent 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:

TOMOITI
Estudante de VBA

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

Boa noite!!

Qual é o erro?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/06/2013 4:18 pm
Tomoiti
(@tomoiti)
Posts: 41
Eminent 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

TOMOITI
Estudante de VBA

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

Boa noite!!

Qual a mensagem é disparada pelo copilador???

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

o METODO range do objeto _GLOBAL falhou!

TOMOITI
Estudante de VBA

 
Postado : 22/06/2013 5:20 pm
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Será que não é possivel isso??

TOMOITI
Estudante de VBA

 
Postado : 28/07/2013 9:34 am